½Ð°Ý¦p¦ó¥ÎVBA¼g Â^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤
- ©«¤l
- 72
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 88
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-6-28
- ³Ì«áµn¿ý
- 2018-11-14
|
½Ð°Ý¦p¦ó¥ÎVBA¼g Â^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤
¥»©«³Ì«á¥Ñ happycoccolin ©ó 2013-8-14 15:59 ½s¿è
½Ð±Ð¦U¦ì¤j¤j~:$
·Q½Ð°Ý¦p¦óÂ^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤©O?
¥Ø«e§Æ±æ¬O¦Û¦æ¿ï¾ÜÀÉ®×A.alsx,¸g¥ÑVBA²£¥Í·sÀÉ®×B.xlsx
A.xlsx B6¶ñ¨ìB.xlszªºB2
A.xlsx C6¶ñ¨ìB.xlszªºD2
A.xlsx D6¶ñ¨ìB.xlszªºU2
A.xlsx E6¶ñ¨ìB.xlszªºX2
A.xlsx G6¶ñ¨ìB.xlszªºAQ2
A.xlsx H6¶ñ¨ìB.xlszªºAR2
¥H¦¹Ãþ±À
¦pªþÀÉ ^^ ÁÂÁÂ~
TEST_0814.zip (13.99 KB)
1.½Ð°Ý¬O§_¤£ºÞ¦h¤Öµ§¸ê®Æ³£¥i¥H¶ñ¤W¥h?
¥Ø«e¬O¨Ï¥Îvlookup°µ ¦ý§Æ±æ¥i§Q¥ÎVBA§¹¦¨
2.ÁÙ¦³½Ð°Ý²£¥Íªº·sÀÉ®×TITLE¬O§_¥i¥H³]©w¦WºÙ?¥Ø«eBÀÉ®×TITLE¨ìAVÄæ(48) |
|
|
|
|
|
|
- ©«¤l
- 72
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 88
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-6-28
- ³Ì«áµn¿ý
- 2018-11-14
|
¦A»¡©ú¤@¤U~«ô°U¦U¦ì¤j¤j¸Ñ´b@@
AÀɮתº¸ê®Æ±qA6¶}©l
Title Block
AAA BBB CCC
QQQ-1234567 OOXX OOXXXX
A B C D E F G H
1 111-2222222 DOG 1 L2902 Normal L2902 AAA123
AAA234
AAA345
1 111-3333333 DOG1 1 L2900 Normal L2900 BBB123
BBB234
BBB345
1 111-4444444 DOG2 1 L290 Normal L290 CCC123
1 111-5555555 DOG3 1 BL290 Normal BL290 DDD123
1 111-6666666 DOG4 1 SK4604 Normal SK4604 EEE123
EEE234
1 111-7777777 DOG5 1 SK8600 Normal SK8600 FFF123
FFF234
1 111-8888888 DOG6 1 SK5200 Normal SK5200 GGG123
B.xlsx
Äæ¦ì¤Ó¦h¶K¤£§¹¥Î»¡©úªº
A.xlsx B6¶ñ¨ìB.xlsxªºB2
A.xlsx C6¶ñ¨ìB.xlsxªºD2
A.xlsx D6¶ñ¨ìB.xlsxªºU2
A.xlsx E6¶ñ¨ìB.xlsxªºX2
A.xlsx G6¶ñ¨ìB.xlsxªºAQ2
A.xlsx H6¶ñ¨ìB.xlsxªºAR2
¥H¦¹Ãþ±À
«ô°U«ô°U¤F!!! |
|
|
|
|
|
|
- ©«¤l
- 4
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-9-19
- ³Ì«áµn¿ý
- 2017-5-14
|
¬Ý¤£À´§An½Æ»s¤º®eªºÅÞ¿è,
¤p§Ì¤]¬O·s¤â,
¤j¦Ü¼g¤F¤@¤U,
¤º®e¥Dn¬Oa.xlsªº¤º®e½Æ»s¨ìb.xls
Sub ¶×¤J¸ê®Æ()
Dim Mypath As String '¸ô®|
Dim Myfile As String '¥Ø«eEXCELÀɮצWºÙ
Myfile = ThisWorkbook.Name
Mypath = InputBox("¿é¤Jn¶×¤JªºÀɮ׸ô®|")
Workbooks.Open Filename:=Mypath & "\b.xls"
Windows(Myfile).Activate
Sheets(1).Cells(1, 1).Copy
Windows("b.xls").Activate
Sheets(1).Cells(1, 1).Select
ActiveSheet.Paste
End Sub |
|
|
|
|
|
|