Question

我正在尝试将活动单元格设置为等于值，但不覆盖或设置该值。我只是想从Combobox1中取出“Name”并将该单元格设置为活动单元格。但是这段代码一直保持着重要的价值。

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

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

1 个答案: