excel - コンボボックスのユーザーフォームのシート名

Question

コンボボックスにシート名を追加する方法を探しています。

最終結果は次のようになります。

隣り合った2つのコンボボックスは、最初のボックスにシート名を入力でき、2番目のボックスには選択したシートのデータがありました。

ありがとう！

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

上記のコードを出発点として使用し、各行を読んで、各行の機能を説明できるまで、理解できないことを調べてください。その後、ソリューションで同じ概念を使用できるようになります。