返回列表 上一主題 發帖

[發問] 錄製巨集每日向下新增一列資料?

diekid

帖子
4 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-12 
最後登錄
2012-9-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-2 12:22 | 只看該作者

[發問] 錄製巨集每日向下新增一列資料?

不好意思
想請教一個關於巨集的問題

我要錄製的巨集按鈕是從a工作表複製資料到b工作表的a2:e2選擇性貼上/值

每一個交易日要按按鈕更新一列資料
如下:
8/29 a2:e2
8/30 a3:e3
8/31 a4:e4
...........

每一個交易日會有一列資料
但我錄製的結果都不會向下新增一列貼上
它一直在覆蓋之前的資料
請問要怎麼做才能每日向下新增一列資料?

謝謝
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-9-2 14:25 | 只看該作者
回復 1# diekid
  1. Option Explicit
  2. Sub Ex()
  3.     Sheets("A").Range("A1:E1").Copy Sheets("B").Cells(Rows.Count, "A").End(xlUp).Offset(1)
  4.     'Sheets("B")的A欄最後一列(Cells(Rows.Count, "A"),
  5.     'End(xlUp)往上到有資料列
  6.     'Offset(1)的下一列
  7. End Sub
複製代碼

TOP

diekid

帖子
4 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-12 
最後登錄
2012-9-12 
3#
發表於 2012-9-2 19:03 | 只看該作者
請問有沒有辦法不用寫程式碼就做可以做到我想要的結果
因為我還不會寫
我以為我想要的結果只差滑鼠在巨集裡幾個動作就可以完成

TOP

jonn0510

帖子
38 
主題
13 
精華
0 
積分
84 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-10 
最後登錄
2021-7-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
4#
發表於 2012-9-2 22:09 | 只看該作者
回復 3# diekid
你不會寫程式,但是你會錄製巨集,那麼將  GBKEE  老師 所寫的程序,拷貝至你所錄製的巨集裏(自己錄製的內容刪除).即可
感謝各位老師花心思教導

TOP

diekid

帖子
4 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-12 
最後登錄
2012-9-12 
5#
發表於 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選擇性貼上/值

以此類推
每一個交易日會有一列資料

Book4.rar (7.95 KB)

TOP

diekid

帖子
4 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-12 
最後登錄
2012-9-12 
6#
發表於 2012-9-5 17:54 | 只看該作者
終於搞定了
用了兩個模組
但存檔時有點慢
感覺資料越存越多時會當掉

謝謝兩位的回覆

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題