VBAでプルダウンの表示

質問

VBAの勉強をしております。

ブックを開いたときに、プルダウンのユーザーフォームが表示され、
そしてプルダウンにはブックを開いた日から1年間の年月日が表示される処理を作りたいと思っております。

処理としては
(1)ユーザーフォームがブックを開かれると表示される
(2)ブックを開いたときにそのときの日付を取得する
(3)その日付から1年間をプルダウンに表示する
　（例）例えば質問日の7/22にブックを開いたとすると
　　　　「201507」「201508」「201509」「201510」・・・のように年と月を表示するようにしたいです。

そこで現在この処理を行うのにブックを開いたときにユーザーフォームを表示するようにはできたのですが、プルダウンで1年間を表示するにはどうしたらいいのでしょうか。
１、シートに「201507」～「201712」ぐらいまでをA列に記載し、
２、ブックを開いた日付を取得し、その日付を「YYYYMM」の形にし、
３、シートのA列を上から順に検索し、同じ数値のが見つかるまで検索する
４、見つかったら、そこの行数を読みとり、そこから12個分下にある数値を読み取り
５、それをプルダウンに表示させる

という処理の流れを考えたのですが、実際にどうVBEに書いたらいいかわかりません。

回答No.2

neKo_quatre · ベストアンサー

> ブックを開いたときに、プルダウンのユーザーフォームが表示され、

ならば、ユーザーフォームの中で処理完結するのが真っ当でしょう。

> １、シートに「201507」～「201712」ぐらいまでをA列に記載し、

シート使うのは冗長では。
プルダウン選択してフォームでＯＫ押したら、シートのそのセルに飛ぶとかなら、別ですが。

--
> 「201507」「201508」「201509」「201510」・・・のように年と月を表示するようにしたいです。

普通にアイテム追加するなら、

Private Sub UserForm_Initialize()
　Dim YYYY As Integer
　Dim MM As Integer
　Dim iCount As Integer

　YYYY = Year(Now()) ' 現在の年を取得
　MM = Month(Now()) ' 現在の月を取得

　For iCount = 1 To 12
　　ComboBox1.AddItem (Right("000" & YYYY, 4) & Right("0" & MM, 2))
　　MM = MM + 1
　　If 12 < MM Then
　　　MM = 1
　　　YYYY = YYYY + 1
　　End If
　Next iCount
　ComboBox1.ListIndex = 0
End Sub

とか。

お礼

回答ありがとうございました。

丁寧な回答かつ、コードも記載していただき大変勉強になりました。

回答No.3

FEX2053

まあ、コードで書けば別にそれでもいいんですけどね。
なんで「プロパティ」でシート上のセルを参照させないんですかね。
http://www.239-programing.com/excel-vba/ufm/ufm025.html
（真ん中あたりのRowSourceプロパティ参照）

初めから表示する個数が決まっているなら、ワークシート上に
算式で計算させたセルを表示させる方が簡単だと思うんですが。

お礼

回答ありがとうございました。

VBA初心者であり、そのような方法があることを知りませんでした。
勉強になりました、ありがとうございます。

回答No.1

keithin

ユーザーフォームにはCombobox1が配置されている。

ユーザーフォームモジュール：
private sub Userform_Initialize()
　dim i as integer
　for i = 0 to 11
　　me.combobox1.additem format(dateadd("m",i,date), "yyyymm")
　next i
end sub

お礼

回答ありがとうございました。