stillfish00

回復 3# msmplay
依下面代碼，然後按鈕指定到巨集 ClickStart 和 ClickStop

Module1

1. Public bIsStart As Boolean
   
2. Public colChange As Collection
   
3. 
   
4. Sub ClickStart()
   
5.     If bIsStart Then MsgBox "已經是啟動狀態": Exit Sub
   
6.     bIsStart = True
   
7.     Set colChange = New Collection
   
8. End Sub
   
9. 
   
10. Sub ClickStop()
    
11.     bIsStart = False
    
12.     If Not colChange Is Nothing Then
    
13.         For Each rng In colChange
    
14.             rng.Interior.Color = xlNone
    
15.             rng.Font.Color = xlAuto
    
16.         Next
    
17.         Set colChange = Nothing
    
18.     End If
    
19. End Sub

複製代碼

ThisWorkbook

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     If bIsStart Then
   
3.         If Sh.Name = Sheets(1).Name _
   
4.             Or Sh.Name = Sheets(2).Name _
   
5.             Or Sh.Name = Sheets(3).Name Then
   
6.             
   
7.             colChange.Add Target
   
8.             Target.Interior.Color = vbYellow
   
9.             Target.Font.Color = vbRed
   
10.         End If
    
11.     End If
    
12. End Sub

複製代碼

stillfish00

回復 6# msmplay
add in ThisWorkbook

1. Private Sub Workbook_Open()
   
2.     ClickStart
   
3. End Sub

複製代碼