c_c_lai

¦^´_ 1# swatt

1. If Target = [h2] Or Target = [i2] Then

½Æ»s¥N½X

§ï¬°

1. If Target.Address = "$H$2" Or Target.Address = "$I$2" Then

½Æ»s¥N½X

§Y¥i¡C

c_c_lai

¦^´_ 3# swatt
Target.Address = "$H$2" ¬O©ú½Tªº«ü¥X [H2] ªº¦ì§}¡C
¥ç§Y¦pªG¦³¥ô¦óÄ欰­È¦³²§°Ê¡A §Y¦æIJµo Workbook_Change()¡A
±µµÛ§PÂ_¸ÓIJ°ÊÄæ¦ì¬O§_¬°   [H2] ©Î [I2] Äæ¦ì­Èªº²§°Ê¡C
±ø¥ó²Å¦X¡A§Y¦æ«ö·Ó²Å¦X±ø¥óÄ~Äò°õ¦æ¡F§_«h¸õÂ÷¡C

c_c_lai

¦^´_ 5# swatt

1. If Target = [h2] Or Target = [i2] Then

½Æ»s¥N½X

¥u­n¤º®eµ¥©ó [h2] ­È ©ÎªÌ¬O [i2] ­ÈªºÄæ¦ì²§°Ê§¡Äݤ§¡C
Ä´¦p¡G [h2]  ¬° ""¡F c6 = "ABC"¡A ·í  c6 «ö DEL ²M°£®É¡A«h  c6  ­È·|µ¥©ó [h2] ­È¡A
©Ò¥H±ø¥ó¦¨¥ß¡C¥H¦¹Ãþ±À¡A°²³] [h2]  = "ABC"¡A ·í¥ô¦óÄæ¦ì­Èµ¥©ó  "ABC"¡A
«h±ø¥ó¦¨¥ß¡C

c_c_lai

¦^´_ 7# swatt
§A¤]¥i¥HÀ³¥Î GBKEE ª©¤jªº½d¨Ò¨Ó©µ¦ù§Aªº»Ý¨D¡G

1.     Set Rng = Range("H2:I2")
   
2.     If Not Intersect(Target, Rng) Is Nothing Then
   
3.         MsgBox "±ø¥ó²Å¦X¡I"
   
4.     Else
   
5.         MsgBox "±ø¥ó¤£¦¨¥ß¡I"
   
6.     End If

½Æ»s¥N½X