這種依時間運算的巨集要如何寫??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2014-11-16 10:23 | 顯示全部帖子

本帖最後由藍天麗池於 2014-11-16 10:29 編輯

改.rar (101.96 KB) 回復 2# PKKO

請問大大，會出現使用者型態尚未定義是什麼意思
另外，如果我要把Range("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2))裡面的SUM函數改成=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))，那請問一下巨集要怎麼改??

是改成Range("e" & i) = Application.WorksheetFunction.IF(ISERROR(MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"),"",MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"))改成這樣對嗎??

請問大大Range("A" & i & ":" & "C" & i + 2)裡面的範圍部分，除了用&的的方式有沒有其他寫法，因為公式如果很多的話會&不完

抱歉大大問題有點多，不過還是謝謝你的回覆

大大我有附上我的檔案，其實我要修改的是T、W、X欄的部分，因為直接寫在儲存格上面會造成運算變慢，所以我才會想用巨集的方式試試看，如果大大能直接幫我修改就真的是感激不盡，如果不能，還帆請大大幫我解答一下上面的問題，感謝

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2014-11-16 18:04 | 顯示全部帖子

回復 4# GBKEE

G大謝謝你的回覆，真的很感謝你，等等來試試看，謝謝

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2014-11-16 18:50 | 顯示全部帖子

回復 4# GBKEE

G大測試過後只有U欄和V欄有數字其他都顯示空白

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2014-11-16 20:14 | 顯示全部帖子

回復 4# GBKEE

G大，剛剛上述的部分我已經修改完成了，目前執行上是OK的，不過跟G大說一聲抱歉，因為我跑完後發現這不是我要的結果，想在請教一下G大，如果我要把之前的那個程式改成函數還是在儲存格上面，但當每分鐘執行完後接值寫在儲存格內(主要是要看每秒鐘的變化，但是程式執行後變成每分鐘到的時候才看的到數值)，而是不公式，請問一下G大這樣要怎麼改??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

6^#

發表於 2014-11-16 20:47 | 顯示全部帖子

回復 4# GBKEE

G大剛剛的回覆有點亂，以下才是真實版本(抱歉邏輯有點亂掉才會這樣)

G大，剛剛上述的部分我已經修改完成了，目前執行上是OK的，不過跟G大說一聲抱歉，因為我跑完後發現這不是我要的結果

想在請教一下G大，如果我要把之前的那個程式改成函數出現在後一分鐘的儲存格，等到時間到在寫成值(主要是要看每秒鐘的變化，但是之前的程式執行後變成每分鐘到的時候才看的到數值)，例如8:45分的時候將公式寫在8:46分相對應的儲存格，然後8:46分到的時候再將公式寫成值，請問一下G大這樣要怎麼改??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2014-11-17 20:09 | 顯示全部帖子

回復 9# GBKEE

G大真的很謝謝你，這樣OK了

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

8^#

發表於 2014-12-6 20:10 | 顯示全部帖子

本帖最後由藍天麗池於 2014-12-6 20:19 編輯

回復 9# GBKEE

G大可以再幫我一次嗎??

改.rar (95.23 KB)

因為程式關係，所以這次要做點小修改，在麻煩G大一下

上次的程式是寫成往下執行，過一分鐘後再將前一個寫成值，這次我要將程式改成往右邊執行(就是這一分鐘執行T欄，下一分鐘執行U欄，且把T欄的公式寫為值，以此類推)，請問一下G大，如果這樣的話程式要怎麼改呢??

簡單的說就是執行的內容不變，只是行列對調

感謝您

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

9^#

發表於 2014-12-7 09:16 | 顯示全部帖子

本帖最後由藍天麗池於 2014-12-7 09:19 編輯

回復 12# GBKEE

跟G大請教兩個問題：

1.我之前的想法是只要行列互換，所以如果只將With Sheets("RTD").Cells(i + 2, "T").Resize(, 7)改成With Sheets("RTD").Cells("T" , i + 2).Resize(5 ,) 這樣是可以的嗎??
2. .Offset(-1).Value = .Offset(-1).Value '上一列:將公式回數值          另外這行我就不會改了
3.如果1.的想法是正確的那之前下面的公式要怎麼改??

4.i = Cells(2, Columns.Count).End(xlToLeft).Column
'i: 傳回工作表最右邊的儲存格, 向左到最後有資料的儲存格的欄號
'Cells(列號, 欄號).END(向左到最後有資料的儲存格)
'Columns.Count(工作表欄物件的總計)
以上是這次的新公式，請問G大這個新公式可以設定從哪一列開始嗎??因為我O欄之前有其他的東西，這樣會影響到嗎??

5. If .Value = "" Then
         .Cells = "公式A"       '你的公式
         .Cells(2) = "公式B"    '下一列的公式
以上是這次的新公式，G大是舉兩個為例，如果我要增加公式改成以下這樣是否正確
If .Value = "" Then
         .Cells = "公式A"       '你的公式
         .Cells(2) = "公式B"    '下一列的公式
         .Cells(3) = "公式C"    '下一列的公式
         .Cells(4) = "公式D"    '下一列的公式
                                    .
                                    .
                                    .
                              以此類推
6.ElseIf i >= .Column Then    '
         '這裡沒有.Cells 為這工作表以A1為基點的Cells
         Cells(2, i) = Cells(2, i).Value
         Cells(3, i) = Cells(3, i).Value
         Cells(2, i + 1) = "公式A" '下一欄給公式
         Cells(3, i + 1) = "公式B"
如果5.修改程式增加公式數量，那6.的部分要修改嗎??

抱歉G大問題有點多還請G大不吝指教，感謝

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

10^#

發表於 2014-12-7 10:29 | 顯示全部帖子

本帖最後由藍天麗池於 2014-12-7 10:38 編輯

回復 14# GBKEE

改.rar (730.38 KB)
G大我把要改版的程式上傳，麻煩你幫我看一下
如果照G大說的我有200個程式不就要打200列?? :'(
附件中我要執行的就是8:45將公式寫到J2-J202，等到8:46將公式寫到K2-K202、且將J2-J202的公式寫成值，以此類推一直執行到最右邊也就是執行到13:45
上述部分有比較簡單的寫法嗎??

另外我可以跟G大交個朋友嗎??G大有FB嗎??或是line?