Msgbox 依据返回值 执行

Quantasikk

老师们 好
       最近学习Msgbox 如下代码, 设置了 是 否 取消 三个选项 以及选择后 执行对应代码
        问题点：不管选择 是 否 取消 都去执行 Else后（MsgBox "退出程序"）的语句了，请帮忙看看错在哪里
                      另外，如果我想把是 否 取消 这几个按钮自定义成：正确 错误  重来 等等 可以实现么，需要怎么做
        感谢！
Sub Msgbox测试()
    Dim i As Integer
    i = 5
    Mystring = "你选择了:" & i
    Response= MsgBox(Mystring, vbYesNoCancel)

    If Response = 6 Then
        MsgBox "继续执行"
    ElseIf Response = 7 Then
        MsgBox "请重新选择文件"
    Else
        MsgBox "退出程序"
    End If
    End Sub

taller

代码没有问题，请上传你的示例文件。

按钮文字不能定制，需要需求定制，只能用自定义窗体实现

Quantasikk

taller 发表于 2020-2-20 05:49
代码没有问题，请上传你的示例文件。

按钮文字不能定制，需要需求定制，只能用自定义窗体实现

谢谢老师，我找到问题点在哪里了