Code vba excel ngắn tô màu theo đoạn.

[study02]

xin chào các cao thủ đại nội của diễn đàn, tôi có 2 dòng chứa các số như trong file đính kèm, tôi muốn viết đoạn code để kiểm tra và tô màu như trong yêu cầu trong file
tôi viết code thủ công so sánh từng cặp số 1 rất dài và bị động k thay đổi được cho nên nhờ các cao thủ xem file giúp
trân trọng cảm ơn các cao thủ và kính chúc các cao thủ luôn mạnh khỏe, vui vẻ, hp

 

[CHAOQUAY]

xin chào các cao thủ đại nội của diễn đàn, tôi có 2 dòng chứa các số như trong file đính kèm, tôi muốn viết đoạn code để kiểm tra và tô màu như trong yêu cầu trong file
tôi viết code thủ công so sánh từng cặp số 1 rất dài và bị động k thay đổi được cho nên nhờ các cao thủ xem file giúp
trân trọng cảm ơn các cao thủ và kính chúc các cao thủ luôn mạnh khỏe, vui vẻ, hp

"số ô của đoạn ở dòng 11 có thể nhập vào số bất kì, vd: nhập số 3 thì có 3 số, nhập số 9 thì có 9 số ở dòng 11"

Cái chỗ "nhập số 3" thì... hay "nhập số 9" thì... Số 3 hay số 9 này được nhập tại ô nào?

 

[bebo021999]

Mình chỉ là cao thủ "tiểu nội" thôi thì góp vui đoạn code bé bé này:

Option Explicit
Sub tomau()
Dim col&, i&, j&, vungdk As Range, vungtk As Range
Set vungtk = Range("F10", Range("F10").End(xlToRight)) ' vung tim kiem
Set vungdk = Range("A11", Range("A11").End(xlToRight)) ' vung dieu kien
col = vungtk.Columns.Count - vungdk.Columns.Count + 1
vungtk.Interior.Color = xlNone ' xoa to mau hien hanh
If col < 1 Then
    MsgBox "Vung tim kiem phai lon hon vung dieu kien!"
    Exit Sub
End If
For i = 1 To col
    If vungtk.Cells(1, i) = vungdk.Cells(1, 1) Then ' neu o dau tien cua 2 vung giong nhau
        For j = 1 To vungdk.Columns.Count 'kiem tra tung o ke tiep
            If vungtk.Cells(1, i + j - 1) <> vungdk.Cells(1, j) Then GoTo z ' neu 1 o nao khac thi thoat
        Next
        vungtk.Cells(1, i).Resize(1, j - 1).Interior.Color = vbRed 'neu toan bo giong nhau thi to mau
        Debug.Print i
    End If
z:
Next
End Sub

 

[study02]

Mình chỉ là cao thủ "tiểu nội" thôi thì góp vui đoạn code bé bé này:

Option Explicit
Sub tomau()
Dim col&, i&, j&, vungdk As Range, vungtk As Range
Set vungtk = Range("F10", Range("F10").End(xlToRight)) ' vung tim kiem
Set vungdk = Range("A11", Range("A11").End(xlToRight)) ' vung dieu kien
col = vungtk.Columns.Count - vungdk.Columns.Count + 1
vungtk.Interior.Color = xlNone ' xoa to mau hien hanh
If col < 1 Then
    MsgBox "Vung tim kiem phai lon hon vung dieu kien!"
    Exit Sub
End If
For i = 1 To col
    If vungtk.Cells(1, i) = vungdk.Cells(1, 1) Then ' neu o dau tien cua 2 vung giong nhau
        For j = 1 To vungdk.Columns.Count 'kiem tra tung o ke tiep
            If vungtk.Cells(1, i + j - 1) <> vungdk.Cells(1, j) Then GoTo z ' neu 1 o nao khac thi thoat
        Next
        vungtk.Cells(1, i).Resize(1, j - 1).Interior.Color = vbRed 'neu toan bo giong nhau thi to mau
        Debug.Print i
    End If
z:
Next
End Sub

đúng là Cao thủ thượng thừa, mình xin mạn phép kết bạn zalo và gửi chút quà nhỏ bày tỏ lòng cảm ơn được không ạ? chúc cao thủ luôn mạnh khỏe, vui vẻ và hp nhé. mình ở Hạ Long, Quảng Ninh, nếu có dịp bạn đến hạ long, xin được tiếp đón nhé

 

[study02]

"số ô của đoạn ở dòng 11 có thể nhập vào số bất kì, vd: nhập số 3 thì có 3 số, nhập số 9 thì có 9 số ở dòng 11"

Cái chỗ "nhập số 3" thì... hay "nhập số 9" thì... Số 3 hay số 9 này được nhập tại ô nào?

cảm ơn bạn rất nhiều nhé, chúc bạn luôn vui vẻ, hp

Bài đã được tự động gộp: 2/8/24

cảm ơn bạn rất nhiều nhé, chúc bạn luôn vui vẻ, hp

mình xin lỗi vì đã viết yêu cầu không rõ ràng, thật ra ở dòng 11 là 1 đoạn gồm các số bất kì không cần nhập vào. thank tất cả mọi người nhé