如何将股票追踪VBA代码改写为Do Until answer = vbNo循环？

直接给你一个适配股票追踪场景的改写示例，你可以对照自己的现有代码调整：

Sub 股票追踪循环()
    Dim answer As VbMsgBoxResult
    ' 初始化answer为vbYes，确保第一次能进入循环
    answer = vbYes
    
    Do Until answer = vbNo
        ' ===== 这里放你原来的股票追踪核心代码 =====
        ' 示例操作：更新指定单元格的股票信息
        Range("A1").Value = "当前追踪标的：" & Range("B1").Value
        Range("A2").Value = "最新报价：" & GetStockPrice(Range("B1").Value) ' 假设你有获取股价的自定义函数
        
        ' 询问用户是否继续追踪
        answer = MsgBox("是否继续追踪下一只股票？", vbYesNo + vbQuestion, "股票追踪")
    Loop
End Sub

' 示例自定义函数，模拟获取股票价格
Function GetStockPrice(stockCode As String) As Double
    ' 替换成你实际的股票数据获取逻辑
    GetStockPrice = Round(Rnd() * 100 + 50, 2)
End Function

关键说明： #

• 先把answer初始化为vbYes，保证循环第一次能正常启动
• 将你原本的单次股票追踪逻辑完整放到循环体内部
• 每次执行完核心操作后，用MsgBox获取用户选择，把结果赋值给answer
• 当用户选择「否（vbNo）」时，循环自动终止

你只需要把示例里的核心操作部分替换成你自己的代码即可，这个结构完全适配你的需求。

内容的提问来源于stack exchange，提问作者Excelnoob