小编Ava*_*vax的帖子

您好,我在我的Userform中尝试此代码,以检查输入的数据textbox1是否是一个数字,如果没有显示msgbox给用户并选择文本textbox1,但下面的代码不会选择文本textbox1时Userform是vBModeless

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1) Then
        MsgBox " only number"
        TextBox1.SetFocus
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
    End If
End Sub

有什么办法吗？

我需要编写一个函数来实际上从一些不同的工作表中获取动态范围，而不是在每个宏中重复以下代码：

LastRow = Sheetname.Cells(Rows.Count, 1).End(xlUp).Row

Set UserRange = Sheetname.Cells.Range("A2:A" & LastRow)

我喜欢有如下功能：

Function GetRange(ByVal sht As Worksheet, rng As Range)

    'do things ...

End Function

但我不知道如何将范围传递给函数。