求助如何使用Excel VBA中的对话框MsgBox()!

Question

如何使用VBA中的对话框MsgBox()?例如:在表格D1:D5分别是每台运泥车的编号，每台运泥车有两个人分别是白班和夜班驾驶!他们的名字分别在表格E1:F5，表格E1:F1是对应D1表格运泥车编号的驾驶人员!假设在表格A1输入一台运泥车的编号，同时，弹出对话框选择当天驾驶员的姓名，选择完后把姓名显示在表格B1中!

Answer 1

如果一定要用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