回答編集履歴
1
へんこう
test
CHANGED
@@ -54,9 +54,9 @@
|
|
54
54
|
|
55
55
|
|
56
56
|
|
57
|
-
Dim ret As Boolean
|
57
|
+
Dim ret As Boolean '戻り値
|
58
58
|
|
59
|
-
ret = False
|
59
|
+
ret = False '初期値はFalse
|
60
60
|
|
61
61
|
|
62
62
|
|
@@ -102,6 +102,8 @@
|
|
102
102
|
|
103
103
|
If dtToday > dtWarning Then
|
104
104
|
|
105
|
+
'当日日付が警告表示開始日を超えていたら戻り値=True
|
106
|
+
|
105
107
|
ret = True
|
106
108
|
|
107
109
|
End If
|
@@ -116,9 +118,13 @@
|
|
116
118
|
|
117
119
|
これを標準モジュールに記述しておけばシート上や条件付き書式などでも利用できると思います。
|
118
120
|
|
119
|
-
例)AH6~AL6の入力内容で契約終了まで30日を以下の場合TRUE、30日以上ある場合FALSEを返す。
|
120
121
|
|
122
|
+
|
123
|
+
使用例)
|
124
|
+
|
121
|
-
`=IsWarning(AH6, AJ6, AL6, 30)`
|
125
|
+
AN6セルに`=IsWarning(AH6, AJ6, AL6, 30)`と記述した場合、
|
126
|
+
|
127
|
+
AH6~AL6の入力内容が契約終了まで30日以下の場合TRUE、30日以上の場合FALSEが表示される
|
122
128
|
|
123
129
|
|
124
130
|
|