VB今日で２週間め！コーデリング教えて下さい！

質問

エクセルVBA初心者で、なんだか何を聞くのも怖い感じなのですが、どのようにコードを書いてよいのか解りません、
どうか御教授お願い致します。
A列のセルがコンボボックスのリストに反映されるようになっています、
Private Sub ComboBox1_Change()
ActiveSheet.ComboBox1.ListFillRange = "A1:A20"
End Sub
コンボボックス内のドロプダウンリスト内に選ぶべき項目がない時に、
コンボボックスに書き込み、Enterを押すとA列のセルに選択項目が
A21・A22・・・・A26と増えていく様にしたいのですが、
どのようにすればよいのでしょうか？
宜しくお願い致します。

回答No.1

nishi6 · ベストアンサー

ComboBox1_Change に書くと、既にあるリスト項目から選択した時もイベントが起きますし、うまくいったとしてもListFillRangeが元に戻ってしまうので下記の様にしました。（ComboBox1_Changeには何も書きません）

最初のListFillRangeがA1:A20なら一番最初に、ComboBox1のプロパティ(編集モードでComboBox1を右クリックしてプロパティを選択)のListFillRangeをA1:A20としておけばいいでしょう。下記で追加する毎に更新されていきます。

次のように、ComboBox1_KeyDownに書き、Enterを押した時リストに無ければ、ListIndexが『-1』になります。この時、ListFillRangeを更新するようにしました。

更新する時は、まずListFillRangeを求めておき（セル範囲）、追加するべきセルを求め（１行下）、内容を書き込んでいます。その後、UnionでListFillRangeを、２つの範囲を結合したセル範囲に再定義しています。

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Enterを押した場合の処理
If KeyCode = vbKeyReturn Then
'ComboBox1.Textがリストに無い場合
If ComboBox1.ListIndex = -1 Then
Dim myFillRange As Range 'ComboBox1の内容リスト
Dim myAddRange As Range '付け加えるセル
'追加前のListFillRange・・・セル範囲１
Set myFillRange = Range(ComboBox1.ListFillRange)
'追加する位置（追加前のListFillRangeの次の行）・・・セル範囲２
Set myAddRange = Range("A" & (myFillRange.Rows.Count + 1))
'ComboBox1に入力した値を登録
myAddRange = ComboBox1.Text
'ListFillRangeを更新する（セル範囲１とセル範囲２の結合）
ComboBox1.ListFillRange = Union(myFillRange, myAddRange).Address
End If
End If
End Sub

うまくいけばいいですが。では。

お礼

すごい！
完璧にうごきました！
大変ありがとう御座います。
それにしてもA1:A20は、
プロパティで設定出来たんですね！
なんと言う無駄な努力をしていたのかと
ナサケなく思います。
これからも、宜しくお願いします。