ユーザーフォームでのコンボボックスについて。

質問

同じような内容の質問を探したのですが、解決の糸口がつかめず質問させていただきます。
ＶＢＡは初挑戦なんですが、本とネットではなかなか理解しづらいところがあって・・・。

自分の作っているフォームとは多少違いますが、説明を簡単にするために例を挙げさせていただきます。

まずSHEET1において、ユーザーフォームに3つのコンボボックスを配置しています。それぞれ、「月」「日」「曜」とします。
これを、SHEET2においてあるリスト「１～１２」と「１～３１」「月～金」にそれぞれ反映させたいのですが。
それを一つめのデータとして、「月」をＡ１、「日」をＢ１、「曜」をＡ２にそれぞれ配置して、二つめのデータはＡ３から始めたいのですが。

あともうひとつ。

SHEET3に表紙をおいて、コマンドボタンを配置し、そのボタンをクリックすると、SHEET1が開くと同時に、上記のユーザーフォームが出るってコトはできるのでしょうか？

ややこしくてすみません。
よろしくお願いします。

回答No.1

-yellowtail- · ベストアンサー

(1)コンボボックスのリストをシートから反映
※ついでにSHEET3に表紙をおいて、コマンドボタンを配置し、そのボタンをクリックすると、SHEET1が開くと同時に、上記のユーザーフォームが出るようになってます
このモジュールはSheets(3)に置いたボタンに書いてください。

Sub ボタン1_Click()
Dim f(), y As Integer, i As Integer
y = 1
i = 1
Do
　　ReDim Preserve f(i)
　　f(i - 1) = Sheets(2).Cells(y, 1)
　　i = i + 1
　　y = y + 1
Loop Until Sheets(2).Cells(y, 1) = ""

Sheets(1).Activate
Load UserForm1
UserForm1.ComboBox1.List = f()
UserForm1.Show
End Sub

f()で、リストの値を取得して、コンボボックスのリストに設定しています。
この場合はSheets(2)のA列から取得しています。

(2)それを一つめのデータとして、「月」をＡ１、「日」をＢ１、「曜」をＡ２にそれぞれ配置して、二つめのデータはＡ３から
※これは、Sheet(1)に入れると仮定します
Private Sub CommandButton1_Click()
Dim y As Integer
Sheets(1).Select
If Range("A1") = "" Then
　　y = 1
Else
　　y = Range("A65536").End(xlUp).Row + 1
End If
　　Cells(y, 1) = Me.ComboBox1.Value
　　Cells(y, 2) = Me.ComboBox2.Value
　　Cells(y + 1, 1) = Me.ComboBox3.Value
　　Me.ComboBox1 = ""
　　Me.ComboBox2 = ""
　　Me.ComboBox3 = ""
End Sub

もっと間単にも出来ると思いますが、すべて汎用性を持たせてみました。
(2)ではコンボボックスは閉じないで、２つ目のデータを続けて選択できるようにしています。
なので、登録ボタンの他にキャンセルボタンを設定し、ユーザーフォームを閉じるようにするといいと思います。

お礼

返事が遅くなり、まことに申し訳ありません。
それとありがとうございます。

とりあえず、自分でごちゃごちゃ作ったのはおいといて
新規に試用してみたいと思います。

本当にありがとうございました。