返回列表下一主題上一主題發帖

[發問] 關於(貼好資料後，自動將其他格位的公式往下拉的問題)

yagami12th

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-9 00:13 | 顯示全部帖子

[發問] 關於(貼好資料後，自動將其他格位的公式往下拉的問題)

這是一個關於自動將公式下拉的問題，請教各位大大，如何用vba指令完成此動作，資料說明如下：
假設表1的a欄b欄c欄的最後一欄已經貼好今天的數值，如何自動在d欄與e欄的最後一列的公式往下拉一格完成自動運算

表1
a欄       b欄       c欄          d欄                      e欄
日期    最高價    最低價    最高-最低價       最高價/最低價
1/1       8000       7900       100                      1.01
1/2       8100       8000       100                      1.01
1/3       8150       8000

樓主熱帖

yagami12th

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

2^#

發表於 2012-12-9 13:53 | 顯示全部帖子

回復 2# GBKEE

謝謝GBKEE大，我照這個嘗試改寫看看，因為昨晚試的時候，想把公式自動往下拉到最後一欄，但昨天用錄制的方式觀察時，它會一直用有欄位數目的程式碼．．

TOP

yagami12th

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

3^#

發表於 2012-12-9 14:09 | 顯示全部帖子

回復 2# GBKEE

謝謝GBKEE大的解答

但有另一個問題，假設表1的a欄b欄c欄的最後一欄已經貼好今天的數值，自動在d欄與e欄的最後一列的公式往下拉一格完成自動運算，
但因為8:45之前b4跟c4欄(8150跟8000)是沒有資料的，所以想試寫兩種條件判斷式，想請教如何寫這個啟動條件：

第一種：因8:45之前在b4欄跟c4欄是空白沒資料的，如果8:45有資料進來(不為空白，則執行某巨集if cells(4,3)<>"" then .....  <<<<不知正不正確

第二種：這一種是設定成時間啟動，在8:45:05秒時，則執行．．．

表1
a欄       b欄       c欄          d欄                      e欄
日期    最高價    最低價    最高-最低價       最高價/最低價
1/1       8000       7900       100                      1.01
1/2       8100       8000       100                      1.01
1/3       8150       8000

TOP

yagami12th