Exelでの質問です。


セル内にAという文字がある場合に
セルの背景色を黄色などにしたいのですが
マクロで背景色を指定する方法はありますでしょうか。
あるようであれば教えていただければと思います。

回答の条件
  • 1人5回まで
  • 登録:2007/05/09 15:04:32
  • 終了:2007/05/13 21:51:37

回答(2件)

id:SALINGER No.1

SALINGER回答回数3430ベストアンサー獲得回数9692007/05/09 15:23:23

ポイント35pt

セルがAという文字列なら

Sub Macro()
    Dim myRange As Range
    
    Application.ScreenUpdating = False
    
    For Each myRange In ActiveSheet.UsedRange
        If myRange.Value = "A" Then
            myRange.Interior.ColorIndex = 6
        Else
            myRange.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

セルにAという文字列が含まれていたら

Sub Macro()
    Dim myRange As Range
    
    Application.ScreenUpdating = False
    
    For Each myRange In ActiveSheet.UsedRange
        If InStr(myRange.Value, "A") > 0 Then
            myRange.Interior.ColorIndex = 6
        Else
            myRange.Interior.ColorIndex = xlNone
        End If
    Next
End Sub
id:quocard

ご丁寧な回答ありがとうございます。

下記のように簡単に指定する方法は難しいでしょうか?

=if(A1="A",背景色黄色,なにもしない)

2007/05/09 15:45:42
id:SALINGER No.2

SALINGER回答回数3430ベストアンサー獲得回数9692007/05/09 15:55:44

ポイント35pt

マクロとあったのでマクロで書きましたが、

通常数式で設定するのではなく条件付書式で設定します。

シートを全部選択し

メニューの書式→条件付書式

セルの値が 次の値に等しい A

下の書式でパターンを黄色に指定します。

id:quocard

ありがとうございます。

参考にさせていただきます。

2007/05/09 16:43:40

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません