[µo°Ý] «ü©w°Ï°ì¿é¤J¬Y­È«á§ïÅܦ¨¥t¤@­È

joey0415

°²³]»Ý­n§ïªºªº°Ï°ì¬°range("B2:B5")

§Æ±æ¦b¿é¤J¨Ò¦p
1®É´N·|¶R¤W§ï¦¨°ê»y
2®É´N·|¶R¤W§ï¦¨¼Æ¾Ç
µ¥ªº§Y®É§ïÅÜ

¤£§Æ±æ¦b¥þ³¡³£¿é¤J§¹¦¨®É¡A¤~¥þ³¡§ïÅÜ

¤£ª¾¹D¦³³oºØ¤èªk¶Ü¡H
ÁÂÁÂ

¤U¸ü (25.41 KB)

2014-7-14 00:26

joey0415

¦^´_ 1# joey0415

¥Ø«e¶i«×¡A¥i¥H«ö¤U¥h«á¡A°õÂà¼Æ¦rÂà´«°ê¦rªº¥\¯à¡A¤£¹L·Q­n§R°£®É¡A«o¥X¤U¥H¤U°ÝÃD¡A¤£ª¾¦³°ª¤â¥i¥H«ü¾É¤@¤U¡IÁÂÁÂ

­Y«ödeleteÁä«á¡A¨ä¤¤¤@®æ·|Åܦ¨ªÅ­È¬O§Ú·Q­nªº¡A­Y­n¿ï¾Ü¤@­Ó°Ï°ì¡A¨Ò¦prange("b2:c5")«á¡A¦A«ödeleteÁä«á¡A«h·|¥X¿ù¡A¤£ª¾¦³¤èªk¥i¥H¤£­n¤@­Ó­Ó§R°£¡A¤]¥i¥H¿ï¾Ü°Ï°ì§R°£

¤U¸ü (71.97 KB)

2014-7-14 09:40

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     If Not Intersect(Target, Range("B2:C5")) Is Nothing Then
   
4.    
   
5.         If Target = 1 Then
   
6.             Target = "°ê»y"
   
7.         End If
   
8.    
   
9.         If Target = 2 Then
   
10.             Target = "¼Æ¾Ç"
    
11.         End If
    
12.         
    
13.         If Target = 3 Then
    
14.             Target = "ªÀ·|"
    
15.         End If
    
16.         
    
17.         If Target = 4 Then
    
18.             Target = "¦ÛµM"
    
19.         End If
    
20.    
    
21.     End If
    
22. End Sub

½Æ»s¥N½X

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

joey0415

¦^´_ 3# Hsieh

½Ð°Ý¶Wª©
Target(1)¬O¤°»ò·N«ä¡A§ä¤£¨ì¬ÛÃö¸ê®Æ

¬°¤°¶Wª©³o¼Ë¼g­Y«ö§R°£Á䤣·|¥X¿ù©O¡H

¦A¦¸·PÁ¶Wª©

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­È

joey0415

¦^´_ 5# Hsieh

·PÁÂÀ´80%
­Y¿ï¨úrange(b2:d5)¡A´Nªí¥Ü¿ï¨ú¦h®æ¡AµLªk¨ú±o­È¡A©Ò¥H§R°£®ÉÀ³¸Ó·|¥X¿ù¡A¦Ó¶Wª©¬O¥ÎApplication.EnableEvents = False»PApplication.EnableEvents = True¨ÓÁ×±¼¿ù»~¶Ü¡H

ÁÂÁ«üÂI
­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

joey0415

¦^´_ 7# Hsieh

ÁÂÁ¶Wª©¡A¶R¤W¨Ó½m²ß¡I¦A¦¸·PÁÂ