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

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

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


½Ð°Ý¦p¦ó¨Ï¥ÎVBA¹F¨ì¥H¤U®ÄªG
1.ÂI¿ï¡i±Ò°Ê¡j«ö¶s«á¡A¤u§@ªí1.2.3¥ô¦ó½d³ò¡A¥u­n¦³²§°Ê¸ê®ÆªºÀx¦s®æ¡A§¡¦Û°ÊÅã¥Ü¬°¶À©³¬õ¦r
2.¿ï¿ï¡i°±¤î¡j«ö¶s«á¡A°±¤î¦Û°Ê¤Ï¦â¥\¯à¡AµL½×¸ê®Æ¦p¦ó²§°Ê§¡µL»Ý¤Ï¦â®ÄªG

¸É¥R
1.¨Ã«DÂI¿ïÀx¦s®æ¤Ï¦â®ÄªG¡A¤]´N¬OµL½×·Æ¹«ÂI¿ï­þ¤@Àx¦s®æ©Î°±¯d¦b­þ¤@Àx¦s®æ¡A§¡¤£¼vÅT¡C¥u¦³ÂI¿ï¶i¤JÀx¦s®æ²§°Ê¸ê®Æ«á¤~·|¤Ï¦â
2.¤u§@ªí¥i¯à·s¼W©Î´î¤Ö¡A¦]¦¹§Æ±æ¥i¥H«ü©w¡A©Ò¥H¤£¬O¾ã­ÓexcelÀɪº©Ò¦³¬¡­¶Ã¯³£­n¦³¦¹¥\¯à

½d¨Ò
C4:D14¬°­ì©l¸ê®Æ¡AÂI¿ï¡i±Ò°Ê¡j«á¡AC23¡BC30¡BD27¦]¬°¦³²§°Ê¸ê®Æ¡A©Ò¥H¦Û°Ê¤Ï¦â


´ú¸Õ.rar (8.32 KB)
*¦v¤k¤@ªTµL»~*

½Ð°Ý¦p¦ó¨Ï¥ÎVBA¹F¨ì¥H¤U®ÄªG
1.ÂI¿ï¡i±Ò°Ê¡j«ö¶s«á¡A¤u§@ªí1.2.3¥ô¦ó½d³ò¡A¥u­n¦³²§°Ê¸ê®ÆªºÀx¦s®æ¡A§¡ ...
msmplay µoªí©ó 2018-1-8 22:43


¦pªG¨S¦³¤@©w­nVBA¡A¥Î³]©w®æ¦¡¤Æªº±ø¥ó¤]¥i¥H¹F¨ì¡C
1.

2.

3.

´ú¸Õ.zip (293.97 KB)

TOP

¦^´_ 2# kim223824


   k¤j~«D±`·PÁÂÀ°¦£¡A¦ý¨ä¹ê¨º­Ó¤W¤U¹Ï¥Ü¥u¬OÁ|¨Òªº·N«ä°Õ¡I¨Ã¤£¬O¤ñ¹ï®t²§¤Ï¦â¡A¦Ó¬O©Ò¦³½d³ò¥u­n¦³¸ê®Æ³Q²§°Ê§Y¤Ï¦âªº·N«ä
¦Ó¥B¬O§Æ±æ«ö¤U±Ò°Ê«ö¶s¤~¶}©l¸ê®ÆÅܧó¤Ï¦â¡A«ö¤U°±¤î«ö¶s®ÉµL»Ý¤Ï¦â®ÄªG¡AÂæ~~~~~¤£ª¾¬O§_¦³¸Ñ©O¡H
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 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

¦^´_ 4# stillfish00


   s¤j~~~~~~¦n¼F®`³á!!!!³o´N¬O¤p©f©Ò»Ýªº¥\¯à~~~~~~¦A¦¸·PÁ§Aªº¼ö¤ßÀ°¦£³á!!!
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 4# stillfish00


   s¤j~~~~¤£¦n·N«ä¥i¥H¦A½Ð±Ð¤@­ÓÃD¥~ÃD¶Ü´N¬O¦pªG·Q­nÅýÀÉ®×£¸¥´¶}¡u±Ò°Ê¡v®ÄªG´N¦Û°Ê±Ò°Êªº¸Ü¡A¸Ó«ç»ò­×§ï©Î·s¼Wµ{¦¡½X©O¡H
£®´N¬O°£«D«ö¤U¡u°±¤î¡v¡A§_«h¤Ï¦â®ÄªG´N¤@ª½¶}µÛ¡A½Ð°Ý³o¥i¦æ¶Ü¡H
*¦v¤k¤@ªTµL»~*

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

¦^´_ 7# stillfish00


   s¤j~~~~~¦A¦¸·PÁÂÀ°¦££¬!!!
*¦v¤k¤@ªTµL»~*

TOP

¦^´_ 7# stillfish00

stillfish00¤j¡A
¦pªG­ì¸ê®ÆªºÀx¦s®æ¤£µ¥©ó²§°Ê¸ê®Æªº¤º®e¡A©Î¬O²§°Ê¸ê®Æ¦³°µÅܰʮɳ£·|Åܦâ¡A³o¼Ëµ{¦¡½X­n«ç¼Ë°µ­×§ï?

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD