- 帖子
- 14
- 主題
- 7
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- winxp
- 閱讀權限
- 20
- 註冊時間
- 2012-9-24
- 最後登錄
- 2019-6-18
|
請求師兄協助,小弟不懂完成語法
小弟爬文後只做到時間開關,其它是錄製出來的。
我希望下面模組能改為每次貼上時,
向右欄位加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 |
|
發表於 2018-5-10 17:07
| 
