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

¦p¦ó§Q¥ÎVBA»s§@¦U²ÕÅv­­

¦p¦ó§Q¥ÎVBA»s§@¦U²ÕÅv­­

¦U¦ì¤j¤j ±z¦n:

¤p¾|­è¾Çvba,¦ý¤S«æ©ó¦bexecl»s°µ¥X¦U­Ó¤£¦P¤H­ûªº¹ï©óÀɮפº®e°õ¦æÅv­­,¨Ò¦p:

1~5-¥u¯à¶}°_ÀɮפÎkeyin¸ê®Æ;Àx¦sÀÉ®×´NµLªk­×§ï¥ô¦ó¸ê®Æ.¦A¶}±Ò¤]¤£¯à­×§ï¥ý«e¸ê®Æ!

6 ~ 9-¯à¶}°_ÀÉ®×,keyin¸ê®Æ¤Î¯à­×§ï¸ê®Æ

½Ð°Ý§Ú¸Ó«ç»ò»s§@¥X¥X³o¼ËªºÅv­­©O?§Æ±æ¤j¤j¥i¥HÀ°¦£!!

·P®¦!

¥»©«³Ì«á¥Ñ 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
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Set sh = Sheets("¤H­û¦W¥U")
  3.     pena = sh.Cells(3, 1).Value
  4.     Set r = sh.Columns("B").Find(pena)
  5.         If Not r Is Nothing Then
  6.             pena = sh.Cells(r.Row, 1).Value
  7.         End If
  8.     Select Case pena
  9.         Case 1 To 5
  10.             MsgBox "²Ä¤@Åv­­"
  11.         Case 6 To 9
  12.             MsgBox "²Ä¤GÅv­­"
  13.     End Select
  14. End Sub
½Æ»s¥N½X
¥H¤W¡A¬O¤p§Ìªº·M¨£¡A·íµM½×¾Â¤¤°ª¤â«Ü¦h¡A¦A¬Ý¬Ý¦³¨S¦³°ª¤â¥i¥H¨ó§Uªº§a¡I

¸É¥R¤@¤U¡A­n¥ý³Ð¥ß¤@­Ó¤À­¶¥s°µ¡i¤H­û¦W¥U¡j¡A²Ä¤@Ä欰1¨ì10©Î§ó¦hªº½s¸¹¡A²Ä¤GÄ欰¤H­û©m¦W¡A²Ä¤TÄ欰µn¤J¤H­û©m¦W
µM«á¡A­n¦b¿é¤J¸ê®Æ­¶­±ªº¿é¤J¤W­±ªºµ{¦¡½X¡C
§Ú¬O´µ¦h

TOP

¿Ë·R¤j¤j(reangame )

¤p§Ì,§Ú¬Ý¤F¤@¨â¤Ñ,¥[¤W§Ú¤S¬O­è¶iªùªº·s¤H.
¹ê¦b¬O"¬Ý¤£À´"ªº!

¯u¬O©êºp,¤£¹L§Ú«Ü·Q¾Ç!

¤£¾å±o§A¥i¥H¦A»¡©úÂI¶Ü?!

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD