在VBA 中如何把窗体中输入的字符串型数据转换为长整形。

Question

a = UserForm1.TextBox1.Value，在后面的程序中需要调用到a来计算单元格的数量，因此需要转换为整形。请帮忙解答！谢谢！！

Answer 1

if isnumeric(userform1.textbox1.value) then a=clng(userform1.textbox1.value)

追问

类型不匹配啊！请问是什么原因啊！报错语句：Sheet1.Range(Cells(2, 1), Cells(a + 1, 1)).Select（类型不匹配）

追答

Private Sub CommandButton1_Click()
Dim a As Long
If IsNumeric(TextBox1.Value) Then
a = CLng(TextBox1.Value)
Sheet1.Range(Cells(2, 1), Cells(a + 1, 1)).Select
End If
End Sub
以上代码在excel 2003 测试通过.
(插入一个用户窗体,添加一个文本框控件,添加一个命令按钮控件)

追问

还是不可以啊！我的窗体需要调用一段代码。可否加QQ聊，谢谢！！

追答

2724421

Answer 2

a = val（UserForm1.TextBox1.Value）

Answer 3

a = CLng(Val(UserForm1.TextBox1.Value))