Excel VBA:组合框运行时错误6:输入键值时溢出

我正在构建一个过程，以获取Excel VBA中组合框的选定值

当用户用鼠标选择值时，下面的代码工作正常。 但当他直接用键盘键入一个键时，我得到了一个错误：

Run-time error 6: Overflow

这是代码，错误在最后一行：

Private Sub ComboBoxCAE_Change()
Dim selecionado As Integer

'On Error Resume Next
selecionado = ComboBoxCAE.Value

我尝试了其他事件列表器，如AfterUpdate，但没有发生任何事情（事件未被触发）

---

有任何帮助吗？

您的

ComboBoxCAE.Value

必须低于/高于整数（例如，请参阅）支持的最小/最大值，即-32768到32767。尝试将

Dim seleconado作为整数更改为
Dim seleconado作为长整数
；a的范围为-2147483648到2147483647。
您的
ComboBoxCAE。值必须低于/高于整数（例如，请参阅）支持的最小/最大值，即-32768到32767。尝试将
Dim seleconado作为整数更改为
Dim seleconado作为长整数
；a的范围为-2147483648到2147483647。
您的
ComboBoxCAE。值必须低于/高于整数（例如，请参阅）支持的最小/最大值，即-32768到32767。尝试将
Dim seleconado作为整数更改为
Dim seleconado作为长整数
；a的范围为-2147483648到2147483647。
您的
ComboBoxCAE。值必须低于/高于整数（例如，请参阅）支持的最小/最大值，即-32768到32767。尝试将
Dim seleconado作为整数更改为
Dim seleconado作为长整数
；a的范围为-2147483648到2147483647。
运行时错误6：溢出通常意味着该值大于整数数据类型的限制（-32768到32767）。尝试将
selecionado
声明为长数据类型，如下所示：

Private Sub ComboBoxCAE_Change()
Dim selecionado As Long

'On Error Resume Next
selecionado = ComboBoxCAE.Value

运行时错误6:溢出
通常表示该值大于整数数据类型的限制（-32768到32767）。尝试将
selecionado
声明为长数据类型，如下所示：

Private Sub ComboBoxCAE_Change()
Dim selecionado As Long

'On Error Resume Next
selecionado = ComboBoxCAE.Value

运行时错误6:溢出
通常表示该值大于整数数据类型的限制（-32768到32767）。尝试将
selecionado
声明为长数据类型，如下所示：

Private Sub ComboBoxCAE_Change()
Dim selecionado As Long

'On Error Resume Next
selecionado = ComboBoxCAE.Value

运行时错误6:溢出
通常表示该值大于整数数据类型的限制（-32768到32767）。尝试将
selecionado
声明为长数据类型，如下所示：

Private Sub ComboBoxCAE_Change()
Dim selecionado As Long

'On Error Resume Next
selecionado = ComboBoxCAE.Value