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

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

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

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

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

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

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



¥»©«³Ì«á¥Ñ joey0415 ©ó 2014-7-14 09:42 ½s¿è

¦^´_ 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°£
  1. Private Sub Worksheet_Change(ByVal Target As Range)

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh

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

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

¦A¦¸·PÁ¶Wª©

TOP

¦^´_ 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­È
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh

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

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD