エクセルのマクロ

質問

Sub test()

Dim x As Range
　For Each x In Selection
　　　If x.Value <> "●" And Selection.Font.ColorIndex = 0 Then
　　　x.Value = "○"
　End If
Next

End Sub

上記は、選択されているセルのフォントが黒でかつ"●"が入力されていない場合は"○"を入力する、というマクロですがうまく動作しません。どうすれば正常に動作するようになるでしょうか？

回答No.3

BLUEPIXY · ベストアンサー

#1>それは既に試しているのですが、ダメでした。
フォント色が黒ではなく、自動になっているのでしょう
では以下を試してください
If x.Value <> "●" And (x.Font.ColorIndex = 0 Or x.Font.ColorIndex = xlColorIndexAutomatic) Then

お礼

ありがとうございました。
ＯＫでした。

回答No.4

noname#181803

黒のColorIndexって0じゃなくて1だったりして・・・。

お礼

ありがとうございました。

今調べてみましたが、そうみたいですね。
"0"は自動のようです。

回答No.2

久保 泰臣（@omi3_）

>セルのフォントが黒でかつ"●"が入力されていない場合

というのは、

not( x.Value = "●" And Selection.Font.ColorIndex = 0 )
x.Value <> "●" or Selection.Font.ColorIndex > 0

お礼

ありがとうございます。

回答No.1

BLUEPIXY

Selection.Font.ColorIndex = 0
を
x.Font.ColorIndex = 0
にしてみる

お礼

ありがとうございます。
が、それは既に試しているのですが、ダメでした。