{"id":49,"date":"2020-08-12T15:08:03","date_gmt":"2020-08-12T06:08:03","guid":{"rendered":"http:\/\/yukihyo.conohawing.com\/?p=49"},"modified":"2020-08-12T18:19:03","modified_gmt":"2020-08-12T09:19:03","slug":"%e7%a5%9d%e6%97%a5%e5%88%a4%e5%ae%9a","status":"publish","type":"post","link":"https:\/\/yukihyo.conohawing.com\/?p=49","title":{"rendered":"04_\u795d\u65e5\u5224\u5b9a"},"content":{"rendered":"\n

\u4eca\u56de\u306e\u30c6\u30fc\u30de\u306f\u30a8\u30af\u30bb\u30eb\u306e\u30de\u30af\u30ed\u3067\u795d\u65e5\u5224\u5b9a\u3067\u3059\u3002

\u795d\u65e5\u306b\u306f\u5468\u671f\u304c\u306a\u3044\u3088\u3046\u3067\u3059\u3002
\u307e\u305f\u4f01\u696d\u306b\u3088\u3063\u3066\u306f\u5275\u7acb\u8a18\u5ff5\u65e5\u306a\u3069\u306e\u795d\u65e5\u3082\u3042\u308a\u307e\u3059\u3002

\u8003\u3048\u305f\u7d50\u679c\u3001\u4e00\u65e5\u4e00\u65e5 \u66f8\u304d\u8fbc\u3080
\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002

\u6b21 \u30b3\u30fc\u30c9\u3067\u3059

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) = “\u5e74\u672b\u5e74\u59cb\u306e\u4f11\u307f”
myData(7) = “\u5e74\u672b\u5e74\u59cb\u306e\u4f11\u307f”
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))
\u2019\u5de6\u89d2\u306e\u30bb\u30eb\u304b\u3089\u4e0b\u306b\u5411\u304b\u3063\u306610\u30bb\u30eb\u5206\u65e5\u4ed8\u304c\u3042\u308b\u3068\u3057\u307e\u3059
\u2019\u3053\u306e10\u30bb\u30eb\u5206\u306e\u8868\u793a\u306f\u30a2\u30b9\u30bf\u30ea\u30b9\u30af\u306e\u306a\u3044\u65e5\u4ed8\u5f62\u5f0f\u3068\u3057\u307e\u3059<\/span>
\u2019(*3\/14\/2012\u3067\u306f\u306a\u304f\u30012012\/3\/14\u3068\u3059\u308b)<\/span><\/p>\n\n\n\n

If InStr(myData(i), D_num) <> 0 Then
Cells(F_num, 1).Font.ColorIndex = 46
\u2019\u795d\u65e5\u306b\u8a72\u5f53\u3059\u308b\u30bb\u30eb\u306e\u6587\u5b57\u8272\u3092\u5909\u66f4\u3057\u307e\u3059<\/span><\/span>
Cells(F_num, 2) = myData(i + 5)
\u2019\u795d\u65e5\u306b\u8a72\u5f53\u3059\u308b\u30bb\u30eb\u306e\u3059\u3050\u53f3\u306e\u30bb\u30eb\u306b\u795d\u65e5\u540d\u3092\u8a18\u8f09\u3057\u307e\u3059<\/span><\/span><\/p>\n\n\n\n

Exit For
End If
Next F_num
Next i

if\u6587\u3092\u4f7f\u3063\u3066 \u4e00\u6b21\u5143\u306e\u884c\u5217\u3092
\u4e8c\u6b21\u5143\u306e\u884c\u5217\u306e\u3088\u3046\u306b
\u51e6\u7406\u3057\u307e\u3057\u305f\u3002

\u4ee5\u4e0a\u3067\u3059
<\/p>\n\n\n\n


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

\u4eca\u56de\u306e\u30c6\u30fc\u30de\u306f\u30a8\u30af\u30bb\u30eb\u306e\u30de\u30af\u30ed\u3067\u795d\u65e5\u5224\u5b9a\u3067\u3059\u3002 \u795d\u65e5\u306b\u306f\u5468\u671f\u304c\u306a\u3044\u3088\u3046\u3067\u3059\u3002\u307e\u305f\u4f01\u696d\u306b\u3088\u3063\u3066\u306f\u5275\u7acb\u8a18\u5ff5\u65e5\u306a\u3069\u306e\u795d\u65e5\u3082\u3042\u308a\u307e\u3059\u3002 \u8003\u3048\u305f\u7d50\u679c\u3001\u4e00\u65e5\u4e00\u65e5 \u66f8\u304d\u8fbc\u3080\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002 \u6b21 \u30b3\u30fc\u30c9\u3067\u3059 Dim D_num As D […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[8],"tags":[9],"class_list":["post-49","post","type-post","status-publish","format-standard","hentry","category-8","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