テキストボックスのデフォルト設定とコンボボックスの更新について

質問

テキストボックスのデフォルト設定とコンボボックスの更新について

エクセルのＶＢＡで、ユーザーフォームを使用しています。
ユーザーフォームの中にはコンボボックスとテキストボックスとボタンがあります。

コンボボックスには「ＡＢＣＤＥＦＧＨＩＪＫＬＭ」と合計13のリストがあります。

ユーザーフォーム起動時に、コンボボックスには最初のリスト(Ａ)が表示
されていて、「次へ」ボタンと「戻る」ボタンの２つを用意しています。
(1)ユーザーフォーム起動時にテキストボックスに「0」を入れる方法を教えていただけないでしょうか。

コンボボックスで「Ａ」が選択された状態で「次へ」ボタンをおしたら「Ｂ」が選ばれる。
「Ｄ」が選択された状態で「次へ」ボタンをおしたら「Ｅ」が選ばれる。
「Ｍ」が選択された状態で「次へ」ボタンをおしたら「Ａ」が選択される。（リストの最初に戻る。）
というのは、次のＶＢＡで上手くいきました。
If Combobox1.ListIndex < Combobox1.ListCount - 1 Then
Combobox1.Text = Combobox1.List(Combobox1.ListIndex + 1)
Else
Combobox1.Text = Combobox1.List(0)
End If

(2)しかし「Ｅ」が選択された状態で「戻る」ボタンをおしたら「Ｄ」が選ばれる。
「Ｇ」が選択された状態で「戻る」ボタンをおしたら「Ｆ」が選ばれる。
「Ａ」が選択された状態で「戻る」ボタンをおしたら「Ｍ」が選ばれる。（リストの最後に戻る。）
といった内容のマクロがうまく組めません。

教えていただけると助かります。

回答No.2

myRange · ベストアンサー

回答１、myRangeです。

＞ちなみに、このＶＢＡはどうやって覚えましたか？
＞あるいは、本などで調べられるものでしょうか。

ふつうComboBoxは質問のような使い方をしないので、
本にはそのものずばりというコードは載ってないでしょう。

VBAのヘルプをじっくり眺めて、プロパティ、メソッドなどの機能を
いくつも試してみながらひとつひとつ理解していけば
時間は掛かるでしょうがどんなコードでも書けるようになります。

因みに、ひと月である程度のコードが書けるようになるには
以下のような手段で、日に４～５時間程度勉強をすればいいでしょう。

　　ＶＢＡ専用サイト
　　ＶＢＡ専用Ｑ＆Ａ
　　ＶＢＡのヘルプ
　　参考書（入門編、応用編、各１～２冊）

あとは、粘りと根性！！
以上です。

お礼

ＶＢＡは、そう簡単にマスター出来るわけではないのですね。

コツコツと学習していきます。
ありがとうございました。

回答No.1

myRange

'-----リスト範囲は、Sheet1のA1～Aデータ最終行---------

Private Sub UserForm_Initialize()
　Dim LastRow As Long
　LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

　With ComboBox1
　　　　.List = Sheets("Sheet1").Range("A1:A" & LastRow).Value
　　　　.ListIndex = 0　　　'●最初の項目表示
　End With
End Sub

'-------●次へ-------------------------
Private Sub CommandButton1_Click()
　If ComboBox1.ListIndex = ComboBox1.ListCount - 1 Then
　　　　ComboBox1.ListIndex = 0
　Else
　　　　ComboBox1.ListIndex = ComboBox1.ListIndex + 1
　End If
End Sub

'------●前へ--------------------------
Private Sub CommandButton2_Click()
　If ComboBox1.ListIndex = 0 Then
　　　　ComboBox1.ListIndex = ComboBox1.ListCount - 1
　Else
　　　　ComboBox1.ListIndex = ComboBox1.ListIndex - 1
　End If
End Sub
'----------------------------------------------

以上です。

お礼

無事にリストの更新が出来ました。
ありがとうございました。

ちなみに、このＶＢＡはどうやって覚えましたか？
あるいは、本などで調べられるものでしょうか。