週によって色が変わります

2017–07–31 (Mon) 23:42
エクセルマクロで、週によって色が変わる物を作成しました。
条件付き書式です。

Private Sub 日付によって色を変更する()
Dim fc As Long, myRng As Range, strFormula As String
FirstRow = Selection(1).Row
FirstCol = Selection(1).Column
basyo = Cells(FirstRow, FirstCol).Address
basyo = Replace(basyo, "$", "")
strFormula = "=WEEKDAY(" & basyo & ")=7" '土曜なら
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Font.Color = RGB(0, 0, 255)
.StopIfTrue = False
End With
strFormula = "=WEEKDAY(" & basyo & ")=1" '日曜なら
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Font.Color = RGB(255, 0, 0)
.StopIfTrue = False
End With
strFormula = basyo & "=TODAY())"
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Interior.Color = RGB(255, 255, 0)
.StopIfTrue = False
End With

strFormula = "=AND(TODAY()-ROUNDDOWN(" & basyo & ",0)<=WEEKDAY(TODAY())-1,ROUNDDOWN(" & basyo & ",0)-TODAY()<=7-WEEKDAY(TODAY()))"
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Interior.Color = RGB(255, 0, 0)
.StopIfTrue = False
End With
strFormula = "=AND(ROUNDDOWN(" & basyo & ",0)-TODAY()>(7-WEEKDAY(TODAY())),ROUNDDOWN(" & basyo & ",0)-TODAY()<(15-WEEKDAY(TODAY())))"
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Interior.Color = RGB(0, 0, 255)
.StopIfTrue = False
End With
strFormula = "=AND(ROUNDDOWN(" & basyo & ",0)-TODAY()>(14-WEEKDAY(TODAY())),ROUNDDOWN(" & basyo & ",0)-TODAY()<(22-WEEKDAY(TODAY())))"
With Range(Selection.Address).FormatConditions.Add( _
Type:=xlExpression, Formula1:=strFormula)
.Interior.Color = RGB(0, 255, 0)
.StopIfTrue = False
End With
Set myRng = Nothing
End Sub

無題
スポンサーサイト

形式保管フォーム

2017–07–31 (Mon) 22:40
表示形式を保管し、適用することも出来ます。
色々な表示形式を使う人には優れものではないかしら?

無題

保存・適用・削除が出来ます。
一覧表にもなりますわ。

時間を決めて色を付ける

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時間の残業は青とする事も出来ます。。。

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

キングファイルの背表紙を作る

2017–07–30 (Sun) 21:04
HanaKingFile

キングファイルの背表紙です。

3cmサイズ
無題

5cmサイズ

無題

6cmサイズ

無題

8cmサイズ

3.png

日付の表示変更

2017–07–30 (Sun) 15:35
日付の表示を簡単にできるのは本当に楽です。
今までは探さなければならなかったのですが、これを使うとそんなに探すこともなくまた、手入力をする時間も必要ありません


凄く楽しいです(*^^*)
楽々です。
自分はこんなのまだまだ簡単ですけどねー……

無駄に長いので、公開はアドイン限定で、一部だけ出します。
Sub 曜日_色有り略()
On Error Resume Next
Application.ScreenUpdating = False
Selection.NumberFormatLocal = "[赤][=1]aaa;[青][=7]aaa;aaa"
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 曜日_色有り()
On Error Resume Next
Application.ScreenUpdating = False
Selection.NumberFormatLocal = "[赤][=1]aaaa;[青][=7]aaaa;aaaa"
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 曜日_色有り略英()
On Error Resume Next
Application.ScreenUpdating = False
Selection.NumberFormatLocal = "[赤][=1]ddd;[青][=7]ddd;ddd"
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 曜日_色有り英()
On Error Resume Next
Application.ScreenUpdating = False
Selection.NumberFormatLocal = "[赤][=1]dddd;[青][=7]dddd;dddd"
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

曜日+土曜日青&日曜日赤になります。
使いやすいかな~~~???
私はたまに使ってます。。。

休憩。。。

小学生の時、可愛いなと思っていた鈴木愛理さん。。。
美人になってます~~~。歌の表現力も上がったなあ……(溜め息

Favorite Folder & PDF Print

2017–07–29 (Sat) 18:53
フォルダーのお気に入りとPDF印刷です。

無題
これはお気に入りにするべきか、それとも……と迷っています。
後どこにしよう……。。。
後は表示変更とかつくったら公開しようと思っています。

休憩。。。
ミスチルって良いよね~。いつでも聴けるわ……。

チェックリストなどを作りました

2017–07–27 (Thu) 19:33
無題

これがチェックリストです。
シンプルになりました~~~。
保存しても使えるものです。今までは……addinで作っていたので、保存は大変だし……。

無題
これは、入力規則のリストを保存しておくマクロとフォームです。
凄く使いやすいんです;;;

休憩。。。

supertipを追加しました

2017–07–25 (Tue) 21:38
そろそろアドインを公開します。
これは公開用データに必要な物の一つです。

無題

これを作成しました。
supertipは簡単なヘルプのような物となっています。
ヘルプがあるのとないのでは全然違うと思います。
後は簡単にtooltipと入力規則が作れるようになりたいです。

無題

こんなのですね!!!

表紙が作れるようになりました

2017–07–24 (Mon) 23:21
エクセル用のアドインです。

無題

交番システムがあるといいと思ったので、このような感じになりました。
ファイルごとにまとめて追加です。

図形のコピーとか。。。

2017–07–24 (Mon) 19:23
印刷CheckMacroです。
○が付いている物が既に印刷されています

無題

無題

これは選択した図形を同じ位置、違うシートに貼り付け出来ます。
全て出来るのですよ~~~。

無題
使いやすくて使いやすくていいのです~~~。

休憩。。。

 | HOME |  次へ »

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク