- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¥»©«³Ì«á¥Ñ joey0415 ©ó 2014-7-14 09:42 ½s¿è
¦^´_ 1# joey0415
¥Ø«e¶i«×¡A¥i¥H«ö¤U¥h«á¡A°õÂà¼Æ¦rÂà´«°ê¦rªº¥\¯à¡A¤£¹L·Qn§R°£®É¡A«o¥X¤U¥H¤U°ÝÃD¡A¤£ª¾¦³°ª¤â¥i¥H«ü¾É¤@¤U¡IÁÂÁÂ
Y«ödeleteÁä«á¡A¨ä¤¤¤@®æ·|Åܦ¨ªÅȬO§Ú·Qnªº¡AYn¿ï¾Ü¤@Ó°Ï°ì¡A¨Ò¦prange("b2:c5")«á¡A¦A«ödeleteÁä«á¡A«h·|¥X¿ù¡A¤£ª¾¦³¤èªk¥i¥H¤£n¤@ÓÓ§R°£¡A¤]¥i¥H¿ï¾Ü°Ï°ì§R°£
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Not Intersect(Target, Range("B2:C5")) Is Nothing Then
-
- If Target = 1 Then
- Target = "°ê»y"
- End If
-
- If Target = 2 Then
- Target = "¼Æ¾Ç"
- End If
-
- If Target = 3 Then
- Target = "ªÀ·|"
- End If
-
- If Target = 4 Then
- Target = "¦ÛµM"
- End If
-
- End If
- End Sub
½Æ»s¥N½X |
|