excel - 如何将工作表上的 activecell 设置为组合框的属性？

Question

我正在尝试将活动单元格设置为等于一个值，但不覆盖或设置该值。我只希望它从 Combobox1 中获取“名称”并将该单元格设置为活动单元格。但是这段代码一直覆盖值。

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("PR Calendar").Activate

Set ActiveCell.Select = Application.WorksheetFunction.VLookup(ComboBox1,Range("EventPage"), 1, False)

Unload Me
End Sub

有任何想法吗？谢谢！

Answer 1

试试下面的代码：

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets("PR Calendar").Activate
    Sheets("PR Calendar").Range("PRcol1").Cells(WorksheetFunction.Match(Sheet1.ComboBox1, Range("PRcol1"), False)).Select

    Unload Me
End Sub