±Ï§U!°õ¦æ¶¥¬q¿ù»~ "1004",½Ð¤º¬Ý ·PÁ¤F!
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
¥»©«³Ì«á¥Ñ icestormerss ©ó 2011-8-13 20:36 ½s¿è
oobird ¤j ½Ð°Ý ¦³ªk¤l§âWEB¬d¸ß¤ºªº³sµ²¤@°_COPY¹L¥h?
è¤~ªº¬O¥i¥H¹B§@¤F¦ýÅܦ¨¥u¦³¯Â¤å¦r WEB¬d¸ßªº¥\¯àÓý®ø¥¢¤F ·PÁ§Aªá®É¶¡À°§Ú^^
ªÑ²¼¥N½X§ó·s.rar (7.13 KB)
§Ú§âÀɮפW¶Ç µ{¦¡¬O¥i¥H¶]¤]«Ü¶¶§Q¤£¹LÅܦ¨¯Â¤å¦r«á ´N¥¢¥hWEB¬d¸ß¥\¯à¤F»¡ ¤£ª¾§A¦³¨S¦³¤°»òªk¤l¥i¥H¥i¥H³s¦PWEB ¬d¸ß¥\¯à¤]¤@°_¨ÖCOPY¹L¥h? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
- Sub NN()
- Sheets("sheet1").UsedRange.Copy
- For i = 1 To 100
- With Sheets.Add(After:=Sheets(Sheets.Count))
- .Name = "w" & i
- ActiveSheet.Paste
- End With
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
¥»©«³Ì«á¥Ñ icestormerss ©ó 2011-8-13 21:18 ½s¿è
¦^´_ 12# oobird
¦³¤F¥i¥H³s¦PWEB¬d¸ß¥\¯à³£COPY¹L¥h¤F.¤£¹L..¥X²{1Ó·s°ÝÃD(쥻¥t¤@Ó°ÝÃD¦n¤F)
1:¦pªG¥N½X¬O¦bA5¿é¤J(¿é¤J«á«ö¤UENTER,¶i¦æ§ó·s)
èCOPY¹L¥hªº¤u§@ªíÁöµM¤]¦³WEB¬d¸ß¥\¯à¦b¦ýÓý¤£¬O³sµ²¦b¦P¤@¤u§@ªí¤ºªºA5¦Ó¬O³sµ²¦bSHEET1¤¤ªºA5®æ
:¦¬¦^²Ä¤GÓ°ÝÃD ,¦A§Ú¦sÀɫ᫶} ¥i¥H¥¿±`¦Û°Ê«ö¥Ø¼Ð®æ(A5)¤ºªº¸ê®Æ¼Æ¦rÅܰʦӦ۰ʧó·s¤F^^
OOBIRD¤j °w¹ï²Ä¤@Ó°ÝÃD¦³ªk¤l¶Ü^^? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¬Ý¤£À´¡C¦pªG¥N½X¬O¦bA5¿é¤J(¿é¤J«á«ö¤UENTER,¶i¦æ§ó·s)~³o¬qµ{¦¡¦bþ¸Ì¡H§AÀ³¸Óקï³o¬qµ{¦¡§r¡C |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
¥»©«³Ì«á¥Ñ icestormerss ©ó 2011-8-13 21:33 ½s¿è
¬Ý¤£À´¡C¦pªG¥N½X¬O¦bA5¿é¤J(¿é¤J«á«ö¤UENTER,¶i¦æ§ó·s)~³o¬qµ{¦¡¦bþ¸Ì¡H§AÀ³¸Óקï³o¬qµ{¦¡§r¡C
oobird µoªí©ó 2011-8-13 21:17
³o¼Ë»¡¦n¤F ¦pªGA5®æ §Ú¿é¤J2374 ¥¿±`¨Ó»¡ WEB¬d¸ß·|¦Û°Ê§ó·s(³o§Ú¦³³]¦n¤F)
«ö¥H«e§Úª½±µ¥ÎCOPY¹L¥h«á ·sªº¤u§@ªí¤WªºWEB¬d¸ß³sµ²·|¦Û°Ê³sµ²¦b·sªº¤u§@ªí¤WªºA5 ¦Ó¤£¬O¦b쥻(SHEET1)¤WªºA5
´«¨¥¤§.¥H«e§Ú¥ÎCOPY¦b½Æ»s«á ¤GÓ¤u§@ªí¦U¦Û¦³¦U¦ÛªºWEB ¬d¸ß¥\¯à
(¦bSHEET1¤WªºA5¿é¤J¼Æ¦r¥u·|§ó·sSHEET1ªº,¦bW1¤WªºA5¿é¤J¼Æ¦r¤]¥u·|§ó·sW1ªº)
¦ý²{¦bÓý·|Åܦ¨ W1¤Wªº³sµ²¨ìSHEET1¤WªºA5(·íSHEET1¤WªºA5®æ¼Æ¦rÅܰʮɤG±i¤u§@ªí·|¤@°_§ó·s¨ì¦P¤@®a¤½¥q¤W)
·íµM³o³¡¥÷¥i¥H¤â°Ê§ï,¤£¹LWEB¬d¸ß¤£¤î¤@Ó ¦pªG¨C¤@ÓCOPY¹L¥hªº³£n¤@Ó¤@ÓWEB ¬d¸ß§ï¥¦ ,´N³Â·Ð¤F»¡
¤£ª¾§Ú³o¼Ë»¡ ·|¤£·|»¡¤£©ú¥Õ©O^^
§Úè¤~¸ÕªÌ¥Î¥¨¿ý¬Ý¯à¤£¯à¿ý¨ì¤â°ÊÂIÀ» [WEB¬d¸ß°Ï]>°Ñ¼Æ¤W ¥H¤U¦CÀx¦s®æ°µ¬°°Ñ¼ÆȨӷ½
µ²ªG®Ú¥»¿ý¤£¨ì»¡~~
http://jinnsblog.blogspot.com/2008/10/excel-query-dynamically-update-data.html <<¦Û°Ê§ó·sªºWEB ¬d¸ß §Ú¬O¬Ý³o¸Ì¾Çªº |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
¦^´_ 15# icestormerss
¬Q±ßªá´X¤p®É¦b¨º¬d¬Ý¬Ýºô¸ô¸ê®Æ¤Î´ú¸Õ
µo²{¯uªº¦n¹³³£¬O©T©w¦¸¼Æ´N·|¥X¿ù
½Æ»s«e±i¼Æ--½Æ»s¤¤¥X¿ùªº±i¼Æ
2---------------105
3---------------103
4---------------102
5----------------99
6----------------99
7----------------98
8----------------96
9----------------95
10---------------93
¥t¥~§Úµo²{ ¦pªG¥Îªº¬O :
worksheets(1).copy
´Nºâ¬O¨ì¤F200±iworkbooks¤]¤£·|¥X¿ù©O..
µM«á§Ú´N·Q¨ì.¤£µM.¥ý¥Îworksheets(1).copy «á¦A¥Î MOVEªº¤èªk²¾¦^¨Ó,µ²ªG¿ù»~´«¦¨104:MOVE ¤è¦¡¥¢±Ñ..(¤j¬ù¬O100±i)
§Ú¦b·Q·|¤£·|¬O¹ï©ó¦b¤@©w®É¶¡¤º(¥´¶}-Ãö³¬EXCEL)¼g¤J¦P¤@workbook ¤ºªº¦³¦¸¼Æ¨î? ¤£µM¬°¤°»ò ¥Îworksheets(1).copy ¨ì200¤]¤£·|¥X¿ù?
¥t¥~OOBIRD¤jªºµ{¦¡½X²{¦b³£«Ü¶¶§Q¥i¥H°õ¦æ.¦ýÁÙ¬O¥d¦b¦P¤@Ó°ÝÃD WEB¬d¸ßªº°Ñ¼Æ³sµ²®æ ¨Sªk³s¦b¦Û¤v¤u§@ªí¤W»¡ ¤£ª¾¦³¤H¦³ªk¤l¶Ü??
(쥻¬O·Q»¡¤£µM´N½Æ»s¹L¥h«á¦A¥Îµ{¦¡¥h§ï¥Lªº³sµ².¦ýµo²{(§Ú¥ý¥Î¥¨¶°¿ý)®Ú¥»¿ý¤£¨ì,§Ú¤]§¹¥þ¤£ª¾«ç¤U¤â¼g) |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
ÁÙ¬O¨S»¡¨ì«ÂI
¦p§Asheet1ªºa5¬O2317¡A§A¥Î¥ô¦ó¤èªkcopy¡A¨CÓ·sªºªí¤W³£¬O2317¡A¤£¥i¯à§ïÅܦ¨§Oªº¡C
¦Ó§AÂIÀ»a5®É·|¦Û°Ê§ó·s¡A³o¬OWorksheet_SelectionChange¨Æ¥ó¡A§An¶K¤W¨Ó§O¤H¤~¦³¥i¯àÀ°§A§ïªº¡C |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
¥»©«³Ì«á¥Ñ icestormerss ©ó 2011-8-14 11:09 ½s¿è
ÁÙ¬O¨S»¡¨ì«ÂI
¦p§Asheet1ªºa5¬O2317¡A§A¥Î¥ô¦ó¤èªkcopy¡A¨CÓ·sªºªí¤W³£¬O2317¡A¤£¥i¯à§ïÅܦ¨§Oªº¡C
¦Ó ...
oobird µoªí©ó 2011-8-14 10:32
SORRY §Ñ¤FªþÀÉ §Ú¦A§Ë¤@¦¸
ªÑ²¼¥N½X§ó·s1.rar (7.79 KB)
<<³o¬O®Ú¾ÚOOBIRD¤jªº´£¨Ñªºµ{¦¡½X°õ¦æªº
¦bSHEET1ªºB1¬O°Ñ¼Æ¨Ó·½®æ(WEB ¬d¸ß¥\¯à)
¥un¼Æ¦rÅܰʦb¥k¤UªºE8(¥kÀ»¥i¥H¥´¶}°Ñ¼Æ>¥HSHEET1!$B$1®æ¬°°Ñ¼ÆȨӷ½)·|¾ãӦ۰ʧó·s
µM¦Ó ¦pªG¬O±Ä¥Îworksheets(1).copy after:worksheets(worksheets.count)¤è¦¡
·íSHEET1ªºB1¼Æ¦rÅÜ°Ê¥u·|§ó·sSHEET1¤WªºE8
·íW1ªºB1¼Æ¦rÅܰʤ]¥u·|§ó·sW1¤WªºE8
¨Ï¥ÎPASTE¤è¦¡ªº°µªk ¤]³£·|¦³WEB¬d¸ß
¥u¬OÅܦ¨W1¤u§@ªíªºE8¤]¬O³sµ²¨ìSHEET1ªºB1(¦ý§Ú»Ýnªº¬O³sµ²¦bW1¤WªºB1)
¦Ó¥B¥Î¥¨¶°ªº¤è¦¡¨Sªk¿ý¨ì¤â°Ê§ï°Ñ¼Æ¨Ó·½®æ,§Ú¤]¤£ª¾¯à¤£¯à³z¹LVBA§ï¼g
¦A¦¸·PÁ§A¼·®É¶¡¦^ÂÐ^&^ |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Sub Macro2()
For i = 1 To 200
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "w" & i
Next
End Sub
§Ú³o¼Ë200¦¸¤]¨S°ÝÃD§r¡H |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-13
- ³Ì«áµn¿ý
- 2011-8-19
|
Sub Macro2()
For i = 1 To 200
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
ActiveShee ...
oobird µoªí©ó 2011-8-14 11:31
-_-!!..Ãø¤£¦¨¬O§Ú¥D¾÷¤£°÷¤O?©Ç¤F §Ú¥Î¤WÀYªº¶]ªk «Ü§Ö´N¥X°ÝÃD¤F»¡ |
|
|
|
|
|
|