Vba 继续循环前提示用户

我正在创建一个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

试试这个：

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

---

我已经使用FileSystemObject方法编写了一个代码

Sub test1()

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim strpath As String

    strpath = "" '~~~~> path

    Dim oFile As Object

    Set oFile = fso.CreateTextFile(strpath)

    Dim rng As Range, cell As Range
    Set rng = Range("A1:A2")
    For Each cell In rng
        If MsgBox("Continue?", vbYesNo, "Confirm") = vbYes Then

            oFile.WriteLine cell.Value
        Else
            Exit For
        End If

    Next cell

    oFile.Close

    Set fso = Nothing

    Set oFile = Nothing

    End Sub

---

我已经使用FileSystemObject方法编写了一个代码

Sub test1()

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim strpath As String

    strpath = "" '~~~~> path

    Dim oFile As Object

    Set oFile = fso.CreateTextFile(strpath)

    Dim rng As Range, cell As Range
    Set rng = Range("A1:A2")
    For Each cell In rng
        If MsgBox("Continue?", vbYesNo, "Confirm") = vbYes Then

            oFile.WriteLine cell.Value
        Else
            Exit For
        End If

    Next cell

    oFile.Close

    Set fso = Nothing

    Set oFile = Nothing

    End Sub

---

我听了你几句话。对你合适吗？当然可以。代码不属于我，本网站的目的是提供免费帮助。所以，请随意使用它。我从你那里得到了几句话。对你合适吗？当然可以。代码不属于我，本网站的目的是提供免费帮助。所以请随意使用它。