在VBA中向objshell.popup添加yes/no

在VBA中，可以使用objShell.Popup方法向用户显示一个消息框，并提供"Yes"和"No"两个选项。objShell是一个Shell对象，可以通过CreateObject("WScript.Shell")来创建。

下面是一个示例代码：

Sub ShowPopup()
    Dim objShell As Object
    Dim answer As Integer
    
    Set objShell = CreateObject("WScript.Shell")
    
    answer = objShell.Popup("Do you want to proceed?", 0, "Confirmation", 4 + 32)
    
    If answer = 6 Then
        ' 用户选择了"Yes"，继续执行相应的操作
        MsgBox "Proceeding..."
    Else
        ' 用户选择了"No"，执行其他操作或者退出程序
        MsgBox "Cancelled."
    End If
End Sub

在上述代码中，objShell.Popup方法接受四个参数：

• 第一个参数是要显示的消息文本。
• 第二个参数是显示的时间（以秒为单位），设置为0表示消息框一直显示直到用户点击按钮。
• 第三个参数是消息框的标题。
• 第四个参数是按钮和图标的组合。在示例中，4表示显示"Yes"和"No"两个按钮，32表示显示问号图标。

这样，当运行ShowPopup子过程时，将显示一个带有"Yes"和"No"两个选项的消息框，根据用户的选择执行相应的操作。

腾讯云相关产品中，可以使用云函数（Serverless Cloud Function）来实现类似的功能。云函数是一种无服务器计算服务，可以在云端运行代码，响应事件触发。您可以使用云函数来创建一个API，当用户访问该API时，返回一个包含"Yes"和"No"选项的消息框。您可以通过腾讯云云函数产品页面（https://cloud.tencent.com/product/scf）了解更多信息。