質問: スピンボタンとテキストボックスの連動 excel2000.2003 [userform]に [spinbutton1] と[spinbutton2] 及び [textbox]を縦6 横10の表らしきものを作り パソコン初心者にも使える様、また 入力ミスを防ぐ為に [spinbutton1.2]で必要な箇所[textbox]の 配置のvisibleをfalse⇔trueに変え表示するようにしたいのです --------------------------------------------------------- [textbox1] [textbox2] [spinbutton1] [spinbutton2] ------------------------------------------- [text 3][text 9][text15][...][...][...][][][][] [text 4][text10][text16][...][...][...][][][][] [text 5][text11][text17][...][...][...][][][][] [text 6][text12][text18][...][...][...][][][][] [text 7][text13][text19][...][...][...][][][][] [text 8][text14][text20][...][...][...][][][][] ---------------------------------------------- [text 1]は[spinbutton1]の値を表示します(初期値1) [text 2]は[spinbutton2]の値を表示します(初期値1) [text 3]は[spinbutton1][spinbutton2]が共に初期値1の為 デフォルトとして表示します。 spinbutton1を増減することにより、例えば spinbutton1="2"の場合 spinbutton2の値を考慮しながら [text 3][text 9][text15][...][...][...][][][][] [text 4][text10][text16][...][...][...][][][][] visibleがfalse⇔trueに変わり 例えば、spinbutton1="2"の場合 spinbutton2を増減すると 列配置の 例えば spinbutton2="1"の場合 spinbutton1の値を考慮しながら [text 9][text15][...][...][...][][][][] visibleがセットでfalse⇔trueに変わるようにしたいのです。 意味解りますか? どなたか助けてください。
回答: >こんなかんじに したいのです。 一応理解したつもりです。 下記は、 textbox1 ~5 textbox6 ~10 : textbox36 ~40 と、提示された物と並びが異なりますが、横5・縦8に並んだものにしてあります。 x = 1 、y = 8 の設定の変更で任意のテキストボックスが表示されますので、スピンボタンのイベントに合わせて呼ばれるようにして見てはいかがでしょうか? 考え方の参考にして下さい。 private sub userform_initialize() dim i, j dim y, x for i = 1 to 40 controls("textbox" & i).visible = false next x = 1 y = 8 for j = 0 to y * 5 - 1 step 5 for i = 1 to x controls("textbox" & i + j).visible = true next next end sub