請問EXCEL VBA迴圈寫法

1169分

個人積分：1169分

文章編號：67772327

建議用第四樓的方法
Sub CopyData()

Application.OnTime Now + TimeValue("00:00:10"), "CopyData"

End Sub

就一次產生一個ontime 的指令
比較不會有問題
一次產生一堆ontime指令我遇過會有掉資料的情況可能就是某次它會漏掉不執行也不知為什麼

chenjunten

0分

32樓

chenjunten

個人積分：0分

文章編號：67772568

gary4024 wrote:
建議用第四樓的方法Sub...(恕刪)

謝謝G大您的建議，也許其他有需要的人可以受用。
不才是屬於VBA盲者，全程套用都還會出錯。

猜想您這是屬於：主程式。
是放在頁框：ThisWorkBook。而右邊選擇：Open。
而其他副程式則沿用，放在：Module1。

以上純屬瞎猜，一邊謝謝G大建議。

junten 拜

chenjunten

0分

33樓

chenjunten

個人積分：0分

文章編號：67774207

light0935 wrote:
請問你sheet的...(恕刪)

L大您好，早上啟動EXCEL後的結果與昨天一樣！時間到了賄動作，位置也都對。但就是不會往下複製，只在同一個位置上做資料的變動。將VBA貼上如下：

主程式頁框：ThisWorkBook(程式碼)
左上選項：WorkBook 右上選項：Open
---------------------------------------------------------------
Private Sub WorkBook_Open()

For n = 0 To 18000 Step 600 '總跑檔時間 18000 秒，間隔 10分鐘(600秒)

Application.OnTime TimeSerial(8, 45, n), "Copy_Data" '指定 8 點 45 分開始跑檔 (跑到 13 點 45 分台指期收盤)

Next

End Sub

------------------------------------------------------------------

副程式頁框：Module1(程式碼)
左上選項：(一般) 右上選項：Copy_Data
-------------------------------------------------------------

Sub Copy_Data()

Sheets("欄位說明").Cells(3 + i, 10).Resize(1, 3).Value = Sheets("欄位說明").Cells(8, 6).Resize(1, 3).Value

'複製 Sheets("欄位說明") 第8行第6欄到第8欄的資料(共3欄)，從第3行第10欄開始複製貼上
'(此處為原作者:light0935敘述)而第二行第一欄到第八欄的資料則是抓取我另一個 sheets 裡的，會這樣做是為了方便及簡化 VBA 的寫法

i = i + 1

End Sub

-------------------------------------------------------------
有勞您看看是否仍有錯處，謝謝您。

junten 拜

light0935

802分

樓主

light0935

個人積分：802分

文章編號：67774778

你間隔設10分鐘，那是要每隔10分鐘才會貼上一次，所以是第二個10分鐘第三個10分鐘都只在第三行第十欄動作嗎？從程式來看應該是沒問題

chenjunten

0分

35樓

chenjunten

個人積分：0分

文章編號：67774996

light0935 wrote:
你間隔設10分鐘，...(恕刪)

L大您好，
每十分鐘只會更動資料，並不會往下複製貼上。
或者，我將檔案Email給您，您看如何？
謝謝。

junten 拜

light0935

802分

樓主

light0935

個人積分：802分

文章編號：67775510

我找時間測試間隔600秒會不會有問題再跟你說

chenjunten

0分

37樓

chenjunten

個人積分：0分

文章編號：67775782

light0935 wrote:
我找時間測試間隔600...(恕刪)

好的，謝謝您，真是麻煩您了。

junten 拜

light0935

802分

樓主

light0935

個人積分：802分

文章編號：67782275

找到問題了

之前給您的程式碼，忘了要您在Module1(程式碼)內先宣告Public i As Integer，沒有對i做出宣告，後面的i = i + 1等於白寫，太久沒碰VBA快忘光了@@，抱歉讓您白忙這麼久

這一段的用意是要宣告i的資料型態，我是將其宣告為整數，您再試試看

Module1(程式碼)

Public i As Integer

Sub Copy_Data()

Sheets("欄位說明").Cells(3 + i, 10).Resize(1, 3).Value = Sheets("欄位說明").Cells(8, 6).Resize(1, 3).Value

i = i + 1

End Sub