VBA中，想要d出一个MSGBOX，其中包含三个选项：“选项一”，“选项二”，“选项三”，如何实现？

你的要求没法无法用系统默认的msgbox，实现！可以自定义个d出窗口来实现你的要求！

但可以如下，简单实现代替下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim n As Long

n = MsgBox("选择【终止】：选项1" &vbCrLf &"选择【重试】：选项2" &vbCrLf &"选择【忽略】：选项3", vbAbortRetryIgnore, "提示")

Debug.Print n

Cells(1, 1) = n

End Sub

1、首先打开VB软件，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。

2、接下来大概更改一下各个控件的属性。

3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。

4、编写删除代码，记得要遍历查询。

5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。

1、InputBox（）其语法格式为：

InputBox（

提示[，标题][，默认值][，X坐标][，Y坐标]）

示例：

r=InputBox("请输入r"，"输入圆半径")2、MsgBox（）其语法格式为：

MsgBox（提示信息[，按钮][，标题]）

示例：

MsgBox("请输入r")

---