vanmanhvcu
Thành viên chính thức
- Tham gia
- 27/3/11
- Bài viết
- 85
- Được thích
- 10
Chào tất cả mọi người
tôi có 1 vùng trong bảng Excel như ảnh sau:
Range(B3:E10) do người dùng nhấp chuột chọn, số lượng ô trong vùng được chọn hiện tại là 32 ô
và tôi muốn viết code VBA tạo số vòng lặp lồng nhau For Next là số lượng ô trong vùng được chọn là 32 để điền giá trị thay đổi từ 1 đến 3 vào các ô đó
vậy có cách nào tạo vòng lặp lồng mà không phải viết thủ công 32 vòng lặp ra hay không?
nếu có cách nào tốt hơn xin mọi người hãy chỉ dẫn giúp !
tôi có 1 vùng trong bảng Excel như ảnh sau:
Range(B3:E10) do người dùng nhấp chuột chọn, số lượng ô trong vùng được chọn hiện tại là 32 ô
và tôi muốn viết code VBA tạo số vòng lặp lồng nhau For Next là số lượng ô trong vùng được chọn là 32 để điền giá trị thay đổi từ 1 đến 3 vào các ô đó
vậy có cách nào tạo vòng lặp lồng mà không phải viết thủ công 32 vòng lặp ra hay không?
nếu có cách nào tốt hơn xin mọi người hãy chỉ dẫn giúp !
PHP:
Sub taoVongLap()
Dim Arr() as integer
Arr()=[B3:E10].value
for Arr(1,1)=1 to 3
for Arr(1,2)=1 to 3
for Arr(1,3)=1 to 3
for Arr(1,4)=1 to 3
for Arr(2,1)=1 to 3
for Arr(2,2)= 1 to 3
..............
'tiếp tục đến for Arr(8,4).... thì sẽ rất dài và thủ công
next Arr(2,2)
next Arr(2,1)
next Arr(1,4)
next Arr(1,3)
next Arr(1,2)
next Arr(1,1)
End SubFile đính kèm
Lần chỉnh sửa cuối:
