返回列表 上一主題 發帖

請求師兄協助,小弟不懂完成語法

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 »
發表於 2018-5-10 17:29 | 顯示全部帖子
回復 1# bully

不太了解您的問題，是希望每次執行程式時，可以自動向右邊一欄貼上?
EX:第一次執行>貼在B欄
第二次執行>貼在C欄?

時間開關與此的關聯是甚麼呢?
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
2#
發表於 2018-5-10 17:53 | 顯示全部帖子
回復 3# bully

所以是每30分鐘貼一次嗎?那停止的條件是?
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
3#
發表於 2018-5-10 18:10 | 顯示全部帖子
回復 5# bully

不知這樣是否符合您的需求
  1. Sub test()

  3. For i = 1 To 20
  4.     Range("A3:A22").Copy
  5.     Cells(3, i + 2).PasteSpecial Paste:=xlPasteValues
  6.     Application.Wait Now() + TimeValue("00:00:01")
  7. Next
  8. Application.CutCopyMode = False
  9. [A1].Select
  10. End Sub
複製代碼
我是先測試1秒，如果您覺得OK，可以將timeValue修改為 TimeValue("00:30:00")
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
4#
發表於 2018-5-10 21:35 | 顯示全部帖子
回復 7# bully
  1. Dim total As Integer


  4. Sub test()

  6. If total < 5 Then
  7.     total = total + 1
  8.     Debug.Print total
  9.     Application.OnTime Now() + TimeValue("00:00:10"), "Thisworkbook.test1"
  10. Else
  11.     Application.CutCopyMode = False
  12.     [A1].Select
  13. End If

  15. Application.CutCopyMode = False
  16. [A1].Select
  17. End Sub
  18. Sub test1()
  19.     Range("A3:A22").Copy
  20.     Cells(3, total + 2).PasteSpecial Paste:=xlPasteValues
  21.     Call test
  22. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題