Excel VBA質問箱 IV

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

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


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

41813 / 76735

←次へ　｜　前へ→


	【40000】指定したlabelのbackcolorの変更

taka - 06/7/5(水) 9:20 -


	引用なし

	パスワード

おはようございます。
comboboxの値によって、下記のコードの様に指定したlabelのbackcolorを変更したいのですが、うまくいきません・・・・。
例えば、7を選択し、label23.65の色は変わるのですが、次に10を選択すると、7で選択して変わったlabelの色はそのまま残り、10で選択したlabelの色がプラスされてしまいます。
又、下記コードに無い値を選択した場合は、labelの色は変更させたくないのですが・・・。
よろしくお願い致します。

If ComboBox1 = 7 Then
　 Label23.BackColor = &HC0C0FF
　 Label65.BackColor = &HC0C0FF
ElseIf ComboBox1 = 9 Then
　　Label23.BackColor = &HC0C0FF
　　Label65.BackColor = &HC0C0FF
　ElseIf ComboBox1 = 10 Then
　　 Label9.BackColor = &HC0C0FF
　　 Label51.BackColor = &HC0C0FF
　 ElseIf ComboBox1 = 11 Then
　　　Label6.BackColor = &HC0C0FF
　　　Label48.BackColor = &HC0C0FF
　　　Label26.BackColor = &HC0C0FF
　　　Label68.BackColor = &HC0C0FF
　　ElseIf ComboBox1 = 1 Then
　　　 Label2.BackColor = &HC0C0FF
　　　 Label44.BackColor = &HC0C0FF
　　　 Label9.BackColor = &HC0C0FF
　　　 Label51.BackColor = &HC0C0FF
　　 ElseIf ComboBox1 = 2 Then
　　　　Label16.BackColor = &HC0C0FF
　　　　Label58.BackColor = &HC0C0FF
　　　 ElseIf ComboBox1 = 3 Then
　　　　 Label24.BackColor = &HC0C0FF
　　　　 Label66.BackColor = &HC0C0FF
End If

0 hits

▼

【40000】指定したlabelのbackcolorの変更 taka 06/7/5(水) 9:20

≪