輸入框后VBA顯示MsgBox

輸入框后沒(méi)有彈出Messagebox。

Dim Output As Integer
Dim name As Variant
Output = MsgBox("Are You Interested in taking a short survey with me?", vbYesNo + vbQuestion, "Short Survey")
If Output = vbYes Then
MsgBox "Great! I'll guide you through this"
name = InputBox("First Question, What's your name?")
If name = vbYes Then
MsgBox "Welcome"
Else
End If
Else
MsgBox "Thanks! But you can try again if you change your mind"
End If
End Sub

發(fā)布于前

? 最佳回答：

Change If name = vbYes Then to If name <> "" Then

當(dāng)您輸入一些文本時(shí)，變量name獲取該文本，而不是vbYes。

Dim Output As Integer
Dim name As Variant
Output = MsgBox("Are You Interested in taking a short survey with me?", vbYesNo + vbQuestion, "Short Survey")
If Output = vbYes Then
  MsgBox "Great! I'll guide you through this"
  name = InputBox("First Question, What's your name?")
  If name <> "" Then
    MsgBox "Welcome"
  End If
Else
  MsgBox "Thanks! But you can try again if you change your mind"
End If

公眾號(hào)：1024技術(shù)圈

?? 提供互聯(lián)網(wǎng)知識(shí)和資訊，分享IT前沿技術(shù)，熱門(mén)資源，大廠面試題 ??

輸入框后VBA顯示MsgBox

熱門(mén)問(wèn)答

golang中的Python字節(jié)（）或字節(jié)數(shù)組（）對(duì)應(yīng)項(xiàng)

如何在EntityFrameworkCore5/6中映射Nullable<Ulid>（或任何其他可為null的自定義結(jié)構(gòu)）？

繪制到canvas時(shí)如何縮放文本？

將Typescript接口值定義為一組字符串或作為參數(shù)傳遞的任何內(nèi)容

如何將--data放入GET方法？因?yàn)镚ET沒(méi)有接收主體參數(shù)

轉(zhuǎn)到protobuf類型的導(dǎo)入范圍查找

如何在Excel中使用ROUND、MROUND或FLOOR函數(shù)進(jìn)行四舍五入

為什么arduino UNO 上的ds18b20傳感器總是顯示-127

如何在Java Swing JTable中實(shí)現(xiàn)進(jìn)度條或圖標(biāo)的格式化顯示

fs 模塊判斷是否是文件

git怎么實(shí)現(xiàn)過(guò)濾文件內(nèi)容里的關(guān)鍵字，不允許提交？

python怎么合并字典