Excelコンボボックスのテキストと異なるVBA値

Question

選択時にピボットテーブルを更新するコンボボックスを設定しています。しかし、コンボボックスが選択したテキストとは異なる値を返すという価値が必要です。

ex。ドロップダウンボックス "Cheerios"で製品名を選択します。しかし、それは1234のSKU番号を持っています。私は、Cheeriosという言葉ではなく1234を返すコンボボックスが必要です。

これは可能ですか？

編集：以下

は私がから移入私のリストを取得していますどこの画像です。列Bはドロップダウンに表示されている列で、列Aは製品が選択されたときに返されたものです。

編集2：

Private Sub cmb_SkuSelect_Click() 
    Dim xlSheetSort As Worksheet 
    Dim lastRow As Long 
    Dim skuValue As Integer 

    Set xlSheetSort = ActiveWorkbook.Worksheets("Sort") 
    lastRow = xlSheetSort.Range("A1").End(xlDown).Row 

    With xlSheetSort.Range("B1:B" & lastRow) 
     Set c = .Find(cmb_SkuSelect.Value, LookIn:=xlValues) 
     If Not c Is Nothing Then 
      skuValue = xlSheetSort.Range("A" & c.Row).Value 
     End If 
    End With 

    cmb_SkuSelect.Value = "" 
    ActiveWorkbook.ActiveSheet.Range("A4").Value = skuValue 

    updatePivot skuValue 
End Sub 

updatePivot：

Public Sub updatePivot(ByVal sku As Integer) 
    Dim xlSheet As Worksheet 
    Dim xlPTable As PivotTable 

    Set xlSheet = ActiveWorkbook.Worksheets("Sku Inventory") 

    For Each xlPTable In xlSheet.PivotTables 
     With xlPTable 
      .PivotFields("Sku Number").CurrentPage = sku 
     End With 
    Next 
End Sub 

Answer 1

それを試してみてください。

Private Sub ComboBox1_Change() 
    Dim valueToLook As String 
    valueToLook = ComboBox1.Value 
    Dim sku, i As Integer 
    Dim LastRow As Long 
    With ActiveSheet 
     LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 
    End With 
    For i = 1 To LastRow 
     If Cells(i, 2).Value = valueToLook Then 
      sku = Cells(i, 1).Value 
      MsgBox sku 
      Exit For 
     End If 
    Next i 
End Sub