Excel VBA質問箱 IV

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

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


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

55490 / 76738

←次へ　｜　前へ→


	【26022】Re:各々条件を指定しセルの色を変える方法に...

ｍ2ｍ10 - 05/6/22(水) 8:07 -


	引用なし

	パスワード

改行でマクロを動かすサンプルです。

　 Case の条件を増やせば、可能です。　

Sub 表示変更のマクロ開始()
　　　Application.OnKey "{ENTER}", "表示変更"
　　　Application.OnKey "~", "表示変更"
End Sub

Sub 表示変更のマクロ終了()
　　　Application.OnKey "{ENTER}"
　　　Application.OnKey "~"
End Sub

Public Sub 表示変更()

　If Mid(ActiveCell.Address, 1, 3) = "$C$" Then
　　 ' C列だけ色を付ける

　　Select Case Range(ActiveCell.Address).Value
　　
　　　Case 0.1
　　　　　　Range(ActiveCell.Address).Interior.ColorIndex = 3
　　　Case 0.2
　　　　　　Range(ActiveCell.Address).Interior.ColorIndex = 4
　　　Case 0.3
　　　　　　Range(ActiveCell.Address).Interior.ColorIndex = 5
　　　Case Else
　　　　　　Range(ActiveCell.Address).Interior.ColorIndex = 0
　　　
　　 End Select
　　　
　End If
　　　
　　 ActiveCell.Offset(1, 0).Select

End Sub

0 hits

▼

【26007】各々条件を指定しセルの色を変える方法に... mayu 05/6/21(火) 16:28