Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42492 / 76735

←次へ　｜　前へ→


	【39311】コードを省略したい

初心者 - 06/6/22(木) 10:04 -


	引用なし

	パスワード

おはようございます。
いつもお世話になっています。
現在フォーム上にコンボボックス・テキストボックス・チェックボックスなどをはりつけ、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
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・　　　　
　　　　　　　　　　　　　　・　
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・

0 hits

▼

【39311】コードを省略したい 初心者 06/6/22(木) 10:04

≪