Excel VBA質問箱 IV

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

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


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

39059 / 76732

←次へ　｜　前へ→


	【42794】Re:比較と表示について

りん

- 06/9/21(木) 23:21 -


	引用なし

	パスワード

シンゴさん、こんばんわ。
>赤色のフォント色で表示させる、なんて事はＶＢＡで可能でしょうか？
>条件付書式設定では対応出来ないようです。
ichinoseさんが回答しているとおりできます。
詳細は目安箱で。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=100;id=FAQ
ichinoseさんの回答は、名前を定義する方でしたので、もう一方の方で。
A1:A500に条件付書式を指定します。実行は１度でいいです。

Sub TEST()
　 Dim II As Integer
　 '
　 Range("A1:A500").FormatConditions.Delete
　 For II = 1 To 500
　　　With Cells(II, 1).FormatConditions
　　　　 .Add Type:=xlCellValue, Operator:=xlNotEqual, _
　　　　　　Formula1:="=INDIRECT(""Sheet2!A" & II & """)"
　　　　 .Item(1).Interior.ColorIndex = 3 '赤
　　　End With
　 Next
End Sub

マクロを使わずに手動で設定する場合は、範囲をドラッグ後（アクティブセルがA1として）
書式→条件付書式
『セルの値が』『次の値に等しくない』『=INDIRECT("Sheet2!A1")』←これを手入力
好みの書式を適用すると全体に書式が適用されます。
＃　Thanks!Jakaさん

1 hits

▼

【42775】比較と表示について シンゴ 06/9/21(木) 14:53