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

¦³Ãö¥t¦s·sÀÉ°ÝÃD..

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-6-7 18:13 ½s¿è

§Úªº¬Ýª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. Private Sub UserForm_Initialize()
  8. With ActiveSheet
  9. For Each a In .Range(.[B3], .[B65536].End(xlUp))
  10.    ListBox1.AddItem a.Text
  11. Next
  12. End With
  13. 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)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh


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

TOP

¦^´_ 12# gca78000


    MyDate = ListBox1.Text

TOP

¦^´_ 13# gca78000


    ­nÂI¿ïLISTBOX1ªº¤é´Á«á¦A«ö«ö¶s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD