求助如何使用Excel VBA中的对话框MsgBox()!
发布网友
发布时间：2022-04-23 21:47
共1个回答
热心网友
时间：2023-09-02 20:43
如果一定要用msgbox的话，就用yes
和
no按钮来分别表示对应编号的两个驾驶员的姓名。
写一下大概的程序
.....................'根据编号确定姓名NameYes
和NameNo的程序
public
sub
Mymsg
(byval
NameYes
as
string,byval
NameNo
as
String)
dim
Respons
Respons
=msgbox(‘按钮Yes选择“
&
NameYes
&
"
按钮No选择
"
&
NameNo,VbYseNo
)
if
Respons=Vbyes
then
range("B1").value=NameYes
else
range("B1").value=NameNo
end
if
end
function
