- 帖子
- 16
- 主題
- 3
- 精華
- 0
- 積分
- 65
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2019-2-19
- 最後登錄
- 2025-5-12
|
本帖最後由 vuptp6 於 2019-7-7 16:35 編輯
借版詢問
我獨立寫一個巨集
sub aaa()
SendKeys "{DOWN 10}"
end sub
是有辦法正確執行
可是用呼叫或著寫入其他巨集裡就不正確了
例如A
Sub bbb()
For i = 1 To 10
MsgBox ActiveCell.Value
aaa
Next
End Sub
例如B
Sub bbb()
For i = 1 To 10
MsgBox ActiveCell.Value
SendKeys "{DOWN }"
Next
End Sub
為甚麼會這樣搞不懂
補充:可是這樣又可以
Sub 選擇可視區域()
For i = Range("A1048576").End(xlUp).Row - 1700 To 1 Step -1
If Range("A" & i - 1) <> Range("A" & i) Then
Range("A" & i).Select
SendKeys "{DOWN}"
...
...
...
Exit For
End If
Next
End Sub |
|
發表於 2019-7-7 16:26
| 