|
おはようございます。
いつもお世話になっています。
現在フォーム上にコンボボックス・テキストボックス・チェックボックスなどをはりつけ、sheetには50人分を作り、フォームと同じような様式のsheetを作っています。名前のコンボボックスより、選択すると、フォーム上にその人の情報が現れます。そこで打ち替えてボタンを押すと、その人のsheetに上書きされます。
下記のコード(一部分)は登録する際使うものです。オプションボタンやチェックボタンが沢山あり、ややこしく感じるのですが、もっと省略できる方法はありますか?
Dim MyS As String
MyS = Me.ComboBox1.Value
Worksheets(MyS).Range("I7").Value = TextBox4.Value
Worksheets(MyS).Range("AK3").Value = ComboBox2.Value
If OptionButton1 = True Then
Worksheets(MyS).Range("BB8").Value = "1"
ElseIf OptionButton2 = True Then
Worksheets(MyS).Range("BB8").Value = "2"
ElseIf OptionButton3 = True Then
Worksheets(MyS).Range("BB8").Value = "3"
ElseIf OptionButton4 = True Then
Worksheets(MyS).Range("BB8").Value = "4"
ElseIf OptionButton5 = True Then
Worksheets(MyS).Range("BB8").Value = "5"
End If
Worksheets(MyS).Range("BB66").Value = CheckBox1.Value
Worksheets(MyS).Range("BC66").Value = CheckBox2.Value
Worksheets(MyS).Range("BD66").Value = CheckBox3.Value
Worksheets(MyS).Range("BE66").Value = CheckBox4.Value
・
・
・
・
・
|
|