µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ±Ð²¾°Ê¤u§@ªí¥X²{ Class worksheetªºMove¤èªk¥¢±Ñ "104"
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
±Ð²¾°Ê¤u§@ªí¥X²{ Class worksheetªºMove¤èªk¥¢±Ñ "104"
ji12345678
µoµu®ø®§
¥[¬°¦n¤Í
ji12345678
·í«eÂ÷½u
UID
9211
©«¤l
28
¥DÃD
17
ºëµØ
0
¿n¤À
79
ª÷¿ú
79
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP2
¾\ŪÅv
20
©Ê§O
¤k
¦b½u®É¶¡
37 ¤p®É
µù¥U®É¶¡
2012-5-4
³Ì«áµn¿ý
2016-9-29
¤¤¾Ç¥Í
©«¤l
28
¥DÃD
17
ºëµØ
0
¿n¤À
79
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP2
¾\ŪÅv
20
©Ê§O
¤k
µù¥U®É¶¡
2012-5-4
³Ì«áµn¿ý
2016-9-29
1
#
¸õÂà¨ì
»
¥¿§Ç¬Ý©«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2013-5-7 18:11
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
±Ð²¾°Ê¤u§@ªí¥X²{ Class worksheetªºMove¤èªk¥¢±Ñ "104"
²¾°Ê¤u§@ªí¥X²{--°õ¶¥¬q¿ù»~'1004'--ªº¿ù»~ Class worksheetªºMove¤èªk¥¢±Ñ
¨Ï¥Î move ®É¥X²{¤F¿ù»~°T®§~~~~~²¾°Ê¤u§@ªí¥X²{--°õ¶¥¬q¿ù»~'1004'--ªº¿ù»~
Workbooks("¥Dµ{¦¡.xls").Sheets("¸ê®Æªí3").Move before:=Workbooks("·s¼W¸ê®Æ.xls").Sheets("¸T§R") '²¾°Ê ¤u§@ªí======>¥X²{ °õ¶¥¬q¿ù»~'1004'
¨C¤@¦¸³£¥X²{¦b¦P¤@Ó¦a¤è¡I¦ü¥G·h²¾ move¡Bcopyµ¥¥Îªk¦³¦¸¼Æªº¨î¡H
«çºN·|³o¼Ë¡A¦³¤°»ò¤èªk§ïµ½¶Ü¡H
¥H¤U¬°¬ÛÃö¸ê®Æ¦pªþ¥ó
¦]¬°VBA¤º®e¦³¤@¨Çnpºâªº³¡¥÷¡A¤w¥ý¤©¥H§R°£¡A¦ý«O¯d¬[ºc¡A¨Ãªþ¤W°õ¦æªº¬yµ{¹Ï¡C
§Æ±æ¦U¦ì¥ý¶i¨ó§U§ïµ½°ÝÃD~~¡CÁÂÁÂ
ÁÂÁ«ü±Ð~~~~·P®¦~~~~~~~¡I:'(
¤U¸ü
(98.52 KB)
¬yµ{¹Ï
2013-5-7 18:09
°Ý°ÝÃD_102.5.7.rar
(81.93 KB)
¤U¸ü¦¸¼Æ: 5
2013-5-7 18:11
¼Ó¥D¼ö©«
½Ð±ÐVBA ¨â¦æÀx¦s®æªº¦r¦ê¦X¨Ö°ÝÃD~~~~~~~
½Ð±Ð if §PÂ_¦¡¤Óªø ¡A«ç»ò´«¦æ¡H
½Ð±Ð¤@Ó"¨ú±oAÄ檺³Ì«á¤@¦C ¦ì¸m"ªº°ÝÃD
½Ð±Ð¦p¦ó ¨Ï¥Îrange ©M Replace ¨ú¥N¯S©w¦r
½Ð±Ð¦p¦ó¥ÎVBA§ä¥X³Ì¤jÈ¡B²Ä¤G¤jÈ¡K¡K ¸U
¨D§U~~¥ÎVBA»s§@¤@Ó¸ê®Æ´M§ä~¸ê®Æ·h²¾ªº¤è
¦p¦ó¥Îvbaªº¨ç¼Æ·j´MexcelÄ椺ªº¸ê®Æ¡H
¦p¦ó¿é¤J¼Æ¦r¡AÅã¥Ü¹ïÀ³Äæ¦ìªº^¤å¦r¥À¡H
¶}±ÒexcelÀÉ®×«á ¡A˼Ƥ@¬q®É¶¡(©Î¨ì¤F³]©w
¦p¦ó¦bEXCEL¤u§@ªí¨ú±oºô¸ô¤Wªº¸ê®Æ¡H
¦¬ÂÃ
¤À¨É
mark15jill
µoµu®ø®§
¥[¬°¦n¤Í
mark15jill
(ÀH·ÄÆ¿ºªº¦Ð¤ò)
·í«eÂ÷½u
[±s¥Î]¼ç¤ô¸¥
UID
4247
©«¤l
852
¥DÃD
79
ºëµØ
0
¿n¤À
918
ª÷¿ú
918
ÂI¦W
0
§@·~¨t²Î
Windows 7 , XP
³nÅ骩¥»
Office 2007, Office 2003,Office 2010,YoZo Office
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¦t©z
¦b½u®É¶¡
414 ¤p®É
µù¥U®É¶¡
2011-4-8
³Ì«áµn¿ý
2024-2-21
¡@¼ÊºÙ:
ÀH·ÄÆ¿ºªº¦Ð¤ò
¡@ÀY»Î:
[±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
©«¤l
852
¥DÃD
79
ºëµØ
0
¿n¤À
918
ÂI¦W
0
§@·~¨t²Î
Windows 7 , XP
³nÅ骩¥»
Office 2007, Office 2003,Office 2010,YoZo Office
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¦t©z
µù¥U®É¶¡
2011-4-8
³Ì«áµn¿ý
2024-2-21
3
#
µoªí©ó 2013-2-18 15:21
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-2-18 15:22 ½s¿è
¦^´_
1#
ji12345678
¦]¬°¼Ó¥D©Ò¸ß°Ý¤§°ÝÃD¡A¨ÃµL»¡©ú¨âÓÀɮ׬O§_¦P®É¶}±Òª¬ºA
¥H¤Uµ{¦¡½X¥i°Ñ¦Ò¬Ý¬Ý¡A¦ýn¥ý±N¨âÓÀɮ׶}±Ò
Sub ¶×¤J()
Get_Path_LEN = Len(Trim(Application.ActiveWorkbook.FullName)) '¨ú±oÀɮק¹¾ã¦W¸ô®|¤Î¦WºÙ
Get_data_name_LEN = Len(Trim(Application.ActiveWorkbook.Name)) '¨ú±o ÀÉ®× ¦WºÙ
Full_path_name = Left(Trim(Application.ActiveWorkbook.FullName), Get_Path_LEN - Get_data_name_LEN) '¨ú±o §¹¾ã¸ô®|
Get_data_name_COM = Application.ActiveWorkbook.Name '¨ú±oÀɦW----------
'For x = 1 To 100
Open_old_data = Full_path_name & "·s¼W¸ê®Æ.xls"
Workbooks.Open Open_old_data ' ¶}±Ò¸ê®Æ
Windows("¥Dµ{¦¡.xls").Activate
Sheets("¸T§R").Select
Windows("·s¼W¸ê®Æ.xls").Activate
Sheets(Array("¸ê®Æªí1", "¸ê®Æªí2", "¸ê®Æªí3", "¸ê®Æªí4", "¸ê®Æªí5")).Select
Sheets("¸ê®Æªí5").Activate
Sheets(Array("¸ê®Æªí1", "¸ê®Æªí2", "¸ê®Æªí3", "¸ê®Æªí4", "¸ê®Æªí5")).Copy Before:=Workbooks( _
"¥Dµ{¦¡.xls").Sheets(3)
Windows("·s¼W¸ê®Æ.xls").Activate
ActiveWindow.Close
Application.DisplayAlerts = False 'Ãö³¬Äµ§iµøµ¡
'Workbooks("·s¼W¸ê®Æ.xls").Sheets("¸T§R").Delete '¤U¸üªº¸ê®Æ(§R°£ ¸T§R ªº¤u§@ªí)
Application.DisplayAlerts = True '«ì´_ĵ§iµøµ¡
'Workbooks("·s¼W¸ê®Æ.xls").Close SaveChanges:=True '¦Û°ÊÀx¦sÃö³¬
'Next x
End Sub
½Æ»s¥N½X
¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~
¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk
¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM
TOP
ji12345678
µoµu®ø®§
¥[¬°¦n¤Í
ji12345678
·í«eÂ÷½u
UID
9211
©«¤l
28
¥DÃD
17
ºëµØ
0
¿n¤À
79
ª÷¿ú
79
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP2
¾\ŪÅv
20
©Ê§O
¤k
¦b½u®É¶¡
37 ¤p®É
µù¥U®É¶¡
2012-5-4
³Ì«áµn¿ý
2016-9-29
¤¤¾Ç¥Í
©«¤l
28
¥DÃD
17
ºëµØ
0
¿n¤À
79
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
SP2
¾\ŪÅv
20
©Ê§O
¤k
µù¥U®É¶¡
2012-5-4
³Ì«áµn¿ý
2016-9-29
2
#
µoªí©ó 2013-2-12 09:02
|
¥u¬Ý¸Ó§@ªÌ
½Ð±Ð²¾°Ê¤u§@ªí¥X²{--°õ¶¥¬q¿ù»~'1004'--ªº¿ù»~
¨Ï¥Î move ®É¥X²{¤F¿ù»~°T®§~~~~~²¾°Ê¤u§@ªí¥X²{--°õ¶¥¬q¿ù»~'1004'--ªº¿ù»~
Workbooks("¥Dµ{¦¡.xls").Sheets("¸ê®Æªí3").Move before:=Workbooks("·s¼W¸ê®Æ.xls").Sheets("¸T§R") '²¾°Ê ¤u§@ªí======>¥X²{ °õ¶¥¬q¿ù»~'1004'
¨C¤@¦¸³£¥X²{¦b¦P¤@Ó¦a¤è¡I¦ü¥G·h²¾ move¡Bcopyµ¥¥Îªk¦³¦¸¼Æªº¨î¡H
«çºN·|³o¼Ë¡A¦³¤°»ò¤èªk§ïµ½¶Ü¡H
¥H¤U¬°¬ÛÃö¸ê®Æ¦pªþ¥ó
ÁÂÁ«ü±Ð~~~~·P®¦~~~~~~~¡I
°Ý°ÝÃD.rar
(15.31 KB)
¤U¸ü¦¸¼Æ: 17
2013-2-12 09:00
TOP
ÀR«ä¦Û¦b :
ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·