Hsieh

§Úªº¬Ýªk¼Ó¥D¦ü¥G¬O·QÅý¤u§@ªí¥t¦s¦¨XLSÀÉ®×
·s¼W¤@¦Û­qªí³æ,ªí³æ¤¤³]¸m¤@­Ó²M³æ¤è¶ô¤Î¤@­Ó«ö¶s
ªí³æ¼Ò²Õµ{¦¡

1. Private Sub CommandButton1_Click()
   
2. Dim MyDate As String
   
3. MyDate = ListBox1.Text
   
4. ActiveSheet.Copy
   
5. ActiveWorkbook.SaveAs "D:\" & ActiveSheet.[B2] & MyDate & ".xls"
   
6. End Sub
   
7. 
   
8. Private Sub UserForm_Initialize()
   
9. With ActiveSheet
   
10. For Each a In .Range(.[B3], .[B65536].End(xlUp))
    
11.    ListBox1.AddItem a.Text
    
12. Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õµ{¦¡½X

1. Sub OpenForm() '§Ö³tÁäCtrl+m
   
2. UserForm1.Show
   
3. End Sub

½Æ»s¥N½X

¦pªþ¥ó 001.rar (12.96 KB)

¤U¸ü¦¸¼Æ: 18

2010-6-7 18:13

gca78000

¦^´_ 11# Hsieh


    ÁÂÁ¤j¤j«ü¾Éªþ¥ó§ÚÁÙµLªk¤U¸ü
¦ý¨Ìµ{¦¡½X«o·|¥X¿ù

gca78000

¦^´_ 12# gca78000


    MyDate = ListBox1.Text

Hsieh

¦^´_ 13# gca78000


    ­nÂI¿ïLISTBOX1ªº¤é´Á«á¦A«ö«ö¶s

victorl

¦^´_ 10# GBKEE


    ·PÁ  GBKEE ª©¤j«ü±Ð¡A Object¬ÛÃö¤@ª½³£¬O¤p§Ì§Ú¤ñ¸û®zªº¶ô¡AÁ٧Ʊ栠ª©¤j¯à¤£§[«ü¥¿¨Ã´£ÂI¡A¦]¬°»¡¹ê¦bªº¬ÛÃö±Ð§÷¹ê¦b¦³­­¡C