Hsieh

¦^´_ 2# joey0415

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [B2:B5]) Is Nothing Then Exit Sub
   
3. Application.EnableEvents = False
   
4. t = IIf(Target(1) = 1, "°ê¤å", IIf(Target(1) = 2, "¼Æ¾Ç", IIf(Target(1) = 3, "ªÀ·|", IIf(Target(1) = 4, "¦ÛµM", Target(1)))))
   
5. Target(1) = t
   
6. Application.EnableEvents = True
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# joey0415
Rangeª«¥ó«á¥[¤W¬A©·¡A¬A©·¤º¼Æ¦r¥Nªíª«¥óªº²Ä´X­ÓÀx¦s®æ
Target(1)«hªí¥Ü²Ä¤@­ÓÀx¦s®æ
­Y¥¼«ü©w³æ¤@Àx¦s®æ¡A«h¿ï¨ú¦h®æ±¡ªp¤U¡ATarget·|¶Ç¦^¤Gºû°}¦C¡A§YµLªk¨ú±o­È

Hsieh

¦^´_ 6# joey0415

Application.EnableEvents
¬OÃö³¬¶}±Ò¨Æ¥óIJµo¡A·íÀx¦s®æÅܰʮɷ|IJµoWorkSheet_Change¨Æ¥óµ{§Ç
­Y¥¼Ãö³¬¦¹¥\¯à¡A«h·|¦]¤º®e§ïÅܦӳsÄòIJµoµ{§Ç¡A³y¦¨µL½aºÉªºÄ²µo
¨Ã«D­nÁ׶}¨ä¥Lµ{¦¡¿ù»~©Ò³]­p