t8899

http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-3 07:59

½Ð°Ý¤£·Q¬Ý¨ìie8 ¥X²{­n§R±¼¨º¤@¦æ©O?

t8899

¦^´_  t8899
°Q½×°Ï¸Ì¦³³\¦hÃþ¦üªº°Q½×,¦Û¤v¸ÕµÛ§R¬Ý¬Ý.
GBKEE µoªí©ó 2013-9-3 10:55

§Ú¬O§ï  CreateObject("InternetExplorer.Application") .Visible = FALSE

¥i¥H±N"¶^°±ÂꦺªÑ" ±q J1 ¶}©l±Æ¶Ü??

t8899

¦^´_ 6# GBKEE
ÁÂÁÂ!¦A½Ð±Ð¤@¤U
·í§Ú¦b­«·s§ó·s«á,°Ñ·Ó¦¹ªíªºÀx¦s®æ(¶K¤W³sµ²)¦³¨Ç·|¥X²{ #REF!¡A»Ý­«·s³]©wÀx¦s®æ°Ñ·Ó¤~·|«ì´_¥¿±`, ¦³µL¿ìªk¸Ñ¨M?
=º¦¶^°±!C12
§ó·s«á  ===> =º¦¶^°±!#REF!

¤U¸ü (14.31 KB)

2013-9-3 20:24

t8899

·Q¨ì¤@­Ó¿ìªk
ª½±µ¦b±z¼gªº¥¨¶°¤§«á¥[¤W
Sheets("¸Õºâ").Range("P3:P56").Value = Sheets("º¦¶^°±").Range("G3:G56").Value
Sheets("¸Õºâ").Range("O3:O56").Value = Sheets("º¦¶^°±").Range("C3:C56").Value
Sheets("¸Õºâ").Range("Q3:Q56").Value = Sheets("º¦¶^°±").Range("P3:P56").Value
Sheets("¸Õºâ").Range("R3:R56").Value = Sheets("º¦¶^°±").Range("L3:L56").Value

t8899

¦^´_  t8899
.Cells.Clear §ï¦¨->.Cells.="" ¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2013-9-4 07:14

»yªk¿ù»~?

¤U¸ü (67 KB)

2013-9-4 08:54

t8899

¦^´_  t8899
³o»yªk¤Wªº¿ù»~,(¤â»~,9#¤w­×¥¿)¥i¸ÕµÛ­×§ï.
GBKEE µoªí©ó 2013-9-4 09:03

9# ¬O  ??

t8899

¦^´_  t8899
³o»yªk¤Wªº¿ù»~,(¤â»~,9#ªº¤º®e¤w­×¥¿)¥i¸ÕµÛ­×§ï.
GBKEE µoªí©ó 2013-9-4 09:03

¸Õ¤F¤@­Ó¤p®É¡A¤j¬ù1 ¤ÀÄÁ§ó·s¤@¦¸¡A¤¤¶¡excel ¥d¦í¨â¦¸ ¨S¤ÏÀ³?
¬O§_³s½uµLªk¦¨¥\³y¦¨?¥i§_§ï¦¨5¬í¨S³s¤W´Nµ{¦¡´N¸õ¥X?

t8899

»yªk¿ù»~?
t8899 µoªí©ó 2013-9-4 08:54

¤j¬ù1 ¤ÀÄÁ§ó·s¤@¦¸,¨S¨º»òºC§a  

§Ú«üªº¤@¤ÀÄÁ¬O§Ú³]©w¨C1¤ÀÄÁ¶]¤@¦¸¥¨¶°,(¤£¬Oµ{¦¡¶]¤@¦¸­n1¤ÀÄÁ)
µ¥©ó¶]¤F60¦¸¡Aexcel ¤¤³~·í¤F¨â¦¸
¬O§_³s½uªºÃö¨t?¦pªG¬O¥i§_§ï¦¨5¬í³s¤£¦¨´N¸õ¥X?

.Cells.Clear §ï¦¨->.Cells="" ¸Õ¸Õ¬Ý  

¤»¼Óµ{¦¡½X­«·s¶]¤F¨â¦¸¡A¶K¤W³sµ²ªºÀx¦s®æ¤´µM¬O#REF!
    ªþÀÉ TEST.rar (11.49 KB)

¤U¸ü¦¸¼Æ: 12

2013-9-4 14:45

t8899

¦^´_  t8899
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2013-9-4 16:55

¶â, §¹¬üµL¯Ê.
©êºp¤p§Ìvb ­èªì¾Ç

  If i = 20 Then .Rows(13).Delete   

  ³o¬Odelete sheet5ªº¨º¤@­Ó?

  Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]"  

RC[-6] ===>¬O«ü??