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

[µo°Ý] Ãö©ó¦Û°Ê¶ñ¤Jªº°ÝÃD

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-29 21:50 ½s¿è

¦^´_ 3# littlea
¬¡­¶Ã¯   µøµ¡¤U­±ªº¤u§@ªí¼ÐÅÒ «ö¤U¥kÁä ->¿ï¨ú  ´¡¤J..    «ö¤U Excel 5.0 ¹ï¸Ü¤è¶ô
VBA ¥i¥Î INPUTBOX ¨ú¥N DialogSheets("½Ð¿é¤J¤é´Á").SHOW

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-30 11:14 ½s¿è

¦^´_ 7# littlea
§A¤Ö¤F Åã¥Ü DialogSheets("½Ð¿é¤J½s¸¹").Show  «ö¤U½T©w«á©Ò­n°õ¦æªº¥¨¶°
³o¬OExample.xls ªº§@ªk
¦p¹Ï1 ¹ï¸Ü®ØªºÃäªu «ö¤U¥kÁä Åã¥Ü ¥\¯àªí->¥¨¶°


¹Ï2: ¿ï©w¥¨¶° «á «ö¤U½T©w

TOP

¦^´_ 9# littlea
½Ð§A±N Sheet6(¥X³f³qª¾³æ(½d¥»)) ª«¥óªºµ{§Ç °Å¤U½Æ»s¨ì Module1 ¸Õ¸Õ¬Ý
¦]¬° Sub test()µ{§Ç¬O¼g¦bSheetª«¥ó ¸Ì Sheet6(¥X³f³qª¾³æ(½d¥»))
¸Ì­±ªº Cells ¨S¦³«ü©ú¤u§@ªí ´N¬O¦b Sheets("¥X³f³qª¾³æ(½d¥»)") ªºCells
Sub test()µ{§Ç ²¾¨ì  Module1 (¤@¯ë¼Ò²Õ) ¤§«á Cells ¦bSheets("CL221").Select  ¤§«á·|¬O¬°§@¥Î¤¤¤u§@ªíªº Cells

½Ð°O±o­n±N DialogSheets("½Ð¿é¤J½s¸¹").Show ªº¥¨¶° «ü©w¦n

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-30 17:05 ½s¿è

¦^´_ 11# littlea
¦bVBA¬Oµ¡¤¤
Sub test()
±Æ§Ç
Dim d%
I = 17
Do
    I = I + 1
    Sheets("¥X³f³qª¾³æ(½d¥»)").Select
    a$ = Cells(I, 1)
    If a$ = "" Then Exit Do
    Sheets("CL221").Select
     J = 8
     Do
      J = J + 1
      If Cells(J, 1) = "" Then Exit Do    '³o¦æ¦p¹Ï «öF9 ³]¤U ¤¤Â_ÂI ¤¤Â_«á   «öF8³v¦æ°õ¦æ      
      Debug.Print Cells(J, 1) & ";" & a$     '³o¦æ¥i¥Î À˵ø->  §Y®É¹Bºâµøµ¡    ¨Ó¬d¬ÝÅܼƭÈ
      If Cells(J, 1) = a$ Then
         Sheets("¥X³f³qª¾³æ(½d¥»)").Select
        P$ = Cells(I, 6)
         d% = DialogSheets("½Ð¿é¤J½s¸¹").EditBoxes(1).Text
         Sheets("CL221").Select
         Cells(J, d% + 14) = P$
        Exit Do
      End If
     Loop
   Loop
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD