麻辣家族討論版版 » Excel程式區 » 請求師兄協助,小弟不懂完成語法

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

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

中學生 Rank: 2

帖子: 14
主題: 7
精華: 0
積分: 59
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
註冊時間: 2012-9-24
最後登錄: 2019-6-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-5-10 17:07 | 只看該作者

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

小弟爬文後只做到時間開關,其它是錄製出來的。
我希望下面模組能改為每次貼上時,
向右欄位加1欄即第1次是c3下1次是d3...e3...
請問要如何更改?
Dim s As String
Sub 開始()
If s <> "停止" Then
Application.OnTime Now + TimeValue("00:30:00"), "開始"
Call pop_1
End If
s = ""
End Sub

Sub pop_1()
'
' pop_1 巨集
'
Range("A3:A22").Select
Selection.Copy
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub

Sub 停止()
s = "停止"
End Sub

樓主熱帖

收藏

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-5-10 17:29 | 只看該作者

回復 1# bully

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

時間開關與此的關聯是甚麼呢?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

中學生 Rank: 2

帖子: 14
主題: 7
精華: 0
積分: 59
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
註冊時間: 2012-9-24
最後登錄: 2019-6-18

3^#

發表於 2018-5-10 17:48 | 只看該作者

本帖最後由 bully 於 2018-5-10 17:50 編輯

回復 2# iamaraymond

謝謝師兄回復
我想法是第一次開始是在c3,30分後d3貼上,
再30分後e3貼上

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

4^#

發表於 2018-5-10 17:53 | 只看該作者

回復 3# bully

所以是每30分鐘貼一次嗎?那停止的條件是?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

中學生 Rank: 2

帖子: 14
主題: 7
精華: 0
積分: 59
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
註冊時間: 2012-9-24
最後登錄: 2019-6-18

5^#

發表於 2018-5-10 18:01 | 只看該作者

回復 4# iamaraymond

我本想法是貼上20次後自動停止,
因不會寫,所以用手動停止運作!

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

6^#

發表於 2018-5-10 18:10 | 只看該作者

回復 5# bully

不知這樣是否符合您的需求

Sub test()
For i = 1 To 20
Range("A3:A22").Copy
Cells(3, i + 2).PasteSpecial Paste:=xlPasteValues
Application.Wait Now() + TimeValue("00:00:01")
Next
Application.CutCopyMode = False
[A1].Select
End Sub

複製代碼

我是先測試1秒，如果您覺得OK，可以將timeValue修改為 TimeValue("00:30:00")

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

中學生 Rank: 2

帖子: 14
主題: 7
精華: 0
積分: 59
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
註冊時間: 2012-9-24
最後登錄: 2019-6-18

7^#

發表於 2018-5-10 18:48 | 只看該作者

回復 bully

不知這樣是否符合您的需求我是先測試1秒，如果您覺得OK，可以將timeValue修改為 TimeValue ...
iamaraymond 發表於 2018-5-10 18:10

謝謝師兄,我就是這個意思,但是這個test會長期處於運行中,
因我只需30分執行1次,直至20次完成停止,(表單內其它動作不能做)
,可否改為每30分叫醒1次?

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 31
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-28

8^#

發表於 2018-5-10 20:39 | 只看該作者

本帖最後由 quickfixer 於 2018-5-10 20:43 編輯

回復 7# bully
01 學來的,這個方法不會讓excel停住,表單還可以正常做別的事

Public i As Integer
Sub 開始()
i = 0
Call test
End Sub
Sub test()
If i > 20 Then Exit Sub
'下面這2行,換成你要跑的程式
i = i + 1
Cells(1, 1) = i
Application.OnTime Now + TimeValue("00:00:02"), "test"
End Sub
Sub 停止()
i=21
End Sub

複製代碼

中學生 Rank: 2

帖子: 14
主題: 7
精華: 0
積分: 59
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
註冊時間: 2012-9-24
最後登錄: 2019-6-18

9^#

發表於 2018-5-10 21:28 | 只看該作者

回復 8# quickfixer

成功了,多謝2位大大協助!!

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

10^#

發表於 2018-5-10 21:35 | 只看該作者

回復 7# bully

Dim total As Integer
Sub test()
If total < 5 Then
total = total + 1
Debug.Print total
Application.OnTime Now() + TimeValue("00:00:10"), "Thisworkbook.test1"
Else
Application.CutCopyMode = False
[A1].Select
End If
Application.CutCopyMode = False
[A1].Select
End Sub
Sub test1()
Range("A3:A22").Copy
Cells(3, total + 2).PasteSpecial Paste:=xlPasteValues
Call test
End Sub

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

靜思自在 : 欣賞別人就是莊嚴自己。

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