返回列表 上一主題 發帖

[發問] 增加dde來源 問題

沙拉油
　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主Rank: 8Rank: 8

帖子
44 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
Windows XP SP3 
軟體版本
Office 2003 
閱讀權限
150 
性別
男 
來自
呆丸 
註冊時間
2010-5-1 
最後登錄
2013-1-27 

論壇貢獻勳章終身榮譽會員勳章
1# 跳轉到 »
發表於 2010-12-7 16:21 | 顯示全部帖子

像上圖這樣嗎？
把你上圖貼的程式碼，這部分
  1.     Set rng = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0)
  2.     rng = Sheets("Sheet1").Range("A1")
  3.     rng.Offset(0, -1) = Time
複製代碼
改成底下這樣試試看
  1.     Set rng = Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 4)
  2.     With Sheets("Sheet1")
  3.       rng = Array(Time, .[A1], .[B2], .[C2])
  4.     End With
複製代碼
一卵三四、驚到嘸代誌

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題