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

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

¥»©«³Ì«á¥Ñ 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«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD