ExcelのVBAで「入力規則」で選択したセルに対して背景色をつけるには？ 削除
| Message#2 2015年2月7日(土)10時20分 From: あいすらんづ |
| 条件付き書式設定で指定した文字になったら色かえるとかすればうまくいきそうもしますが、あえてVBAってことで書くとこんな感じですかね。 一応ご希望どおり、イベントプロシージャで対応してます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim er As Integer On Error Resume Next With Target er = VarType(Target.Validation.AlertStyle) If Err.Number = 0 Then Select Case .Value Case "A" '色の変更 .Interior.Color = 5 'カラー色内容によって変更する Case "B" .Interior.Color = 5 'カラー色内容によって変更する Case "C" .Interior.Color = 5 'カラー色内容によって変更する Case Else .Interior.ColorIndex = XlColorIndex.xlColorIndexNone '色なし End Select End If End With On Error GoTo 0 End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
