组合框列位置

Question

我使用了下面的脚本，允许用户从组合框下拉列表中选择一列。

如何使用所选项目来查找用户所选列的位置？

想象一下，我想将Range("A1")设置为用户选择列中的第二个Cell。

Private Sub UserForm_Initialize()
Dim LastCol As Long
Dim i As Long
'Define Final Column
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

ComboBox1.Text = "Please Select Column"

'Allows a list to be created based on Column names
For i = 1 To LastCol
ComboBox1.AddItem Cells(1, i)
Next i
End Sub

下一部分是我的代码当前分解的地方

Public Sub Continue_Click()
Dim A As Range
Set A = ComboBox1.Cells(2,1)
Range("A1") = A
Hide
End Sub

编辑

我使用了以下方法，不确定这是否是最有效的，但似乎有效。

Set A = ActiveSheet.Rows("1:1").Find(Criteria1.ComboBox1.Value).EntireColumn

然后我可以使用A.Cells

Answer 1

您可以引用组合框的LinkedCell。