我正在创建一个 VB 宏来循环遍历单元格并将值复制并粘贴到记事本中。我想做的是提示用户并询问他们是否愿意在进行下一次迭代之前继续。
Sub LoopTest()
Dim rng As Range, cell As Range
Set rng = Range("A1:A2")
For Each cell In rng
cell.Copy
'Worksheets("Sheet1").Range("A" + j).Copy
Shell "C:\Windows\system32\notepad.exe", vbNormalFocus
SendKeys "^V"
DoEvents
SendKeys "{ENTER}", True
Next cell
End Sub
最佳答案
尝试这个:
Sub LoopTest()
Dim rng As Range, cell As Range
Set rng = Range("A1:A2")
For Each cell In rng
cell.Copy
'Worksheets("Sheet1").Range("A" + j).Copy
Shell "C:\Windows\system32\notepad.exe", vbNormalFocus
SendKeys "^V"
DoEvents
SendKeys "{ENTER}", True
If MsgBox("Continue?", vbYesNo, "Confirm") = vbNo Then
Exit For
End If
Next cell
End Sub
关于vba - 在继续循环之前提示用户,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33663275/