Hỏi cách cho 1 code run lần lượt qua từng phần tử trong name (1 người xem)

[thangcola113]

Em đặt tên vùng (dùng Ctrl + F3) cần được tác động bởi code là VUNG = {A2; A4; A5} (vùng này gồm 3 phần tử tương ứng).
Giờ muốn code sẽ run qua từng phần tử 1, phần tử 2,... cho đến hết trong name VUNG thì phải viết thế nào? (chọn A2 và run code, chọn A3 và run code... cho đến hết các phần tử trong name)
Nhờ các bác giúp đỡ.

 

[Quang_Hải]

Em đặt tên vùng (dùng Ctrl + F3) cần được tác động bởi code là VUNG = {A2; A4; A5} (vùng này gồm 3 phần tử tương ứng).
Giờ muốn code sẽ run qua từng phần tử 1, phần tử 2,... cho đến hết trong name VUNG thì phải viết thế nào? (chọn A2 và run code, chọn A3 và run code... cho đến hết các phần tử trong name)
Nhờ các bác giúp đỡ.

Vầy nè

Sub GPE()
Dim item
For Each item In Range("VUNG")
   MsgBox item
Next
End Sub

 

[thangcola113]

Vầy nè

Sub GPE()
Dim item
For Each item In Range("VUNG")
   MsgBox item
Next
End Sub

For Each item In Range("VUNG")
run CodeA ...
Next
Em muốn chạy đoạn codeA thì viết thế nào anh.

 

[VetMini]

call codeA(item)

hoặc là

codeA item

codeA là hàm chứa đoạn code cần chạy. Hàm này nhận 1 tham số có dạng range. Khi gọi hàm, nhét item vào làm thông số

 

[Quang_Hải]

For Each item In Range("VUNG")
run CodeA ...
Next
Em muốn chạy đoạn codeA thì viết thế nào anh.

Muốn thế nào thì đưa file lên mọi người cùng xem coi hướng giải quyết nào là hay sẽ chia sẽ với bạn. Chứ nói không không cũng khó mà trả lời vì có lẻ bạn cũng vừa mới làm quen VBA như mình. Mình thì cái gì cũng có cách xử nhưng phải có gì đó cụ thể chút mới được nhá.

 

[thangcola113]

Muốn thế nào thì đưa file lên mọi người cùng xem coi hướng giải quyết nào là hay sẽ chia sẽ với bạn. Chứ nói không không cũng khó mà trả lời vì có lẻ bạn cũng vừa mới làm quen VBA như mình. Mình thì cái gì cũng có cách xử nhưng phải có gì đó cụ thể chút mới được nhá.

Em muốn chạy đoạn code AutoFitMergedCellRowHeight
tại bài 2 đường link tham khảo này:
http://www.giaiphapexcel.com/forum/showthread.php?6773-Tự-động-điều-chỉnh-độ-cao-của-dòng
Em gửi lại file các bác giúp đỡ:
Nhờ chạy code AutoFitMergedCellRowHeight lần lượt qua các phần tử trong name VUNG (GỒM 2 PHẦN TỬ BÔI MÀU VÀNG)

 

[Quang_Hải]

Em muốn chạy đoạn code AutoFitMergedCellRowHeight
tại bài 2 đường link tham khảo này:
http://www.giaiphapexcel.com/forum/showthread.php?6773-Tự-động-điều-chỉnh-độ-cao-của-dòng
Em gửi lại file các bác giúp đỡ:
Nhờ chạy code AutoFitMergedCellRowHeight lần lượt qua các phần tử trong name VUNG (GỒM 2 PHẦN TỬ BÔI MÀU VÀNG)

Đọc bài mắy lần rồi mà chẳng hiểu bạn muốn gì nên không biết làm gì cả. Dữ liệu tạm kiểu này khó làm được trúng ý lắm.

 

[siwtom]

Em muốn chạy đoạn code AutoFitMergedCellRowHeight
tại bài 2 đường link tham khảo này:
http://www.giaiphapexcel.com/forum/showthread.php?6773-Tự-động-điều-chỉnh-độ-cao-của-dòng
Em gửi lại file các bác giúp đỡ:
Nhờ chạy code AutoFitMergedCellRowHeight lần lượt qua các phần tử trong name VUNG (GỒM 2 PHẦN TỬ BÔI MÀU VÀNG)

Thì chạy ví dụ của quanghai1969 tại bài #2 thôi.

module

Sub GPE()
Dim item As Range
    For Each item In Range("VUNG")
        AutoFitMergedCellRowHeight item
    Next
End Sub

Nhưng chạy sub GPE 1 lần thôi. Còn nếu bạn vẫn cứ muốn chạy mỗi khi có cell thay đổi thì sửa code hiện thời thành

Private Sub Worksheet_Change(ByVal Target As Range)
    GPE
End Sub

hoặc như bạn gói tất cả trong Worksheet_Change thì thế này

Private Sub Worksheet_Change(ByVal Target As Range)
Dim item As Range
    For Each item In Range("VUNG")
        AutoFitMergedCellRowHeight item
    Next
End Sub

 

[thangcola113]

@Siwtom:

Sub GPE()
Dim item As Range
For Each item In Range("VUNG")
AutoFitMergedCellRowHeight item
Next
End Sub

Khi chạy đoạn code này em thấy báo lỗi:

Compile error:
Wrong number of arguments or invalid property assignment