ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ²§°Ê¸ê®Æ¦Û°Ê¤Ï¦â(«DÂI¿ïÀx¦s®æ¤Ï¦â)

¦^´_ 3# msmplay
¨Ì¤U­±¥N½X¡AµM«á«ö¶s«ü©w¨ì¥¨¶° ClickStart ©M ClickStop

Module1
  1. Public bIsStart As Boolean
  2. Public colChange As Collection

  3. Sub ClickStart()
  4.     If bIsStart Then MsgBox "¤w¸g¬O±Ò°Êª¬ºA": Exit Sub
  5.     bIsStart = True
  6.     Set colChange = New Collection
  7. End Sub

  8. Sub ClickStop()
  9.     bIsStart = False
  10.     If Not colChange Is Nothing Then
  11.         For Each rng In colChange
  12.             rng.Interior.Color = xlNone
  13.             rng.Font.Color = xlAuto
  14.         Next
  15.         Set colChange = Nothing
  16.     End If
  17. End Sub
½Æ»s¥N½X
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
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 6# msmplay
add in ThisWorkbook
  1. Private Sub Workbook_Open()
  2.     ClickStart
  3. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD