InputBox | ExcelOffice【微信公众号：水星Excel】

2019年9月23日作者：水星Excel

5,255 次浏览暂无评论

在vb中要弹出输入文本对话框可以使用inputbox，代码如下：

Sub QQ1722187970()
    Dim sText As String
    sText = InputBox("请输入你的内容")
End Sub

1

2

3

4

Sub QQ1722187970()

Dim sText As String

sText = InputBox("请输入你的内容")

End Sub

在python中，要弹出类似的输入文本对话框，需要引入easygui包，[……]

2018年8月6日作者：水星Excel

3,754 次浏览暂无评论

如下代码所示：

Sub QQ1722187970()
     Dim oRng As Range
     Set oRng = Application.InputBox("请选择要脱敏的数据区域", "脱敏", , , , , , 8)
End Sub

1

2

3

4

Sub QQ1722187970()

Dim oRng As Range

Set oRng = Application.InputBox("请选择要脱敏的数据区域", "脱敏", , , , , , 8)

End Sub

当弹出对话框后，不选择具体的单元格区域，而是单击“取消”按钮，则会报出类型不匹配的错误。

这是因为，当单击取消按钮后[……]

2018年5月17日作者：水星Excel

3,192 次浏览暂无评论

Application.InputBox 方法可以弹出选择对话框，选择单元格区域。

但是如果在vba代码中设置了Excel.Application.ScreenUpdating = False 则会导致[……]