phuongvq123
Thành viên tiêu biểu

- Tham gia
- 15/4/20
- Bài viết
- 524
- Được thích
- 331
Sub TimMaFieu()
Dim Rng As Range, sRng As Range
Dim MyAdd As String: Dim SoLuong As Integer, Tim As Variant
Set Rng = [A2].CurrentRegion
Tim = [D2].Value
Set sRng = Rng.Find(Tim, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
SoLuong = SoLuong + 1
sRng.Interior.ColorIndex = 38
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
MsgBox SoLuong
End If
End Sub