VBA代码，用于选择活动单元格并更新userform中的数据

我在userform中有搜索框，若在搜索框中输入的值指的是sheet1列b10，那个么如何将b10行编码为当前行。我把它编成这样

If Trim(Me.TextBox_Search_Data.Value) = "," Then
ActiveCell = Cells(Me.TextBox_Search_Data)
ActiveCell.Activate

CurrentRow = ActiveCell.Row

---

但此代码既没有给出任何错误，也没有激活当前行

您的逻辑不正确。在

中，如果在文本框中检查“

条件”。如果有逗号，则文本框不能有单元格值。可能您必须在

If

条件中使用其他文本框名称

试试下面

Private Sub CommandButton1_Click()
    Dim wb As Workbook
    Dim sh As Worksheet

    Set wb = ActiveWorkbook ' best is to use Set wb = Workbooks("workbookname.xlsx")
    Set sh = wb.Sheets("Sheet1") ' you may use Set sh = wb.Sheets("Sheet1")

    If Trim(Me.TextBox_Search_Data.Value) <> "," Then
        sh.Range(Trim(Me.TextBox_Search_Data.Value)).Activate
    End If

    Set sh = Nothing
    Set wb = Nothing
End Sub

Private子命令按钮1\u单击（）
将wb设置为工作簿
将sh设置为工作表
Set wb=ActiveWorkbook’最好使用Set wb=Workbooks（“workbookname.xlsx”）
Set sh=wb.Sheets（“Sheet1”）“您可以使用Set sh=wb.Sheets（“Sheet1”）
如果Trim（Me.TextBox\u Search\u Data.Value）“，”则
sh.Range（Trim（Me.TextBox\u Search\u Data.Value））。激活
如果结束
设置sh=无
设置wb=Nothing
端接头

你为什么试图激活任何东西<代码>选择和

激活

适用于宏记录器代码；手工编制的VBA代码通常不需要激活任何东西。