- ©«¤l
- 66
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 99
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-12
- ³Ì«áµn¿ý
- 2023-10-26
|
¥»©«³Ì«á¥Ñ reangame ©ó 2014-5-27 23:45 ½s¿è
¦^´_ 1# cict4
±z¦n¡G
¤p§Ì¤]¬Oè¾Ç²ßVBA¤¤¡A¤£¹L§Ú¨Ì·Ó±zªº»Ý¨D¯à·Q¨ìªº¦p¤U¡G
¤@¡BÀɮ׶}±Ò®É¡A¥ý»s§@¤Hûµn¤Jªí³æ¡A±Nµn¤J¤Hû¸ê®Æ¿é¤J¨ì¤Hû¦W¥U
¤G¡B¨Ì·Ó±zªº»Ý¨D¥h»s§@¤£¦PÅvªº¥\¯à¡AÀ°±z°_ÓÀY¡Aµ{¦¡½X¦p¤U¡G- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Set sh = Sheets("¤Hû¦W¥U")
- pena = sh.Cells(3, 1).Value
- Set r = sh.Columns("B").Find(pena)
- If Not r Is Nothing Then
- pena = sh.Cells(r.Row, 1).Value
- End If
- Select Case pena
- Case 1 To 5
- MsgBox "²Ä¤@Åv"
- Case 6 To 9
- MsgBox "²Ä¤GÅv"
- End Select
- End Sub
½Æ»s¥N½X ¥H¤W¡A¬O¤p§Ìªº·M¨£¡A·íµM½×¾Â¤¤°ª¤â«Ü¦h¡A¦A¬Ý¬Ý¦³¨S¦³°ª¤â¥i¥H¨ó§Uªº§a¡I
¸É¥R¤@¤U¡An¥ý³Ð¥ß¤@Ó¤À¶¥s°µ¡i¤Hû¦W¥U¡j¡A²Ä¤@Ä欰1¨ì10©Î§ó¦hªº½s¸¹¡A²Ä¤GÄ欰¤Hû©m¦W¡A²Ä¤TÄ欰µn¤J¤Hû©m¦W
µM«á¡An¦b¿é¤J¸ê®Æ¶±ªº¿é¤J¤W±ªºµ{¦¡½X¡C |
|