如果值在該列中，VBA 獲取列名

Question

我正在嘗試編寫一個代碼，其中 VBA 搜索表范圍並根據該單元格值是否在列中返回列名。 例如，如果輸入的值為“J-box”，則返回列名“3”。

我知道如何使用 excel 公式中的索引匹配來做到這一點，但我正在嘗試這樣做，以便如果我的技術人員選擇位置名稱，它將相關的位置編號拉到用戶表單中的文本框中。

Answer 1

我通過這樣做讓它工作

    Private Sub CommandButton1_Click()
Set iSheet = Worksheets("Locations")
iSheet.Range("P1").Interior.Color = RGB(100, 200, 1)
Match1 = Application.WorksheetFunction.Match(iSheet.Range("P1"), iSheet.Range("A1:A23"), 0)
Match2 = Application.WorksheetFunction.Match(iSheet.Range("P2"), iSheet.Range("B" & Match1 & ":N" & Match1), 0)

iSheet.TextBox1.Value = Application.WorksheetFunction.Index(iSheet.Range("B1:N1"), _
Match2)


End Sub