如果一定要用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
温馨提示:答案为网友推荐,仅供参考