組合框中的圖紙名userform

Question

我正在尋找一種方法將圖紙名添加到我的組合框中。

最終結果應該是：

2組合框彼此相鄰分別在第一盒我可以進入SHEETNAME並與來自我剛選擇的片材的第二框數據。

謝謝！

Answer 1

作爲一個起點，請執行以下操作：
一個新的工作簿開始，加2個組合框到Sheet1中，那麼這段代碼添加到「的ThisWorkbook」的代碼模塊：

Private Sub Workbook_Open() 
    Dim ws As Worksheet 

    'iterate through all worksheets and add each one to the combobox 
    For Each ws In Worksheets 
     Sheet1.ComboBox1.AddItem ws.Name 'add sheet name to combobox 
    Next ws 
End Sub 

然後添加以下代碼到「工作表Sheet1」代碼模塊：

Private Sub ComboBox1_Change() 
    Dim i As Integer 
    If ComboBox1.Value <> "" Then 
     ComboBox2.Clear 'clear out the combobox 
     'add values from A1 to A5 to ComboBox2 from selected worksheet 
     For i = 1 To 5 
      ComboBox2.AddItem Worksheets(ComboBox1.Value).Range("A" & i).Value 
     Next i 
    End If 
End Sub 

使用上面的代碼爲出發點，閱讀每一行和研究，你不明白，直到你能解釋每行做什麼。然後，您將能夠在解決方案中使用相同的概念。