圖一
Private Sub Worksheet_Change(ByVal Target As Range)
X = Sheet1.[B65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 2) = "10" Then
Rows("" & M & ":" & M & "").Select
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
Y = Y + 1
End If
Next
End Sub作者: hcm19522 時間: 2020-3-19 10:34