FC2ブログ

時間を決めて色を付ける

2017–07–31 (Mon) 19:22
0:30なら赤にする。

Sub 赤030()
Dim fc As FormatCondition
Set fc = Selection.FormatConditions.Add(xlCellValue, xlGreaterEqual, "=Time(0,30,0)") ' 追加した条件付き書式を取得

Set fc = Selection.FormatConditions(1) ' 1 つ目の条件付き書式を取得

' 書式の設定
fc.Borders.LineStyle = xlContinuous ' 罫線
fc.Interior.Color = RGB(255, 0, 0) ' フォント

End Sub

24時まで作りました。
30分の残業は赤、1時間の残業は青とする事も出来ます。。。

休憩。
ミスチルって良いよね~~~。

スポンサーサイト



« キングファイルの背表紙を作る | HOME |  形式保管フォーム »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク