VBA文本框不返回input的值

我有下面的代码复制一些行到工作表中的不同点。 目前，行数由用户通过单元格值定义，但是我试图改变为使用文本框input值，而不是单元格。

我添加了一个消息框来检查文本框的值，但无论input什么数字，它总是返回0。

Dim NumofRows As Integer NumofRows = CInt(TextBox1) MsgBox (NumofRows) If NumofRows = 0 Then NumofRows = 1 End If Range("A500").End(xlUp).Offset(1).Select ActiveCell.Rows("1:" & NumofRows).EntireRow.Copy Range("A2").Select Selection.End(xlDown).Offset(1).EntireRow.Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False 

该文本框被称为TextBox1。 任何人都可以build议如何纠正？ 非常感谢。

Answer 1

我想你在一张纸上有一个文本框。 请试试这个：例如你有“Sheet1”

 NumofRows = CInt(Sheets("Sheet1").TextBox1.Value)