- ベストアンサー
スピンボタンとテキストボックスの連動
- Excel2000.2003のUserFormにSpinButton1とSpinButton2及びTextBoxを縦6横10の表らしきものを作りたい
- パソコン初心者にも使えるように、また入力ミスを防ぐためにSpinButton1とTextBoxのVisibleを変え、表示するようにしたい
- SpinButton1とSpinButton2の値に応じて、TextBoxの表示・非表示を切り替えたい
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
＞こんなかんじに したいのです。 一応理解したつもりです。 下記は、 TextBox1 ～5 TextBox6 ～10 ： TextBox36 ～40 と、提示された物と並びが異なりますが、横５・縦８に並んだものにしてあります。 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
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
＞意味解りますか？ 申し訳ありませんが、仕様が理解できません。 入力ミスを防ぐと言うよりも操作を煩雑にする方法に思えますが・・・。 入力値を自動的に配列に格納するとか、ラベルに一覧表示（あるいは数項目表示）する程度で良いのでは？
補足
hana-hana3さん ご指摘有難うございます 説明不足を痛感しています。 システムは 色とサイズと数量を同時に入力する様にと考えています ◆◆◆◆◆…←カラー ▼□□□□□… ▼□□□□□… *□…TextBox 数量 ▼□□□□□… ： ↑サイズ TextBoxに入る数値は1～1000まであり 型式によって、カラーやサイズが異なり 該当範囲が増減する為 サイズ領域…SpinButton1 カラー領域…SpinButton2で 該当TextBoxを 表示/非表示にしたいのです。 例えば SpinButton1="2" SpinButton2="3" ◆◆◆◆◆◆… ▼■■■□□□… ▼■■■□□□… ▼□□□□□□… ▼□□□□□□… ▼□□□□□□… ： 例えば SpinButton1="4" SpinButton2="2" ◆◆◆◆◆◆… ▼■■□□□□… ▼■■□□□□… ▼■■□□□□… ▼■■□□□□… ▼□□□□□□… ： こんなかんじに したいのです。
お礼
hana-hana3さん 有難うございます まだまだ 初心者 少しずつ理解して作り上げたいと思います また わからない点がありましたら よろしくお願いします。
補足
hana-hana3さん おはようございます 回答へのお礼 再投稿出来ない為に こちらの補足内容にて お礼をさせていただきます。 他の人の過去の質問等も参考にしながら もっと設定しやすいようにする為には、 テキストボックスの名前を、それをし易いようにして設定する事にしました、 hana-hana3さんのやり方も参考にさせてもらい 縦横で二重ループして、その中で If で分岐するやり方を 自分ながら勉強し進めていくつもりです。 有難うございました。