check whole sheet color cells and report subjects

williamwclee

下載 (41.57 KB)

2024-7-10 11:34

check whole sheet red cells
find out D4 and E5
then report
devid, 5/6/2024
tome, 7/8/2024

unfairness

首先要知道red cells係唔係淨係會出現喺column D or column E

用vba寫唔會同你check晒column A to column Z (or column ZZ)，唔係晤得不過個for loop會好冇效率

via HKEPC IRF 5.1.14 - iOS(5.1.1)

ivanyung

1. Sub FindRed()
   
2.     Dim Target As Range
   
3.     For Each Target In ActiveSheet.UsedRange
   
4.         If Target.Interior.Color = vbRed Then
   
5.             Debug.Print Cells(Target.Row, 1) & ", " & Cells(Target.Row, 2)
   
6.         End If
   
7.     Next
   
8. End Sub

複製代碼