エクセルの連続データをユーザー指定数を改行して表示

質問

いつもありがとうございます。
エクセル初心者です。時間なく困っておりますので、質問させて頂きます。
よろしくお願い致します。

（Sheet2）の連続したデータを（Sheet1 ）で作成したユーザーフォームのコソボボックスから選択し、リストボックスにユーザー指定数を入力させ、【決定】を押すと
（Sheet1） のＡ１～Ｅ１に格納
改行してＡ３～Ｅ３
改行してＡ５～Ｅ５
改行してＡ７～Ｅ７・・・のように指定数と決まった（右方向のオートフィル）と改行して数値を格納させてたく思っております。

=INDEX(Sheet2!$A:$A,COLUMN(A1)+(ROW(A1)-1)*5)のような関数ではなく、
ＶＢＡとユーザーフォームでお願い致します。

また画像のように【←　→】で、コソボボックスの値が選択した状態から変更出来れば助かります。

そこから指定数が格納されるように希望です。
※連続したデータは今後増える可能性ありです。

よろしくお願い致します。

回答No.2

keithin · ベストアンサー

UserForm1にCombobox1、TextBox1、CommandButton1,2,3を配置する。
UserForm1モジュールに下記を作成する。

private sub UserForm_Initialize()
　me.combobox1.rowsource = "Sheet2!A2:A" & worksheets("Sheet2").range("A65536").end(xlup).row
end sub

private sub CommandButton1_Click()
’左矢印
　me.combobox1.listindex = application.max(0, me.combobox1.listindex - 1)
end sub

private sub CommandButton2_Click()
’右矢印
　me.combobox1.listindex = application.min(me.combobox1.listcount - 1, me.combobox1.listindex + 1)
end sub

private sub CommandButton3_Click()
’登録
　dim c as long, r as long, p as long
　if me.combobox1 = "" or not isnumeric(me.textbox1) then exit sub
　range("A:E").clearcontents　’適宜調整の事

　for p = 0 to val(me.textbox1) - 1
　　c = p mod 5 + 1
　　r = (p \ 5) * 2 + 1
　　worksheets("Sheet1").cells(r, c) = worksheets("Sheet2").range("A2").offset(me.combobox1.listindex + p, 0)
　next p
end sub

補足

keithin さん、ご回答ありがとうございます。思った通りのことが出来ました。
甘えついでに申し訳ございません。

Sheet1のA1とB1が結合している場合【A1】～E1とF1で【E1】～A7とB7で【A7】・・・のように格納させるセルが結合の場合はどのような記述となるのでしょうか？

また記述では、コンボボックス×数値（リストボックス）を【登録】すると反映されるようになっておりますが、現在の機能を残しつつ、選択されたコンボボックスの値のみをカーソルのあるセルに【登録】する処理はどのようになりますでしょうか？

お手数ですがよろしくお願い致します。

回答No.1

msMike

「コソボボックス」の“こそぼ”って何？