[發問] 如何使用巨集新增一筆資料?

帖子: 17
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-4
最後登錄: 2012-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-29 10:18 | 顯示全部帖子

[發問] 如何使用巨集新增一筆資料?

本帖最後由 yeh199200 於 2011-9-29 10:21 編輯

TEST.zip (835.58 KB) 這是小弟觀察各國股市的excel
每天都要更新資料覺得很困擾.
我舉澳洲為例(圖1)
先複製9/26(欄位550) 貼至(欄位551)
將a551改為9/27 然後將b551改為 =數據!C$4,c551改為 =數據!D$4,D551改為 =數據!E$4,E551改為 =數據!F$4
然後每個國家全部都要更新
小弟想問的是如何使用巨集新增ㄧ比資料??

樓主熱帖

帖子: 17
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-4
最後登錄: 2012-9-15

2^#

發表於 2011-9-30 10:03 | 顯示全部帖子

回復 2# luhpro

謝謝回覆不過好像有點怪怪的.
我想的是要單一國家(澳洲)就好,因為不是每天都會有交易.您寫的是亞洲都加入.
這是我錄製的澳洲新增的巨集
Sub auadd()
Rows("551:551").Select
Selection.Copy
Range("A552").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B552").Select
ActiveCell.FormulaR1C1 = "=數據!R4C[1]"
Range("B552").Select
Selection.Copy
Range("C552:E552").Select
ActiveSheet.Paste
End Sub
可否修改此巨集謝謝

帖子: 17
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-4
最後登錄: 2012-9-15

3^#

發表於 2011-10-1 08:23 | 顯示全部帖子

回復 yeh199200
luhpro 發表於 2011-9-30 22:58

ya 謝謝您
不過我想要B533填入的是"=數據!C4",C533填入的是"=數據!D4",E533填入的是"=數據!E4",F533填入的是"=數據!F4"
這樣當我打開sheet1 的時候就可看到全部國家的技術指標資料 .. 謝謝您

帖子: 17
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-4
最後登錄: 2012-9-15

4^#

發表於 2011-10-1 10:16 | 顯示全部帖子

看不懂你的意思呢.
需要釐清的一些事項 :
1. 是否每天都有新資料, 新資料是否都是要在每一個 Sheet 的最 ...
luhpro 發表於 2011-10-1 09:45

不好意思小弟可能沒說清楚
1. 是否每天都有新資料, 新資料是否都是要在每一個 Sheet 的最底端新增一列存放?
對的. 只要新增到最後Sheet 的最底端新增一列存放
2. 是否是要將 Sheets("數據") 的某列中 C 欄到 F 欄資料放到新增那列的 B 欄到 E 欄?
小弟不是要填入數值,是要B533 填入 =數據!C4
                                    C533填入  =數據!D4
                                    D533填入 =數據!E4
                                    F533填入 = 數據!F4

就是這樣爾已.
3是否沒資料就不新增一列, 或是照樣要新增一列沒資料的?
只要新增到最後一列就好..

謝謝您

帖子: 17
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-5-4
最後登錄: 2012-9-15

5^#

發表於 2011-10-1 17:18 | 顯示全部帖子

回復 yeh199200
看起來你的意思似乎是要新增公式.
這樣只要將上述程式中第 11 ~ 15 行改成 :
Fo ...
luhpro 發表於 2011-10-1 16:29

謝謝您小弟就是要此結果謝謝
真的解決小弟好幾個月的問題...謝謝