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

Ãö©óVBA¥t¦sÀɮצWºÙ

¦^´_ 10# Hsieh


    Hsieh¤j¤j ¤£¦n·N«ä «e´X¤Ñ¤ñ¸û¦£ ²{¦b¤~¦³ªÅ
¨ä¹ê§Ú¨º­Ó°ÝÃD¥D­n¬O¤S¸I¨ì©R¦W¤è¦¡ "¤ë¥÷"&"¼Æ¦r"
¼Æ¦rªº®æ¦¡³¡¥÷...10¥H¤Uªº¼Æ¦r«e­±¨S¦³"0"...¤£¹L§Ú¤w¸g­×§ï¦n¤F

³Ì«á§Ú¦³´ú¸Õ
¤j­P¤W³£¥i¥¿±`¹B§@
¤£¹L§Ú«á¨Óµo²{¦³¤@­Ó¤p°ÝÃD
¦pªG§â¤§«eÀx¦sªº¨ä¤¤¤@­ÓÀɮקR°£±¼
¤§«áªºÀx¦sÀÉ®×´N·|¥X²{°ÝÃD¤F
·|¸ò³Ì«á¤@¦¸Àx¦sªºÀɮצWºÙ­«½ÆÀx¦s
§Ú¥H¬°¬O§Ú¦³¤£¤p¤ß§ï¿ùµ{¦¡½X
¥ÎHsieh¤j¤jªº­ì©l½X¥h´ú¸Õ
¤]¬O¦³¤@¼Ëªº±¡ªpµo¥Í...

TOP

¦^´_ 11# peter9527

¨º´N­n§ä¨ì³Ì¤j½s¸¹ªºÀɦW
  1. Function topfile(fn$, fd$) As Integer
  2. fs = Dir(fd & fn)
  3. Do Until fs = ""
  4. If Val(Replace(fs, Val(fn), "")) > topfile Then topfile = Val(Replace(fs, Val(fn), ""))
  5. fs = Dir
  6. Loop
  7. End Function
  8. Sub Save_File()
  9. Dim f$
  10. d = Format(Date, "yymm")
  11. f = ThisWorkbook.Path & "\"
  12. k = Format(topfile(d & "*.xls", f) + 1, "00")
  13. fs = f & d & k & ".xls"
  14. yn = MsgBox("¬O§_¥t¦s¬°" & d & k & ".xls", vbYesNo)
  15. If yn = 6 Then ThisWorkbook.SaveAs fs
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD