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

[µo°Ý] ¦p¦ó§âSHEET¥t¦s¦¨BOOK

[µo°Ý] ¦p¦ó§âSHEET¥t¦s¦¨BOOK

¦p¦ó§âSHEET¥t¦s¦¨BOOK¡A¨Ã¥B¥HSHEETªº¦W¦r¬°ÀɦW

¨Ò¦p¡G
book¡÷sheet1,sheet2,sheet3

¥[¤u«á

book¡÷sheet2,sheet3
book(sheet1)¡÷sheet1
ªì¾ÇVBA¥E¨ìtwbts

¥»©«³Ì«á¥Ñ play9091 ©ó 2011-7-12 22:49 ½s¿è

SHEET2(List)ªºAÄæ¸Ì­±ªº¦WºÙ,¦³­«½Æªº,
¼Æ¦r¦³­«½Æ¡A¦ý¬O«á­±¦³¡u_A¡v¡B¡u_B¡v¡A©Ò¥H¤£ºâ¬O­«½Æ

¤°»ò±ø¥ó°Ú
SHEET1ªº¶i¶¥¿z¿ï±ø¥ó

§Ú¦n¹³ª¾¹D«ç»ò°µ¤F¡K¡KÀ³¸Ó¬O¹³¤U­±³o¼Ë¤l¡I
    Sheets.Add.Name = Sheets("List").Range("A" & I)
ªì¾ÇVBA¥E¨ìtwbts

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-12 16:21 ½s¿è

¦^´_ 4# play9091
§Ú·Q­n°µªº¬O¡A¥t¦sªºÀɦW¬OSHEET2¸Ì­±ªº¦WºÙ¡A©Î¬O¶}¥X¨ÓªºSHEET¡BBOOK´N¤w¸g¬O¨º­Ó¦WºÙ¡K¡K
SHEET2(List)ªºAÄæ¸Ì­±ªº¦WºÙ,¦³­«½Æªº,

²³æ¨Ó»¡´N¬O¡A¥ÎSHEET2¨Ó·í±ø¥ó¿z¿ïSHEET1¡AµM«á¥Î±ø¥ó¨Ó·íÀɦW¥t¦s¡I¡I¡I
¤°»ò±ø¥ó°Ú

TOP

¥»©«³Ì«á¥Ñ play9091 ©ó 2011-7-12 11:19 ½s¿è

§Ú¦bSHEET1¸Ì­±¦³¤@¤j°ïªº¸ê®Æ¡A§Ú¥ÎSHEET2¨Ó¿z¿ï«á¡A·Q­n§â¸ê®Æ¶}¤@­Ó·sªºSHEET©Î¬OBOOK¶K¤W¡AµM«á¥t¦s¡C

§Ú·Q­n°µªº¬O¡A¥t¦sªºÀɦW¬OSHEET2¸Ì­±ªº¦WºÙ¡A©Î¬O¶}¥X¨ÓªºSHEET¡BBOOK´N¤w¸g¬O¨º­Ó¦WºÙ¡K¡K

²³æ¨Ó»¡´N¬O¡A¥ÎSHEET2¨Ó·í±ø¥ó¿z¿ïSHEET1¡AµM«á¥Î±ø¥ó¨Ó·íÀɦW¥t¦s¡I¡I¡I

§Ú¥Ø«e¥u°µ¥X¤F¡A¶i¶¥¿z¿ï©M¤@¨Ç§Ú·Q¨ìªºªF¦è¦Ó¤w¡A±µ¤U¨Ó´N¬O¦sÀɪº°ÝÃD¤F¡K¡K¦p¥I¥ó¡K¡K

setuptime (1).rar (77.54 KB)
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 1# play9091
BOOK©MSHEET ¬O¤£¦Pªºª«¥ó  ©ÒÁ|ªº¨Ò¤l  ±ø¥ó­n»¡²M·¡
Ãþ¦ü http://forum.twbts.com/thread-4064-1-1.html ¶Ü?

TOP

¤u§@ªí·|¨Ì¾Ú«ü©w½d¥»ÀÉ¡A³v¨B·s¼WExcel½d¥»Local¥Î1¡BExcel½d¥»Local¥Î2¡B¡B¡ASheet §Ú«h¥uª¾¹D¨Ï¥Î Copy «á¦Û°Ê¥[(2)¡B(3)
³o¬O³Ì²³æªº¡A­n¤£±o¥ÎÅܼơA¦ý¤Ó³Â·Ð
¦p³æ¯Â¼Æ¦r»¼¼W¥i¥Î

Sub NewWKB()

Set wkb = Workbooks.Add(Template:="C:\Excel½d¥»Local¥Î.xls") ' ¤Þ¥Î½d¥»¡A«ü©w½d¥»ÀÉ®×
MsgBox wkb.Name


Sheets(1).Copy Before:=Sheets(1)


End Sub

Sub NSHT()


Sheets(1).Copy Before:=Sheets(1) '·s¼W¤u§@ªí¡A¥ý©R¦W sheet(1)


End Sub

TOP

¶}·ssheet©Îbook¨Ã¥B¦Û°Ê©R¦W

·Q½Ð°Ý¤@¤U¥ý¶i­Ì¦³¨S¦³¿ìªk«ü©w·s«Ø¥X¨ÓªºBOOK©ÎSHEER¦WºÙ¡C

A1 123
A2 456
A3 789
A4 753

·s«Ø¥X¨Óªº²Ä¤@­Ósheet©Îbook¦WºÙ¥s123¡A²Ä¤G­Ó¥s456¡A²Ä¤T­Ó¥s789¡K¡K¡K

¤W­±¥u¬OÁ|­Ó¦C¦Ó¤w¡K¡K¤£ª¾¹D¦³¨S¦³¿ìªk¹F¦¨¡A§Ú·Q¤F¦n¤[¨S¦³¿ìªk¸Ñ¨M
ªì¾ÇVBA¥E¨ìtwbts

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD