[µo°Ý] ¦U¦ì¦Ñ®vvba §ïµ½Àò¨ú«ü©w­¶ªºµ{¦¡¤º¦³µ{§Ç¥N½X!

marco2000

1. Private Sub OptionButton1_Click() 'for default page
   
2. Dim Arr(1 To 20) As String
   
3. 'Dim thisworkbook As Workbook
   
4. 
   
5. Arr(1) = "xxx1109"
   
6. Arr(2) = "xxx1160"
   
7. Arr(3) = "xxx1150"
   
8. Arr(4) = "xxx1110"
   
9. Arr(5) = "xxx1130"
   
10. Arr(6) = "xxx1141"
    
11. Arr(7) = "xxx1171"
    
12. Arr(8) = "xxx1172"
    
13. Arr(9) = "xxx1173"
    
14. Arr(10) = "xxx1176"
    
15. Arr(11) = "xxx1174"
    
16. Arr(12) = "xxx1175"
    
17. Arr(13) = "xxx1623"
    
18. Arr(14) = "xxx1180"
    
19. Arr(15) = "xxx1201"
    
20. Arr(16) = "xxx1610"
    
21. Arr(17) = "xxx1621"
    
22. Arr(18) = "xxx1622"
    
23. Arr(19) = "xxx1630"
    
24. Arr(20) = "xxx1710"
    
25. For A = 1 To 20
    
26. UserForm1.ListBox2.AddItem (Arr(A))
    
27. Next A
    
28. 
    
29. End Sub

½Æ»s¥N½X

¦U¦ì¦Ñ®v,§Ú·Q¿ï¨ú«ü©wªºexcel­¶,¦@¦³20­¶

§Ú²{¦b¼gªº¤èªk¬O©w¤FÀɦW​​arr(1)xxx1109,

Á|¨Ò²Ä¤@­Ó¬Oxxx1109,·í­¶¦W¬Oxxx1109


´N·|¦bListBoxÅã¥Ü,¦ýxxx¬O·|Åܰʪº,¼Æ¦r´N¤£·|ÅÜ

xxx¤@Âà,¦p§ï¦¨­¶¦Wzzzz1109 §Ú´N¿ï¨ú¤£¨ì¤F

¦³¤èªk¥Î·j¬d¼Æ¦r,±q¦Ó¿ï¨úxxx1109/zzzz1109¶Ü?


§Úªº·N«ä´N¬O¹M¾ú©Ò¦³ªí®æ¦WºÙ
µM«á´£¨ú¨C­Óªí¦WºÙ³Ì«áªº¥|­Ó¦r²Å¶i¦æ¤Ç°t¡A¦A²K¥[¶i¦Cªí¡C
½Ð°Ý¦U¦ì¥i¥H¼gµ{§Ç¥N½X¥X¨Ó±Ð±Ð§Ú¶Ü??


¤W¶Ç¤Fªþ¥ó,¨D±Ð

marco2000

¦^´_ 2# Kubi


  §Ú¥ý¸Õ¸Õ,·PÁ§Aªº¦^ÂÐ:'(

marco2000

¦^´_ 2# Kubi


¤j¤j§Aªºµ{§Ç¥N½X,«ÜÀ°¨ì§Ú
¥t¥~½Ð°Ý¤j¤j§AÁÙ·|¦bUserForm1.ListBox2
Åã¥Ü¿ï¨ú¤F¦h¤Ö­ÓÀÉ®×?§Úªº·N«ä¬O¥Î§Aªºµ{§Ç,¦bUserForm1.ListBox2,§ä¨ì¦³3­ÓÀÉ®×
´N·|¥X²{"¤w¿ï¨ú3­ÓÀÉ®×"ªº¥y¤l¶Ü

marco2000

¦hÁªO¥D´£¿ô,³o¬OexcelÀÉ

marco2000

¸Õ¤F°Õ,¤j¤j§A«Ü±j,¬O§Ú·Q­nªº®ÄªG
§Ú·Q¦b¼u¥X¨ìMsgBox¥[YES/NO
YES´N¹B¦æ¥t¤@­ÓCommandButton3_Click  µ{¦¡,NO´N¤£ÅÜ

marco2000

¦^´_ 7# Kubi


    ¯uªºµL¨¥·P¿E

marco2000

¦^´_ 7# Kubi

1.     Dim Msg, Style, Title, Help, Ctxt, Response, MyString
   
2. Msg = "Do you want to continue ?"    ' ©w¸q°T®§¡C
   
3. Style = vbYesNo + vbCritical + vbDefaultButton2    ' ©w¸q«ö¶s¡C
   
4. Title = "MsgBox Demonstration"    ' ©w¸q¼ÐÃD¡C
   
5. Help = "DEMO.HLP"    ' ©w¸q»¡©úÀÉ¡C
   
6. Ctxt = 1000    ' ©w¸q¤º®e¥N½X¡C
   
7.         ' Åã¥Ü°T®§¡C
   
8. Response = MsgBox(Msg, Style, Title, Help, Ctxt)
   
9. If Response = vbYes Then    ' ­Y¨Ï¥ÎªÌ«ö¤U [¬O]¡C
   
10.     MyString = "Yes"    ' ²£¥Í¬Û¹ï¦^À³¡C
    
11. Else    ' ­Y¨Ï¥ÎªÌ«ö¤U [§_]¡C
    
12.     MyString = "No"    ' ²£¥Í¬Û¹ï¦^À³¡C
    
13. End If

½Æ»s¥N½X

³o¬O§Úªºµ{§Ç¥N½X,¦p¦ó­×§ïmsgbox¬O§Aªºµ{§Ç,¨Ã¥[¤Wyes´N¹B¦æ,no´N¤£§@°Ê§@

marco2000

http://www.FunP.Net/246277
§Ú¶Ç¤F§ÚªºÀɤW¥h
®t¤@ÂIÂI,§Ú§Æ±æªº¬O«ö¤FCommandButton3_Click
·|¼u¥Xmsgbox´£¥Ü§Ú¿ï¤F¦h¤Ö­ÓÀÉ,¨Ã¿ïyes ¹B¦æCommandButton3_Clickªºµ{¦¡
¿ïNO¨S¤ÏÀ³,¦^¨ìUserForm1

marco2000

¦^´_  marco2000


½Ð©ó¶}©l¤§ Private Sub CommandButton3_Click()

»P ThisWorkbook.Sheets(1).Use ...
Kubi µoªí©ó 2014-2-18 19:53

¸Õ¤F,¥þ¹ï
§Ú´N¬O·Q­n³o¼Ë,«Ü·P¿E§Aªº¤@¾ã¤ÑÀ°§U:D

marco2000

¦^´_ 13# Kubi

1.     ThisWorkbook.Sheets(1).UsedRange.Clear
   
2.     lb2 = UserForm1.ListBox2.ListCount
   
3.    
   
4.     rr = 7
   
5.     For c = 1 To lb2
   
6.         text1sl = UserForm1.ListBox2.List(c - 1)                        'for copy content
   
7.         pp = rr + 2
   
8.         kk = checkrow
   
9.         arn = "C8" & ":" & "Z" & kk
   
10.         ActiveWorkbook.Worksheets(text1sl).Range(arn).Copy
    
11.         rrn = "B" & rr
    
12.         ThisWorkbook.Sheets(1).Range(rrn).PasteSpecial
    
13.         rr = rr + kk - 5
    
14.         
    
15.         arn2 = "A" & pp & ":" & "A" & (rr - 3)                          'for fill "A" column
    
16.         ThisWorkbook.Sheets(1).Range(arn2) = ActiveWorkbook.Worksheets(text1sl).Cells(8, 3)
    
17.     Next c
    
18.    

½Æ»s¥N½X

¤j¤j§A¬Ý±o©ú¶Ü?
¥i¥H¸ÑÄÀ¤@¤U¶Ü?