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

±Ï§U!°õ¦æ¶¥¬q¿ù»~ "1004",½Ð¤º¬Ý ·PÁ¤F!

¥»©«³Ì«á¥Ñ 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?

TOP

  1. Sub NN()
  2. Sheets("sheet1").UsedRange.Copy
  3. For i = 1 To 100
  4. With Sheets.Add(After:=Sheets(Sheets.Count))
  5. .Name = "w" & i
  6. ActiveSheet.Paste
  7. End With
  8. Next
  9. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ 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¶Ü^^?

TOP

¬Ý¤£À´¡C¦pªG¥N½X¬O¦bA5¿é¤J(¿é¤J«á«ö¤UENTER,¶i¦æ§ó·s)~³o¬qµ{¦¡¦b­þ¸Ì¡H§AÀ³¸Ó­×§ï³o¬qµ{¦¡§r¡C

TOP

¥»©«³Ì«á¥Ñ 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¸Ì¾Çªº

TOP

¦^´_ 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)

TOP

ÁÙ¬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§A­n¶K¤W¨Ó§O¤H¤~¦³¥i¯àÀ°§A§ïªº¡C

TOP

¥»©«³Ì«á¥Ñ 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¸ß¥\¯à)
¥u­n¼Æ¦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¼·®É¶¡¦^ÂÐ^&^

TOP

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

TOP

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»¡

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD