giúp mình tách Range . (4 người xem)

[tuikhongten]

cả nhà giúp mình tách Range này với , BT mình chỉ dùng range("xx:xx") giờ mình gặp Range("xx:xx , xx:xx") như ở dưới .
mọi người giúp mình tách ra để mình tạo vòng lặp của J2:J28 nhé , cảm ơn cả nhà ạ

VD: range("I2:I28") thì mình sẽ làm như sau

for i = x to 100 ( x là số cột I )
range(cells(2, i), cells(28, i)).select
next

giờ Range("xx:xx , xx:xx") thì mình chưa biết làm thế nào để chạy vòng lặp cho công thức ở dưới ạ .
Range("I2:I28,J2:J28").Select

 

[tuikhongten]

ai đi qua giúp mình với !!!

 

[phulien1902]

ai đi qua giúp mình với !!!

Thực ra mọi người chưa hiểu ý của bạn, bạn có thể nói rõ hơn được không?

 

[tuikhongten]

Thực ra mọi người chưa hiểu ý của bạn, bạn có thể nói rõ hơn được không?

mình muốn làm vòng lặp cho Range("I2:I28,J2:J28").Select . và mình muốn vòng lặp cho Jx:Jx

 

[giaiphap]

Có ai hiểu chủ thớt muốn gì không? giải thích cho tôi hiểu với.

 

[batman1]

Sao bạn không đưa code? Code có thể có lỗi, mục đích chỉ để người ta biết bạn muốn làm gì.
Bây giờ thì tự thích ứng vào tập tin của mình nhé. Tôi không thích mất thời gian 2 lần cho 1 vấn đề.

Sub test()
Dim k As Long, rng As Range, element As Range
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("I2:I28,J2:J28,C3:E9,A12:B22")
    For Each element In rng.Areas
        k = k + 1
        If k Mod 2 = 0 Then
            element.Interior.Color = RGB(255, 0, 0)
            MsgBox "Range " & element.Address(external:=True)
        Else
            element.Interior.Color = RGB(0, 0, 255)
            MsgBox "Range " & element.Address(external:=True)
        End If
    Next element
End Sub

 

[tuikhongten]

Có ai hiểu chủ thớt muốn gì không? giải thích cho tôi hiểu với.

Sao bạn không đưa code? Code có thể có lỗi, mục đích chỉ để người ta biết bạn muốn làm gì.

ý mình là như này

VD: range("I2:I28") thì mình sẽ làm như sau
for i = x to 100 ( x là số cột I )
range(cells(2, i), cells(28, i)).select
next

giờ Range("xx:xx , xx:xx") thì mình chưa biết làm thế nào để chạy vòng lặp cho công thức ở dưới ạ .
Range("I2:I28,J2:J28").Select

 

[batman1]

Vòng lặp

for i = 9 to 100 ( x là số cột I )
range(cells(2, i), cells(28, i)).select
next

chạy 92 lần và lần lượt chọn 92 cột (92 khoảng trong 92 cột)

Tuy chay tốn xăng như thế nhưng kết quả chỉ là chọn 1 cột cuối cùng. Vậy thì thay vòng lặp bằng 1 dòng

Range(Cells(2, 100), Cells(28, 100)).Select

2 code cho kết quả như nhau.

Có bịa ví dụ thì cũng phải thực tế chứ cứ như đánh đố nhau ấy

Tôi viết đủ rồi.

For Each element In <range bất kỳ>.Areas
'    tại chỗ này element là 1 vùng liền hình chữ nhật
Next element