值类型

ljc6

Sub combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim i%, br, d As Object
br = Sheet1.Range("a1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(br)
d(br(i, 2)) = br(i, 3)
Next

If d.exists(CDbl(ComboBox1.Value)) Then                代码运行到这里，如果 combobox1 输入的值是空 或者 是非数值文本则会出现错误提示
TextBox2.Value = d(CDbl(ComboBox1.Value))         请教高手，这个怎么解决
End If
Set d = Nothing

End If

End Sub

蓝桥玄霜

加判断
if ....<>"" and istext(...)=true then

ljc6

蓝桥玄霜 发表于 2018-9-22 15:30
加判断
if ...."" and istext(...)=true then

谢谢蓝版主，我试了一下，提示 istext 子过程或函数未定义，我是加在 if d.exists..... 前面的，是不是不对
If ComboBox1.Value <> "" And IsText(ComboBox1.Value) = True Then
If d.exists(ComboBox1.Value) Then

TextBox7.Value = d(ComboBox1.Value)

lsc900707

ljc6 发表于 2018-9-24 20:35
谢谢蓝版主，我试了一下，提示 istext 子过程或函数未定义，我是加在 if d.exists..... 前面的，是不是不 ...

If Len(ComboBox1.Value) And Application.IsText(ComboBox1.Value) = True Then

ljc6

lsc900707 发表于 2018-9-24 21:48
If Len(ComboBox1.Value) And Application.IsText(ComboBox1.Value) = True Then

非常感谢，可以了，这个只能输入数字或者空格吧，我试了一下，输入文本，就要把 True 改成 False了