sieunhi10079
Thành viên thường trực
- Tham gia
- 26/2/07
- Bài viết
- 230
- Được thích
- 196
Trong bảng tính, mình muốn đánh dấu các ô dữ liệu có màu nền khác nhau, mình dùng công thức gì để đếm có bao nhiêu ô? Xin được hướng dẫn! Xin cảm ơn!
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("BColor")) Is Nothing Then
Dim Rng As Range, Rng0 As Range
Dim lDem As Long, bColor As Byte
bColor = Target.Interior.ColorIndex
Selection.CurrentRegion.Select
Set Rng = Selection
For Each Rng0 In Rng
With Rng0.Interior
If .ColorIndex = bColor Then lDem = 1 + lDem
End With
Next Rng0
Target.Offset(, 1) = lDem - 1
Target.Offset(1).Select
End If
End Sub
Bạn cần nói rõ yêu cầu của bạn, cần đổi màu những ô nào ??? Thông thường để đổi màu theo điều kiện thì bạn dùng Conditional Formatting (không cần dùng VBA).hatcamthao đã viết:Hic,
Thế làm thế nào để tự đổi màu nền được nhỉ. Có phải là dùng VBA không.
Xem đếm màu nền:sieunhi10079 đã viết:Trong bảng tính, mình muốn đánh dấu các ô dữ liệu có màu nền khác nhau, mình dùng công thức gì để đếm có bao nhiêu ô? Xin được hướng dẫn! Xin cảm ơn!
Vậy là phải dùng Marco àh? Không có công thức nào dành cho việc này hết đúng không các bạn!?