V/v: Code VBA tự bôi màu (1 người xem)

  • Thread starter Thread starter GTK-PM
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

GTK-PM

Thành viên thường trực
Tham gia
10/11/13
Bài viết
313
Được thích
15
Nhờ anh chị giúp đỡ cho em xin code VBA tự động bôi màu cho số phiếu lớn nhất ở file bên dưới.
+ Bôi màu theo điều kiện chữ HPN là số phiếu lớn nhất trong vùng B4 đến B54
+ Bôi màu theo điều kiện chữ XK là số phiếu lớn nhất trong vùng B4 đến B54
 

File đính kèm

Lần chỉnh sửa cuối:
PHP:
Option Explicit
Sub BoiMau2MaxFieu()
 Dim J As Long, HPN As Long, XK As Long, W As Long
 Dim Arr()
 
 Arr() = Range([B4], [B4].End(xlDown)).Value
 For J = 9999 To 0 Step -1
    For W = 1 To UBound(Arr())
        If InStr(Arr(W, 1), "HPN" & Right("000" & CStr(J), 4)) Then
            HPN = W + 3:         GoTo GPE1
        End If
    Next W
 Next J
GPE1:            If HPN Then _
                    Cells(HPN, "B").Interior.ColorIndex = 38
For J = 9999 To 0 Step -1
    For W = 1 To UBound(Arr())
        If InStr(Arr(W, 1), "XK" & Right("000" & CStr(J), 4)) Then
            XK = W + 3:         GoTo GPE2
        End If
    Next W
 Next J
GPE2:            If XK Then _
                    Cells(XK, "B").Interior.ColorIndex = 35
End Sub
 
Upvote 0
Cảm ơn bạn Chanh TQ, bạn có thể giúp mình cho code này tự động bôi màu chứ không cần phải gán code vào From không?
 
Upvote 0
Cho em góp vui 1 tý cho vui
Sub Boimau()
Dim i As Long, Erow As Long
Dim P As Long, PNMax As Long, PxMax As Long, Ixuat As Long, Inhap As Long
With Sheet1
Erow = .Range("B65535").End(3).Row
.Range("B4:B" & Erow).Interior.Color = xlNone
For i = 4 To Erow
P = Right(Application.WorksheetFunction.Substitute(.Range("B" & i), "/" & Format(Month(.Range("A" & i)), "00"), ""), 3)
If Left(Range("B" & i), 2) = "HP" Then
If PNMax < P Then PNMax = P: Inhap = i
End If
If Left(Range("B" & i), 2) = "XK" Then
If PxMax < P Then PxMax = P: Ixuat = i
End If
Next i
.Range("B" & Inhap).Interior.Color = 65535
.Range("B" & Ixuat).Interior.Color = 65535
End With
End Sub
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
. . . Bạn có thể giúp mình cho code này tự động bôi màu chứ không cần phải gán code vào From không?

File bạn đâu có Form nào thì fải? Mà gán vô form để làm chi vậy?

- Nếu bạn cần tự động bôi màu khi nhập liệu thì áp dụng macro sự kiện trên cột [B:B]
- . . . .
 
Upvote 0
Nhờ HYen17 gán vào file giùm mình ! Cảm ơn bạn
 
Upvote 0
Shabava36 giúp bạn í đi!

Mình fải thoát rồi!
 
Upvote 0
Cảm ơn các bạn, mình đã giải quyết được vấn đề.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom