|
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できませんので3分割いたします)
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 '日にち
|
|