µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ½Ð±Ð Range ¿ï¨ú¥y¤l
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
½Ð±Ð Range ¿ï¨ú¥y¤l
198188
µoµu®ø®§
¥[¬°¦n¤Í
198188
·í«eÂ÷½u
UID
11471
©«¤l
438
¥DÃD
67
ºëµØ
0
¿n¤À
531
ª÷¿ú
531
ÂI¦W
30
§@·~¨t²Î
win7
³nÅ骩¥»
office 2010
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
297 ¤p®É
µù¥U®É¶¡
2012-10-30
³Ì«áµn¿ý
2024-11-19
°ª¤¤¥Í
©«¤l
438
¥DÃD
67
ºëµØ
0
¿n¤À
531
ÂI¦W
30
§@·~¨t²Î
win7
³nÅ骩¥»
office 2010
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2012-10-30
³Ì«áµn¿ý
2024-11-19
1
#
¸õÂà¨ì
»
¥¿§Ç¬Ý©«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2024-7-18 17:27
|
¥u¬Ý¸Ó§@ªÌ
½Ð±Ð Range ¿ï¨ú¥y¤l
Dim letter as String
Dim k, b as Integer
letter = "E"
K = 23
B = 514
Sheets("Backup").Range(letter & k & ":" & letter & b).Select
§Ú·Q¿ï Backup worksheet ªº Range("E23:E514"), ¥Î¤W±ªºµ{¦¡»¡¿ï¨ú¿ù»~¡A½Ð°ÝþùØ¥X²{°Ý¿ù¤F¡H
¼Ó¥D¼ö©«
½Ð¨D§ï¨}µ{¦¡
½Ð°ÝVBA ªºµ{¦¡¦³¨S¦³¥i¥H¿ë»{¬YÓÀx¦s®æ¤º
¥X²{RUN-TIME ERROR '9': SUBSCRIPT OUT OF
¸óÄæ¹ï¤ñ
½Ð°ª¤HÀ°¦£°£¿ù¡AÁÂÁÂ~
½Ð±Ð§ï¨}³t«×¤èªk
½ÐÀ°¦£Â½Ä¶¤@¤Uµ{¦¡
Àx¦s®æ¥X²{®æ¦¡¬°¤å¦r©Î¶}ÀY¬°³æ¤Þ¸¹ªº¿ù»~
vlookup¦X¦}ªº¸ê®Æ
¦p¦ó¥i¥HÅý¤£¬O"JPM"¤£Åã¥Ü¥X¨Ó¡A¤]¤£·|¯d¤@
¦¬ÂÃ
¤À¨É
198188
µoµu®ø®§
¥[¬°¦n¤Í
198188
·í«eÂ÷½u
UID
11471
©«¤l
438
¥DÃD
67
ºëµØ
0
¿n¤À
531
ª÷¿ú
531
ÂI¦W
30
§@·~¨t²Î
win7
³nÅ骩¥»
office 2010
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
297 ¤p®É
µù¥U®É¶¡
2012-10-30
³Ì«áµn¿ý
2024-11-19
°ª¤¤¥Í
©«¤l
438
¥DÃD
67
ºëµØ
0
¿n¤À
531
ÂI¦W
30
§@·~¨t²Î
win7
³nÅ骩¥»
office 2010
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2012-10-30
³Ì«áµn¿ý
2024-11-19
3
#
µoªí©ó 2024-7-19 14:33
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
2#
Andy2483
ÁÂÁ«e½ú«üÂI¡Aì¨Ón¥[Application.Goto ³oÓ¤~¥i¥H¡A¤£¹L§Ú¥Î¤F¤U±ªº¤è¦¡¸Ñ¨M¤F¡C
Worksheets("Backup").Select
Range(Cells(k, i), Cells(b, i)).Select
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ª÷¿ú
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1428 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
2
#
µoªí©ó 2024-7-19 08:58
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
1#
198188
¥H¤U«Øij½Ð¸Õ¸Õ¬Ý
Application.Goto Sheets("Backup").Range(letter & k & ":" & letter & b)
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡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¯»µ·