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, If InStr(myData(i), D_num) <> 0 Then Exit For 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":[],"_links":{"self":[{"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/posts\/66","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=66"}],"version-history":[{"count":3,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/posts\/66\/revisions"}],"predecessor-version":[{"id":69,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=\/wp\/v2\/posts\/66\/revisions\/69"}],"wp:attachment":[{"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=66"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=66"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/yukihyo.conohawing.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=66"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
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
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
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":"