变量等于文本框的值，为什么会溢出？

默默@甜豆

1. Dim pin As Integer  
   
2.     pin = UserForm2.TextBox2.Value
   
3. '当textbox2大于3位数值时，错误信息“溢出，这是为什么？谢谢

复制代码

山菊花

把Dim pin As Integer改为
Dim pin As Long
试试

另外，pin = UserForm2.TextBox2.Value，建议加上val()转换
pin = val(UserForm2.TextBox2.Value)

默默@甜豆

山菊花 发表于 2020-11-21 22:09
把Dim pin As Integer改为
Dim pin As Long
试试

通过了，有劳老大出手