Excel VBA質問箱 IV

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

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


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

69856 / 76732

←次へ　｜　前へ→


	【11391】Re:期限がきたらセルのパターンを変えたいのですが

koshimizu

- 04/3/8(月) 14:21 -


	引用なし

	パスワード

IROC さん　　たびたびすみません。
>ブックを開いたときに
>Ａ１の日付　と　パソコンのシステム日付　を比較して、
>Ａ１の日付が、パソコンの日付と同じもしくは過ぎていたら
>色つけ処理をするということでしょうか？
その通りです。
Ｃ５：Ｄ１０に色をつけたいのです。
説明が下手で申し訳ありません
>>Sub aaa()
　　With Range("Ａ１") 　'("C5:D10")この範囲のみ色を付ける記述がわかりません
>>　　　　.FormatConditions.Delete
>>　　　　.FormatConditions.Add Type:=xlCellValue, _
>>　　　　　　Operator:=xlLessEqual, _
>>　　　　　　Formula1:="=TODAY()"
>>　　　　.FormatConditions(1).Interior.ColorIndex = １
>>　　End With
>>End Sub

2 hits

▼

【11238】期限がきたらセルのパターンを変えたいのですが 静寺 04/3/3(水) 16:09