標題:
[發問]
錄製巨集每日向下新增一列資料?
[打印本頁]
作者:
diekid
時間:
2012-9-2 12:22
標題:
錄製巨集每日向下新增一列資料?
不好意思
想請教一個關於巨集的問題
我要錄製的巨集按鈕是從a工作表複製資料到b工作表的a2:e2選擇性貼上/值
每一個交易日要按按鈕更新一列資料
如下:
8/29 a2:e2
8/30 a3:e3
8/31 a4:e4
...........
每一個交易日會有一列資料
但我錄製的結果都不會向下新增一列貼上
它一直在覆蓋之前的資料
請問要怎麼做才能每日向下新增一列資料?
謝謝
作者:
GBKEE
時間:
2012-9-2 14:25
回復
1#
diekid
Option Explicit
Sub Ex()
Sheets("A").Range("A1:E1").Copy Sheets("B").Cells(Rows.Count, "A").End(xlUp).Offset(1)
'Sheets("B")的A欄最後一列(Cells(Rows.Count, "A"),
'End(xlUp)往上到有資料列
'Offset(1)的下一列
End Sub
複製代碼
作者:
diekid
時間:
2012-9-2 19:03
請問有沒有辦法不用寫程式碼就做可以做到我想要的結果
因為我還不會寫
我以為我想要的結果只差滑鼠在巨集裡幾個動作就可以完成
作者:
jonn0510
時間:
2012-9-2 22:09
回復
3#
diekid
你不會寫程式,但是你會錄製巨集,那麼將 GBKEE 老師 所寫的程序,拷貝至你所錄製的巨集裏(自己錄製的內容刪除).即可
作者:
diekid
時間:
2012-9-3 18:52
我試著寫
但還是不行
不知道出了什麼問題?
麻煩各位老師們解惑
謝謝
此檔為凱基全球理財王DDE
我要今日從"DDE工作表"
複製C3:G3到"電子工作表"A4:E4選擇性貼上/值(只複製貼上值的部份,不是DDE連結)
複製C4:G4到"傳產工作表"A4:E4選擇性貼上/值
複製C5:G5到"金融工作表"A4:E4選擇性貼上/值
隔日從"DDE工作表"
複製C3:G3到"電子工作表"A5:E5選擇性貼上/值
複製C4:G4到"傳產工作表"A5:E5選擇性貼上/值
複製C5:G5到"金融工作表"A5:E5選擇性貼上/值
再隔日從"DDE工作表"
複製C3:G3到"電子工作表"A6:E6選擇性貼上/值
複製C4:G4到"傳產工作表"A6:E6選擇性貼上/值
複製C5:G5到"金融工作表"A6:E6選擇性貼上/值
以此類推
每一個交易日會有一列資料
作者:
diekid
時間:
2012-9-5 17:54
終於搞定了
用了兩個模組
但存檔時有點慢
感覺資料越存越多時會當掉
謝謝兩位的回覆
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
