[已解决]如何判断Inputbox非输入内容还是点击了取消？

蝶·舞

我想用Inputbox要对单元格A1赋值，我想要的目的是：当出现Inputbox对话框后，如果点击“取消”则直接退出，如果未输入任何内容而点击了“确定”，则提示“未输入内容”，如果输入了内容，再点击确定，则将该内容赋值给A1单元格。

最佳答案

月排行榜 / 总排行榜

qh8600

2015-1-1 10:01

inputbox函数点取消按钮返回的是空字符串，没有输入内容点了确定也是返回空字符串，所以inputbox函数无法满足楼主的要求

inputbox方法（Application.InputBox），点取消按钮返回的是False,而没有输入点了确定是返回空字符串，所以楼主这里要用inputbox方法，代码如下

1. Sub demo()
   
2.     x = Application.InputBox("你好")
   
3.     If x = False Then
   
4.         Exit Sub
   
5.     ElseIf x = "" Then
   
6.         MsgBox "未输入内容"
   
7.     Else
   
8.         Range("a1") = x
   
9.     End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

qh8600

inputbox函数点取消按钮返回的是空字符串，没有输入内容点了确定也是返回空字符串，所以inputbox函数无法满足楼主的要求

inputbox方法（Application.InputBox），点取消按钮返回的是False,而没有输入点了确定是返回空字符串，所以楼主这里要用inputbox方法，代码如下

1. Sub demo()
   
2.     x = Application.InputBox("你好")
   
3.     If x = False Then
   
4.         Exit Sub
   
5.     ElseIf x = "" Then
   
6.         MsgBox "未输入内容"
   
7.     Else
   
8.         Range("a1") = x
   
9.     End If
   
10. End Sub

复制代码

liaozhifa33

楼上的代码稍加修改，解决用户输入“False”导致可能出错。

Sub Test()
Dim x
    x = Application.InputBox("你好")
    '避免当用户手动输入"False"造成程序错误判断
    If (TypeName(x) = "String" And x = "False") Then
        Range("A1") = "'" & x          '强制文本，因为Excel中输入False会自动FALSE
       ElseIf x = False Then
            MsgBox "点击了取消"
            Exit Sub
        ElseIf Len(x) = 0 Then
            MsgBox "未输入内容"
        Else
            Range("A1") = x
    End If
End Sub

--------------------------------------
Sub Test1()
    x = Application.InputBox("你好")
    If x = False And TypeName(x) = "Boolean" Then
        Exit Sub
    ElseIf x = "" Then
        MsgBox "未输入内容"
    Else
        Range("a1") = x
    End If
End Sub

hunter4162003

这不是inputbox的基本功能吗？