Question

我有以下代码将许多行复制到工作表中的不同点。目前，行数由用户通过单元格值定义，但我尝试更改为使用文本框输入值，而不是单元格。

我添加了一个消息框来检查文本框的值，但无论我输入什么号码，它总是返回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。任何人都可以建议如何纠正这个？非常感谢。

Answer 1

我猜你在一张纸上有一个文本框。请试试这个：例如你有＆＃34; Sheet1＆＃34;

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

VBA文本框未返回输入的值

1 个答案: