Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9513 / 76738 ←次へ　｜　前へ→
【72787】Re:スピンボタンの表示
質問  ume  - 12/9/19(水) 10:31 -
引用なし
パスワード
   UO3 さん おはようございます

Set TBL(1) = TextBox6
Set TBL(2) = TextBox7
Set TBL(3) = TextBox8
Set TBL(4) = TextBox9
あたりが完全でないのとスピンボタンが2からスタートしてしまいます
Option Explicitを付けるとエラーになってしまいます
TextBox6は （& "/" & shデータ.Range("B" & x + 1).Value）を消そうかなと思っています＾＾

他の動作は完ぺきです
下記のようにしてみました(長すぎてUPできませんので３分割いたします)


Dim TBL(1 To 4) As Control
Dim shデータ As Worksheet
Dim レコード数 As Long

Private Sub ComboBox2_Change()

　　If ComboBox2.Text = Worksheets("Sheet1").Range("B1").Value Then '工事開始のお知らせ
　　UserForm1.CheckBox1.Value = True '大工
　　UserForm1.CheckBox2.Value = True '基礎
　　UserForm1.CheckBox3.Value = True '電気
　　UserForm1.CheckBox4.Value = True '水道
　　UserForm1.CheckBox5.Value = True '屋根
　　UserForm1.CheckBox6.Value = True '板金
　　UserForm1.CheckBox7.Value = True '左官
　　UserForm1.CheckBox8.Value = True '石
　　UserForm1.CheckBox9.Value = True 'ﾀｲﾙ
　　UserForm1.CheckBox10.Value = True 'ｶﾞﾗｽ
　　UserForm1.CheckBox11.Value = True '建具
　　UserForm1.CheckBox12.Value = True '内装
　　UserForm1.CheckBox13.Value = True '畳
　　UserForm1.CheckBox14.Value = True '塗装
　　UserForm1.CheckBox15.Value = True '磨き
　　UserForm1.CheckBox16.Value = True 'ガス
　　UserForm1.CheckBox17.Value = True '住設
　　UserForm1.CheckBox18.Value = True '仮設トイレ
　　UserForm1.CheckBox19.Value = True '外構
　　UserForm1.CheckBox20.Value = True 'FRP
　　UserForm1.CheckBox21.Value = True 'ｳﾚﾀﾝ
　　UserForm1.CheckBox22.Value = True '消毒
　　UserForm1.CheckBox23.Value = True '清掃
　　UserForm1.CheckBox24.Value = True '足場
　　UserForm1.CheckBox25.Value = True 'ｺﾝｸﾘｰﾄ
　　UserForm1.CheckBox26.Value = True '鉄骨
　　UserForm1.CheckBox27.Value = True '野村商店
　　UserForm1.CheckBox28.Value = True '材木1
　　UserForm1.CheckBox29.Value = True '材木2
　　UserForm1.CheckBox30.Value = True '材木3
　　UserForm1.CheckBox31.Value = True '照明
　　UserForm1.CheckBox32.Value = True '金物
　　UserForm1.CheckBox33.Value = True 'レッカー
　　UserForm1.CheckBox34.Value = True 'ｺﾝﾃﾅ
　　UserForm1.CheckBox35.Value = True '設計


　　TextBox1.Value = Worksheets("Sheet1").Range("N1").Value '備考
　　TextBox4.Value = Worksheets("Sheet1").Range("I1").Value '日にち


　　ElseIf ComboBox2.Text = Worksheets("Sheet1").Range("B2").Value Then '地鎮祭のお知らせ
　　UserForm1.CheckBox1.Value = False '大工
　　UserForm1.CheckBox2.Value = True '基礎
　　UserForm1.CheckBox3.Value = False '電気
　　UserForm1.CheckBox4.Value = False '水道
　　UserForm1.CheckBox5.Value = False '屋根
　　UserForm1.CheckBox6.Value = False '板金
　　UserForm1.CheckBox7.Value = False '左官
　　UserForm1.CheckBox8.Value = False '石
　　UserForm1.CheckBox9.Value = False 'ﾀｲﾙ
　　UserForm1.CheckBox10.Value = False 'ｶﾞﾗｽ
　　UserForm1.CheckBox11.Value = False '建具
　　UserForm1.CheckBox12.Value = False '内装
　　UserForm1.CheckBox13.Value = False '畳
　　UserForm1.CheckBox14.Value = False '塗装
　　UserForm1.CheckBox15.Value = False '磨き
　　UserForm1.CheckBox16.Value = False 'ガス
　　UserForm1.CheckBox17.Value = False '住設
　　UserForm1.CheckBox18.Value = False '仮設トイレ
　　UserForm1.CheckBox19.Value = True '外構
　　UserForm1.CheckBox20.Value = False 'FRP
　　UserForm1.CheckBox21.Value = False 'ｳﾚﾀﾝ
　　UserForm1.CheckBox22.Value = False '消毒
　　UserForm1.CheckBox23.Value = False '清掃
　　UserForm1.CheckBox24.Value = False '足場
　　UserForm1.CheckBox25.Value = False 'ｺﾝｸﾘｰﾄ
　　UserForm1.CheckBox26.Value = False '鉄骨
　　UserForm1.CheckBox27.Value = False '野村商店
　　UserForm1.CheckBox28.Value = False '材木1
　　UserForm1.CheckBox29.Value = False '材木2
　　UserForm1.CheckBox30.Value = False '材木3
　　UserForm1.CheckBox31.Value = False '照明
　　UserForm1.CheckBox32.Value = False '金物
　　UserForm1.CheckBox33.Value = False 'レッカー
　　UserForm1.CheckBox34.Value = False 'ｺﾝﾃﾅ
　　UserForm1.CheckBox35.Value = True '設計
　　
　　TextBox1.Value = Worksheets("Sheet1").Range("N2").Value '備考
　　TextBox4.Value = Worksheets("Sheet1").Range("I2").Value '日にち
　　
　　ElseIf ComboBox2.Text = Worksheets("Sheet1").Range("B3").Value Then '仮設ﾄｲﾚ、水道、電気依頼
　　UserForm1.CheckBox1.Value = False '大工
　　UserForm1.CheckBox2.Value = False '基礎
　　UserForm1.CheckBox3.Value = True '電気
　　UserForm1.CheckBox4.Value = True '水道
　　UserForm1.CheckBox5.Value = False '屋根
　　UserForm1.CheckBox6.Value = False '板金
　　UserForm1.CheckBox7.Value = False '左官
　　UserForm1.CheckBox8.Value = False '石
　　UserForm1.CheckBox9.Value = False 'ﾀｲﾙ
　　UserForm1.CheckBox10.Value = False 'ｶﾞﾗｽ
　　UserForm1.CheckBox11.Value = False '建具
　　UserForm1.CheckBox12.Value = False '内装
　　UserForm1.CheckBox13.Value = False '畳
　　UserForm1.CheckBox14.Value = False '塗装
　　UserForm1.CheckBox15.Value = False '磨き
　　UserForm1.CheckBox16.Value = False 'ガス
　　UserForm1.CheckBox17.Value = False '住設
　　UserForm1.CheckBox18.Value = True '仮設トイレ
　　UserForm1.CheckBox19.Value = False '外構
　　UserForm1.CheckBox20.Value = False 'FRP
　　UserForm1.CheckBox21.Value = False 'ｳﾚﾀﾝ
　　UserForm1.CheckBox22.Value = False '消毒
　　UserForm1.CheckBox23.Value = False '清掃
　　UserForm1.CheckBox24.Value = False '足場
　　UserForm1.CheckBox25.Value = False 'ｺﾝｸﾘｰﾄ
　　UserForm1.CheckBox26.Value = False '鉄骨
　　UserForm1.CheckBox27.Value = False '野村商店
　　UserForm1.CheckBox28.Value = False '材木1
　　UserForm1.CheckBox29.Value = False '材木2
　　UserForm1.CheckBox30.Value = False '材木3
　　UserForm1.CheckBox31.Value = False '照明
　　UserForm1.CheckBox32.Value = False '金物
　　UserForm1.CheckBox33.Value = False 'レッカー
　　UserForm1.CheckBox34.Value = False 'ｺﾝﾃﾅ
　　UserForm1.CheckBox35.Value = False '設計
　　
　　TextBox1.Value = Worksheets("Sheet1").Range("N3").Value '備考
　　TextBox4.Value = Worksheets("Sheet1").Range("I3").Value '日にち
　　
　　ElseIf ComboBox2.Text = Worksheets("Sheet1").Range("B4").Value Then 'ｺﾝﾃﾅ設置依頼
　　UserForm1.CheckBox1.Value = True '大工
　　UserForm1.CheckBox2.Value = False '基礎
　　UserForm1.CheckBox3.Value = False '電気
　　UserForm1.CheckBox4.Value = False '水道
　　UserForm1.CheckBox5.Value = False '屋根
　　UserForm1.CheckBox6.Value = False '板金
　　UserForm1.CheckBox7.Value = False '左官
　　UserForm1.CheckBox8.Value = False '石
　　UserForm1.CheckBox9.Value = False 'ﾀｲﾙ
　　UserForm1.CheckBox10.Value = False 'ｶﾞﾗｽ
　　UserForm1.CheckBox11.Value = False '建具
　　UserForm1.CheckBox12.Value = False '内装
　　UserForm1.CheckBox13.Value = False '畳
　　UserForm1.CheckBox14.Value = False '塗装
　　UserForm1.CheckBox15.Value = False '磨き
　　UserForm1.CheckBox16.Value = False 'ガス
　　UserForm1.CheckBox17.Value = False '住設
　　UserForm1.CheckBox18.Value = False '仮設トイレ
　　UserForm1.CheckBox19.Value = False '外構
　　UserForm1.CheckBox20.Value = False 'FRP
　　UserForm1.CheckBox21.Value = False 'ｳﾚﾀﾝ
　　UserForm1.CheckBox22.Value = False '消毒
　　UserForm1.CheckBox23.Value = False '清掃
　　UserForm1.CheckBox24.Value = False '足場
　　UserForm1.CheckBox25.Value = False 'ｺﾝｸﾘｰﾄ
　　UserForm1.CheckBox26.Value = False '鉄骨
　　UserForm1.CheckBox27.Value = False '野村商店
　　UserForm1.CheckBox28.Value = False '材木1
　　UserForm1.CheckBox29.Value = False '材木2
　　UserForm1.CheckBox30.Value = False '材木3
　　UserForm1.CheckBox31.Value = False '照明
　　UserForm1.CheckBox32.Value = False '金物
　　UserForm1.CheckBox33.Value = False 'レッカー
　　UserForm1.CheckBox34.Value = True 'ｺﾝﾃﾅ
　　UserForm1.CheckBox35.Value = False '設計
　　
　　TextBox1.Value = Worksheets("Sheet1").Range("N4").Value '備考
　　TextBox4.Value = Worksheets("Sheet1").Range("I4").Value '日にち
　　
　　ElseIf ComboBox2.Text = Worksheets("Sheet1").Range("B5").Value Then '業者打合せ
　　UserForm1.CheckBox1.Value = True '大工
　　UserForm1.CheckBox2.Value = False '基礎
　　UserForm1.CheckBox3.Value = True '電気
　　UserForm1.CheckBox4.Value = True '水道
　　UserForm1.CheckBox5.Value = False '屋根
　　UserForm1.CheckBox6.Value = False '板金
　　UserForm1.CheckBox7.Value = False '左官
　　UserForm1.CheckBox8.Value = True '石
　　UserForm1.CheckBox9.Value = True 'ﾀｲﾙ
　　UserForm1.CheckBox10.Value = True 'ｶﾞﾗｽ
　　UserForm1.CheckBox11.Value = False '建具
　　UserForm1.CheckBox12.Value = False '内装
　　UserForm1.CheckBox13.Value = False '畳
　　UserForm1.CheckBox14.Value = False '塗装
　　UserForm1.CheckBox15.Value = False '磨き
　　UserForm1.CheckBox16.Value = True 'ガス
　　UserForm1.CheckBox17.Value = True '住設
　　UserForm1.CheckBox18.Value = False '仮設トイレ
　　UserForm1.CheckBox19.Value = False '外構
　　UserForm1.CheckBox20.Value = False 'FRP
　　UserForm1.CheckBox21.Value = False 'ｳﾚﾀﾝ
　　UserForm1.CheckBox22.Value = False '消毒
　　UserForm1.CheckBox23.Value = False '清掃
　　UserForm1.CheckBox24.Value = False '足場
　　UserForm1.CheckBox25.Value = False 'ｺﾝｸﾘｰﾄ
　　UserForm1.CheckBox26.Value = False '鉄骨
　　UserForm1.CheckBox27.Value = False '野村商店
　　UserForm1.CheckBox28.Value = False '材木1
　　UserForm1.CheckBox29.Value = False '材木2
　　UserForm1.CheckBox30.Value = False '材木3
　　UserForm1.CheckBox31.Value = False '照明
　　UserForm1.CheckBox32.Value = False '金物
　　UserForm1.CheckBox33.Value = False 'レッカー
　　UserForm1.CheckBox34.Value = False 'ｺﾝﾃﾅ
　　UserForm1.CheckBox35.Value = False '設計
　　
　　TextBox1.Value = Worksheets("Sheet1").Range("N5").Value '備考
　　TextBox4.Value = Worksheets("Sheet1").Range("I5").Value '日にち
　　
　　
0 hits
▼ 【72745】スピンボタンの表示 ume 12/9/14(金) 14:20 質問
【72746】Re:スピンボタンの表示 UO3 12/9/14(金) 22:06 発言
【72766】Re:スピンボタンの表示 ume 12/9/18(火) 11:07 質問
【72767】Re:スピンボタンの表示 UO3 12/9/18(火) 12:24 発言
【72771】Re:スピンボタンの表示 ume 12/9/18(火) 17:47 質問
【72772】Re:スピンボタンの表示 UO3 12/9/18(火) 19:19 発言
【72768】Re:スピンボタンの表示 UO3 12/9/18(火) 13:07 発言
【72769】Re:スピンボタンの表示 UO3 12/9/18(火) 13:29 発言
【72787】Re:スピンボタンの表示 ume 12/9/19(水) 10:31 質問≪
【72788】Re:スピンボタンの表示 ume 12/9/19(水) 10:34 質問
【72789】Re:スピンボタンの表示 ume 12/9/19(水) 10:37 質問
【72790】Re:スピンボタンの表示 UO3 12/9/19(水) 11:36 発言
【72791】Re:スピンボタンの表示 ume 12/9/19(水) 13:39 質問
【72792】Re:スピンボタンの表示 UO3 12/9/19(水) 14:45 発言
【72795】Re:スピンボタンの表示 ume 12/9/19(水) 15:41 発言
【72793】Re:スピンボタンの表示 UO3 12/9/19(水) 15:07 発言
【72797】Re:スピンボタンの表示 ume 12/9/19(水) 16:24 お礼
【72799】Re:スピンボタンの表示 ume 12/9/19(水) 18:07 質問
【72800】Re:スピンボタンの表示 UO3 12/9/19(水) 20:44 発言
【72801】Re:スピンボタンの表示 UO3 12/9/19(水) 20:56 発言
【72810】Re:スピンボタンの表示 ume 12/9/20(木) 17:59 質問
【72815】Re:スピンボタンの表示 UO3 12/9/20(木) 21:28 発言
【72819】Re:スピンボタンの表示 ume 12/9/21(金) 13:13 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9513 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free