{"id":66,"date":"2020-08-13T15:41:23","date_gmt":"2020-08-13T06:41:23","guid":{"rendered":"http:\/\/yukihyo.conohawing.com\/?p=66"},"modified":"2020-08-13T16:40:48","modified_gmt":"2020-08-13T07:40:48","slug":"04_determination-of-a-holiday","status":"publish","type":"post","link":"https:\/\/yukihyo.conohawing.com\/?p=66","title":{"rendered":"04_determination of a holiday"},"content":{"rendered":"\n

today’s theme is holiday judgement by excell macro.

I think holiday doesn\u2019t have cycle.
some enterprises has a special holiday.
it is anniversary of founding, and so on.<\/p>\n\n\n\n

After some thought,
I decided coding holidays judgement per day.

bellow is macro statement of holiday judgement.

\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc
Dim D_num As Date
Dim myData(9) As String
Dim i As Integer

myData(0) = “”
myData(1) = #12\/30\/2020#
myData(2) = #12\/31\/2020#
myData(3) = “”
myData(4) = “”
myData(5) = “”
myData(6) = “New Year’s Holiday”
myData(7) = “New Year’s Holiday”
myData(8) = “”
myData(9) = “”

For i = LBound(myData) To UBound(myData)

Dim F_num As Long
For F_num = 1 To 10

D_num = CDate(Cells(F_num, 1))
\u2019assume that<\/span> there are day of 10 cells from left corner to downward direction <\/span>
\u2019and format of these cells is day form without asterisk. <\/span>
\u2019(not *3\/14\/2012, but 2012\/3\/14)<\/span><\/p>\n\n\n\n

If InStr(myData(i), D_num) <> 0 Then
Cells(F_num, 1).Font.ColorIndex = 46
\u2019if the cell matched holiday change<\/span><\/span> the character color. <\/span><\/span>
Cells(F_num, 2) = myData(i + 5)
\u2019and writing holiday name next to this.<\/span><\/span><\/p>\n\n\n\n

Exit For
End If
Next F_num
Next i
\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc\u30fc

i used one-dimensional matrix as two-dimensional
by IF sentence.

thank you.<\/p>\n","protected":false},"excerpt":{"rendered":"

today’s theme is holiday judgement by excell macro. I think holiday doesn\u2019t have cycle.some enterprises […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[9],"class_list":["post-66","post","type-post","status-publish","format-standard","hentry","category-excell-macro","tag-9"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t