Excel VBA コンボボックスにリストを設定する 選択された値を取得する

• オブジェクト（必須）
  ComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトを表すオブジェクト名を指定します。
• Item【ｱｲﾃﾑ】（必須）
  項目に設定する文字列を設定または参照します。
• Index【ｲﾝﾃﾞｯｸｽ】（省略可）
  新しい項目を追加する位置を整数値で指定します。省略した場合は末尾に追加されます。
  なお、先頭の番号は0から始まります。

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "AAAA"
    .AddItem "BBBB"
    .AddItem "CCCC"
    .AddItem "DDDD"
    .AddItem "EEEE"
    .AddItem "FFFF", 0
End With
End Sub

2行目【With ComboBox1】
ComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトを表すオブジェクト名 ComboBox1をWith【ｳｨｽﾞ】ステートメントで指定します。

3行目～8行目
【.AddItem “AAAA”
.AddItem “BBBB”
.AddItem “CCCC”
.AddItem “DDDD”
.AddItem “EEEE”
.AddItem “FFFF”, 0】
With【ｳｨｽﾞ】ステートメントで指定したComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】オブジェクトコントロールのAddItem【ｱﾄﾞｱｲﾃﾑ】メソッドを使用して項目を追加します。項目FFFFの引数Indexに0を指定して項目の先頭に表示するように設定しました。

Private Sub UserForm_Initialize()
Dim 最終行 As Integer
Dim i As Integer
最終行 = Worksheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 最終行
ComboBox1.AddItem Worksheets("リスト").Range("A" & i).Value
Next i
End Sub

2行目【Dim 最終行 As Integer】
ワークシートに登録されているコンボボックスの項目になるデータが入力されているセルの最終行を格納する変数「最終行」を整数型(Integer)で宣言します。

3行目【Dim i As Integer】
セルの行番号を繰り返し処理の中で格納するカウンター変数「i」を整数型(Integer)で宣言します。

4行目【最終行 = Worksheets(“リスト”).Cells(Rows.Count, 1).End(xlUp).Row】
コンボボックスのリストが入力されているワークシート「リスト」のA列のセルをEnd【ｴﾝﾄﾞ】プロパティを使用して最終セルからデータが入力されている終端セルまで引数xlupで上方向に移動してRow【ﾛｳ】プロパティで行番号を取得して変数「最終行」に代入します。つまり、ワークシート「リスト」に入力されているコンボボックスのリストデータの最終行番号を変数「最終行」に代入します。

5行目【For i = 1 To 最終行】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントで繰り返し処理の始まりです。カウンター変数iに順次1～リストの最終行番号の値を格納します。

6行目【ComboBox1.AddItem Worksheets(“リスト”).Range(“A” & i).Value】
ComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトのAddItem【ｱﾄﾞｱｲﾃﾑ】メソッドを使用してコンボボックスに項目を追加します。繰り返し処理の中でワークシートリストに入力されている項目を参照してコンボボックスの項目に追加します。

Private Sub CommandButton1_Click()
Dim 最終行 As Integer
最終行 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Sheet1").Cells(最終行, 1).Value = ComboBox1.Value
End Sub

2行目【Dim 最終行 As Integer】
選択した項目を登録するセルの最終行番号を格納する変数「最終行」を整数型(Integer)で宣言します。

3行目【最終行 = Worksheets(“Sheet1”).Cells(Rows.Count, 1).End(xlUp).Row + 1】
ワークシートSheet1のA列の最終行からEnd【ｴﾝﾄﾞ】プロパティを使用して、引数をxlupに指定し上方向にデータが入力されている終端セルまでに移動してRow【ﾛｳ】プロパティでその行番号を取得して1加算することでデータが入力されている終端行の次の行番号を取得して変数「最終行」に代入します。

4行目【Worksheets(“Sheet1”).Cells(最終行, 1).Value = ComboBox1.Value】
Sheet1のA列のデータが入力されている次の行のセルにコンボボックスで選択されている値を代入します。

• オブジェクト（必須）
  ComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトを表すオブジェクト名を指定します。
• 戻り値
  

  戻り値	内容
  True	コンボボックスに入力された値はリストに存在します。
  False	コンボボックスに入力された値はリストに存在しません。

Private Sub CommandButton1_Click()
With ComboBox1
If .MatchFound = False Then
MsgBox "リスト内のデータを入力してください。"
.SetFocus
Else
Dim 最終行 As Integer
最終行 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(最終行, 1).Value = ComboBox1.Value
End If
End With
End Sub

2行目【With ComboBox1】
ComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトを表すオブジェクト名ComboBox1をWith【ｳｨｽﾞ】ステートメントで指定します。

3行目【If .MatchFound = False Then】
If【ｲﾌ】ステートメントを使用して条件分岐をします。With【ｳｨｽﾞ】ステートメントで指定したComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトのMatchFound【ﾏｯﾁﾌｧﾝﾄﾞ】プロパティを使用して戻り値がFalseだったとき、つまりコンボボックスに入力されている値がリストにないときを定義します。

4行目【MsgBox “リスト内のデータを入力してください。”】
上記の条件が成立したときつまり、リストにない値が登録されたときMsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用して登録できないことをユーザーに伝えます。

5行目【.SetFocus】
With【ｳｨｽﾞ】ステートメントで指定したComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトのSetFocus【ｾｯﾄﾌｫｰｶｽ】メソッドを使用してフォーカスをComboBox【ｺﾝﾎﾞﾎﾞｯｸｽ】コントロールオブジェクトに戻します。

6行目【Else】
Else【ｴﾙｽﾞ】ステートメントで以降に条件が成立しなかった場合、つまりコンボボックスに入力または選択された値がリストと一致した場合の処理を記述します。