ID非公開

2021/4/18 23:45

33回答

C列に入力されている半角の数字とハイフンが、10桁以外だった場合、セルに色付けがしたいのですが、この命令文だときちんと10桁になっているはずのC6のセルだけが赤く色付けされてしまいます。

Visual Basic | Excel10閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ご丁寧にありがとうございます!!!!! 出来ました!!!!

お礼日時:4/19 0:28

その他の回答(2件)

0

Range("C6",Cells(Rows.Cfunt,1).End(xlUp)) を Range("C6","C" & Cells(Rows.Count,3).End(xlUp).Row) にしてみて下さい。 最終行をC列での判定にしておきましたが、元のA列での判定が良ければ3を1に直して下さい。

ID非公開

質問者

2021/4/19 0:22

ありがとうございます! 選択範囲は正常になりました! が、何故か11桁のものも、そうでないものも、全て赤くなってしまいます…

0

Activecell.Interior.Color = vbRed ↓ C.Interior.Color = vbRed に変更すれば動くと思います。 For EachでループさせてもActivecellは移動しませんので。

ID非公開

質問者

2021/4/19 0:23

ありがとうございます! 直しました! が、全て赤いセルになってしまいます…