{"id":780,"date":"2017-01-17T04:49:27","date_gmt":"2017-01-16T19:49:27","guid":{"rendered":"http:\/\/okamurax.com\/?p=780"},"modified":"2017-01-17T04:49:27","modified_gmt":"2017-01-16T19:49:27","slug":"%e5%87%ba%e8%8d%b7%e5%89%8d%e5%b7%a5%e7%a8%8b%e8%a1%a8","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=780","title":{"rendered":"\u51fa\u8377\u524d\u5de5\u7a0b\u8868"},"content":{"rendered":"<p>\u3042\u308b\u5e33\u7968\u304b\u3089\u5de5\u7a0b\u7ba1\u7406\u7528\u306e\u5e33\u7968\u3092\u4f5c\u308d\u3046\u3068\u3057\u3066\u3044\u305f\u6a21\u69d8\u3002<br \/>\n\u6614\u306e\u3067\u30cf\u30c3\u30ad\u30ea\u601d\u3044\u51fa\u305b\u306a\u3044\u3002<\/p>\n<pre class=\"lang:vb decode:true \">Dim ymd As Variant\r\nDim dst As Integer\r\nDim comma_count As Integer\r\n\r\nSub auto_open()\r\n\r\nOn Error Resume Next\r\n\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u4f5c\u6210(\u5de5\u7a0b\u8868\u3067\u5b9f\u884c)\").Delete\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_SAVE\").Delete\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_LOAD\").Delete\r\n\r\nWith Application.CommandBars(\"cell\").Controls.Add\r\n.OnAction = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\"\r\n.Caption = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u4f5c\u6210(\u5de5\u7a0b\u8868\u3067\u5b9f\u884c)\"\r\nEnd With\r\n\r\nWith Application.CommandBars(\"cell\").Controls.Add\r\n.OnAction = \"save_data\"\r\n.Caption = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_SAVE\"\r\nEnd With\r\n\r\nWith Application.CommandBars(\"cell\").Controls.Add\r\n.OnAction = \"load_data\"\r\n.Caption = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_LOAD\"\r\nEnd With\r\n\r\nEnd Sub\r\n\r\nSub auto_close()\r\n\r\nOn Error Resume Next\r\n\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u4f5c\u6210(\u5de5\u7a0b\u8868\u3067\u5b9f\u884c)\").Delete\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_SAVE\").Delete\r\nApplication.CommandBars(\"cell\").Controls(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868DATA_LOAD\").Delete\r\n\r\nEnd Sub\r\n\r\nSub \u51fa\u8377\u524d\u5de5\u7a0b\u8868()\r\n\r\nymd = \"\"\r\ndst = 2\r\n\r\nFor Each ws In Sheets\r\n\r\n    If ws.Name = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\" Then\r\n    \r\n        If vbYes = MsgBox(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u30b7\u30fc\u30c8\u304c\u5b58\u5728\u3057\u307e\u3059\u3002\u524a\u9664\u3057\u307e\u3059\u304b\uff1f\", vbYesNo) Then\r\n        \r\n            Worksheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Delete\r\n        \r\n        Else\r\n        \r\n            Exit Sub\r\n        \r\n        End If\r\n    \r\n    End If\r\n\r\nNext ws\r\n\r\nOn Error Resume Next\r\n\r\nymd = Mid(ActiveWorkbook.Name, 1, 4) &amp; \"\/\" &amp; Replace(Sheets(1).Cells(2, 8).Value, \"\u6708\", \"\") &amp; \"\/\" &amp; \"21\"\r\n\r\nOn Error GoTo 0\r\n\r\nIf False = IsDate(ymd) Then\r\n\r\n  MsgBox \"\u65e5\u4ed8\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3002\" &amp; Chr(13) &amp; \"\u5de5\u7a0b\u8868\u3092\u524d\u9762\u306b\u3057\u3066\u3044\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\"\r\n  Exit Sub\r\n  \r\nEnd If\r\n    \r\nFor Each ws In Sheets\r\n\r\n  tmp = Mid(ActiveWorkbook.Name, 1, 4) &amp; \"\/\" &amp; Replace(ws.Cells(2, 8).Value, \"\u6708\", \"\") &amp; \"\/\" &amp; \"21\"\r\n  \r\n  If ymd &lt;&gt; tmp Then\r\n  \r\n    MsgBox \"\u65e5\u4ed8\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3002\" &amp; Chr(13) &amp; \"\u5168\u3066\u306e\u30b7\u30fc\u30c8\u304c\u540c\u3058\u65e5\u4ed8\u3067\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\"\r\n    Exit Sub\r\n  \r\n  End If\r\n\r\nNext ws\r\n\r\nsc = ActiveWorkbook.Sheets.Count\r\nReDim buff(sc, 2) As String\r\n\r\nFor i = 1 To sc\r\n    \r\n    buff(i, 1) = Sheets(i).Name\r\n    buff(i, 2) = form_count(buff(i, 1))\r\n    \r\n    If buff(i, 2) = -1 Then\r\n    \r\n      MsgBox buff(i, 1) &amp; \"\u30b7\u30fc\u30c8\u306f\u5de5\u7a0b\u8868\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u3002\"\r\n      Exit Sub\r\n    \r\n    End If\r\n    \r\nNext i\r\n\r\nSheets.Add after:=Sheets(Sheets.Count)\r\nActiveSheet.Name = \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\"\r\n\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 1).Value = \"\u73ed\u540d\"\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 2).Value = \"\u578b\u5f0f\"\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 3).Value = \"\u5de5\u756a\"\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 4).Value = \"\u6570\u91cf\"\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 5).Value = \"\u7d0d\u671f\"\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 6).Value = \"\u7d44\u5b8c\"\r\n\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Rows(1).HorizontalAlignment = xlHAlignCenter\r\n\r\nFor i = 1 To sc\r\n\r\n    Call main_proc(buff(i, 1), buff(i, 2))\r\n\r\nNext i\r\n\r\ntmp = ymd\r\ni = 7\r\n\r\nDo While tmp &lt;&gt; DateAdd(\"m\", 1, ymd)\r\n\r\n  Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, i).Value = Year(tmp) &amp; \"\/\" &amp; Month(tmp) &amp; \"\/\" &amp; Day(tmp)\r\n  Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, i).NumberFormatLocal = \"m\/d\"\r\n  \r\n  tmp = DateAdd(\"d\", 1, tmp)\r\n  i = i + 1\r\n  \r\nLoop\r\n\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Columns.AutoFit\r\n\r\nyn = MsgBox(\"\u30c7\u30fc\u30bf\u3092\u5fa9\u5143\u3057\u307e\u3059\u304b\uff1f\", vbYesNo)\r\nIf yn = vbYes Then Call load_data\r\n\r\nEnd Sub\r\n\r\nFunction form_count(ByVal sn As String) As Integer\r\n\r\nFor i = Sheets(sn).UsedRange.Rows.Count To 1 Step -1\r\n\r\n    If Sheets(sn).Range(\"A\" &amp; i &amp; \"\").Value &lt;&gt; \"\" Then Exit For\r\n\r\nNext i\r\n\r\nSelect Case i\r\n\r\n    Case 24\r\n        tmp = 1\r\n    \r\n    Case 49\r\n        tmp = 2\r\n    \r\n    Case 74\r\n        tmp = 3\r\n    \r\n    Case 99\r\n        tmp = 4\r\n    \r\n    Case 124\r\n        tmp = 5\r\n\r\n    Case Else\r\n        tmp = -1\r\n        \r\nEnd Select\r\n\r\nform_count = tmp\r\n    \r\nEnd Function\r\n\r\nSub main_proc(ByVal sn As String, ByVal fc As Integer)\r\n\r\nFor r = 5 To fc * 25 - 1\r\n\r\n  r_chk = False\r\n\r\n  For c = 100 To 8 Step -1\r\n  \r\n    If Sheets(sn).Cells(r, c).Interior.Color = RGB(0, 0, 0) Then\r\n    \r\n      r_chk = True\r\n      Exit For\r\n    \r\n    End If\r\n  \r\n  Next c\r\n\r\n  If r_chk Then\r\n    \r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 1).Value = sn\r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 2).Value = rep(Sheets(sn).Cells(r, 2).Value)\r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 3).Value = rep(Sheets(sn).Cells(r, 3).Value)\r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 4).Value = Sheets(sn).Cells(r, 5).Value\r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 5).Value = Sheets(sn).Cells(r, 6).Value\r\n    If Sheets(sn).Cells(r, 7).Value &lt;&gt; \"\" Then Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 5).Value = Sheets(sn).Cells(r, 7).Value\r\n    \r\n    If c &gt;= 41 Then\r\n      tmp = DateAdd(\"m\", 1, ymd)\r\n    Else\r\n      tmp = ymd\r\n    End If\r\n    \r\n    Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(dst, 6).Value = Year(tmp) &amp; \"\/\" &amp; Month(tmp) &amp; \"\/\" &amp; Sheets(sn).Cells(3, c).MergeArea(1, 1).Value\r\n    \r\n    dst = dst + 1\r\n  \r\n  End If\r\n\r\n  Select Case r\r\n  \r\n    Case 99, 74, 49, 24\r\n    r = r + 5\r\n    \r\n  End Select\r\n\r\nNext r\r\n\r\nEnd Sub\r\n\r\nFunction rep(tmp As String)\r\ntmp = Replace(tmp, vbLf, \" \")\r\ntmp = Replace(tmp, \"  \", \" \")\r\ntmp = Replace(tmp, \"  \", \" \")\r\ntmp = Replace(tmp, \",\", \"\uff0c\")\r\nrep = tmp\r\nEnd Function\r\n\r\nSub save_data()\r\n\r\nIf ActiveSheet.Name &lt;&gt; \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\" Then\r\n\r\n  MsgBox \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u30b7\u30fc\u30c8\u3067\u5b9f\u884c\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n  Exit Sub\r\n  \r\nEnd If\r\n\r\nyn = MsgBox(\"\u30b5\u30fc\u30d0\u30fc\u4e0a\u306e\u30c7\u30fc\u30bf\u304c\u4e0a\u66f8\u304d\u3055\u308c\u307e\u3059\u3002\u5b9f\u884c\u3057\u307e\u3059\u304b\uff1f\", vbYesNo)\r\nIf yn = vbNo Then Exit Sub\r\n\r\nIf chk_col = -1 Then\r\n\r\n  MsgBox \"\u6700\u7d42\u5217\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  Exit Sub\r\n  \r\nEnd If\r\n\r\nIf chk_btm() = -1 Then\r\n\r\n  MsgBox \"\u6700\u7d42\u884c\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  Exit Sub\r\n\r\nEnd If\r\n\r\nCall u_key_chk\r\n\r\nSet cn = CreateObject(\"adodb.connection\")\r\ncn.Open \"provider=microsoft.jet.oledb.4.0; data source=\" &amp; ThisWorkbook.Path &amp; \"\\syukka_kotei.mdb;\"\r\n\r\nOn Error GoTo ex\r\n\r\nFor r = 2 To chk_btm()\r\n\r\n  u_key = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 3).Text &amp; \" \" &amp; Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 4).Text &amp; \" \" &amp; Format(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 7).Text, \"yyyymmdd\")\r\n  u_day = Format(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 7).Text, \"yyyy\/mm\/dd\")\r\n\r\n  For c = 7 To chk_col\r\n    \r\n    If c = 7 Then\r\n      u_data = \"\"\r\n      u_data = rep(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, c).Text)\r\n    Else\r\n      u_data = u_data &amp; \",\" &amp; rep(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, c).Text)\r\n    End If\r\n    \r\n  Next c\r\n  \r\n  cn.Execute \"delete * from tbl where u_key = '\" &amp; u_key &amp; \"' and u_day = #\" &amp; u_day &amp; \"#\"\r\n  cn.Execute \"insert into tbl(u_key,u_day,u_data) values('\" &amp; u_key &amp; \"',#\" &amp; u_day &amp; \"#,'\" &amp; u_data &amp; \"')\"\r\n\r\nNext r\r\n\r\nIf cn.State = 1 Then cn.Close\r\nSet cn = Nothing\r\n\r\nMsgBox \"done\"\r\n\r\nExit Sub\r\n\r\nex:\r\n\r\n  MsgBox \"\u6b63\u3057\u304f\u4fdd\u5b58\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  \r\n  If cn.State = 1 Then cn.Close\r\n  Set cn = Nothing\r\n\r\nEnd Sub\r\n\r\nFunction chk_col()\r\n\r\nc = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 1).CurrentRegion.Columns.Count\r\nu = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").UsedRange.Columns.Count\r\n\r\nIf c &lt;&gt; u Then\r\n\r\n  chk_col = -1\r\n  Exit Function\r\n\r\nEnd If\r\n\r\nchk_col = c\r\n\r\nEnd Function\r\n\r\nFunction chk_btm()\r\n\r\nc = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 1).CurrentRegion.Rows.Count\r\nu = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").UsedRange.Rows.Count\r\n\r\nIf c &lt;&gt; u Then\r\n\r\n  chk_btm = -1\r\n  Exit Function\r\n\r\nEnd If\r\n\r\nchk_btm = c\r\n\r\nEnd Function\r\n\r\nSub load_data()\r\n\r\nIf ActiveSheet.Name &lt;&gt; \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\" Then\r\n\r\n  MsgBox \"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\u30b7\u30fc\u30c8\u3067\u5b9f\u884c\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n  Exit Sub\r\n  \r\nEnd If\r\n\r\nyn = MsgBox(\"\u30b7\u30fc\u30c8\u4e0a\u306e\u30c7\u30fc\u30bf\u304c\u4e0a\u66f8\u304d\u3055\u308c\u307e\u3059\u3002\u5b9f\u884c\u3057\u307e\u3059\u304b\uff1f\", vbYesNo)\r\nIf yn = vbNo Then Exit Sub\r\n\r\nIf chk_col = -1 Then\r\n\r\n  MsgBox \"\u6700\u7d42\u5217\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  Exit Sub\r\n  \r\nEnd If\r\n\r\nIf chk_btm() = -1 Then\r\n\r\n  MsgBox \"\u6700\u7d42\u884c\u304c\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  Exit Sub\r\n\r\nEnd If\r\n\r\nCall u_key_chk\r\n\r\nSet cn = CreateObject(\"adodb.connection\")\r\nSet rs = CreateObject(\"adodb.recordset\")\r\n\r\nOn Error GoTo ex\r\n\r\nFor r = 2 To chk_btm()\r\n\r\n  u_key = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 3).Text &amp; \" \" &amp; Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 4).Text &amp; \" \" &amp; Format(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 7).Text, \"yyyymmdd\")\r\n\r\n  cn.Open \"provider=microsoft.jet.oledb.4.0; data source=\" &amp; ThisWorkbook.Path &amp; \"\\syukka_kotei.mdb;\"\r\n  rs.Open \"select u_data from tbl where u_key = '\" &amp; u_key &amp; \"'\", cn\r\n \r\n  buff = \"\"\r\n  \r\n  Do Until rs.EOF\r\n    \r\n    If buff &lt;&gt; \"\" Then\r\n    \r\n      MsgBox \"\u30c7\u30fc\u30bf\u304c\u91cd\u8907\u3057\u3066\u3044\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n      buff = rs!u_data\r\n    \r\n    Else\r\n    \r\n      buff = rs!u_data\r\n    \r\n    End If\r\n    \r\n    rs.MoveNext\r\n    \r\n  Loop\r\n  \r\n  If buff &lt;&gt; \"\" Then\r\n  \r\n    comma_count = 0\r\n  \r\n    For c = 7 To chk_col\r\n\r\n      Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, c).Value = split_comma(buff)\r\n    \r\n    Next c\r\n  \r\n  End If\r\n  \r\n  If rs.State = 1 Then rs.Close\r\n  If cn.State = 1 Then cn.Close\r\n\r\nNext r\r\n\r\nIf rs.State = 1 Then rs.Close\r\nSet rs = Nothing\r\n\r\nIf cn.State = 1 Then cn.Close\r\nSet cn = Nothing\r\n  \r\nMsgBox \"done\"\r\n\r\nExit Sub\r\n\r\nex:\r\n\r\n  MsgBox \"\u6b63\u3057\u304f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\"\r\n  \r\n  If rs.State = 1 Then rs.Close\r\n  Set rs = Nothing\r\n\r\n  If cn.State = 1 Then cn.Close\r\n  Set cn = Nothing\r\n\r\nEnd Sub\r\n\r\nFunction split_comma(tmp)\r\n\r\nbuff = \"\"\r\ncomma_count_local = 0\r\n\r\nFor i = 1 To Len(tmp)\r\n\r\n  If Mid(tmp, i, 1) &lt;&gt; \",\" Then\r\n  \r\n    buff = buff + Mid(tmp, i, 1)\r\n  \r\n  Else\r\n\r\n    comma_count_local = comma_count_local + 1\r\n    \r\n    If comma_count &gt;= comma_count_local Then\r\n    \r\n      buff = \"\"\r\n    \r\n    Else\r\n    \r\n      comma_count = comma_count_local\r\n      Exit For\r\n    \r\n    End If\r\n  \r\n  End If\r\n\r\nNext i\r\n\r\nsplit_comma = buff\r\n\r\nEnd Function\r\n\r\nSub u_key_chk()\r\n\r\nSheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").UsedRange.Interior.Color = xlNone\r\n\r\nFor r = 2 To chk_btm()\r\n  \r\n  from_u_key = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 3).Text &amp; \" \" &amp; Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 4).Text &amp; \" \" &amp; Format(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 7).Text, \"yyyymmdd\")\r\n  \r\n  For rr = (r + 1) To chk_btm()\r\n  \r\n    to_u_key = Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(rr, 3).Text &amp; \" \" &amp; Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(rr, 4).Text &amp; \" \" &amp; Format(Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(1, 7).Text, \"yyyymmdd\")\r\n    \r\n    If from_u_key = to_u_key Then\r\n\r\n      Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(r, 1).Interior.Color = RGB(255, 0, 0)\r\n      Sheets(\"\u51fa\u8377\u524d\u5de5\u7a0b\u8868\").Cells(rr, 1).Interior.Color = RGB(255, 0, 0)\r\n    \r\n    End If\r\n\r\n  Next rr\r\n\r\nNext r\r\n\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u3042\u308b\u5e33\u7968\u304b\u3089\u5de5\u7a0b\u7ba1\u7406\u7528\u306e\u5e33\u7968\u3092\u4f5c\u308d\u3046\u3068\u3057\u3066\u3044\u305f\u6a21\u69d8\u3002 \u6614\u306e\u3067\u30cf\u30c3\u30ad\u30ea\u601d\u3044\u51fa\u305b\u306a\u3044\u3002 Dim ymd As Variant Dim dst As Integer Dim comma_count As Integer Sub &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=780\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;\u51fa\u8377\u524d\u5de5\u7a0b\u8868&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[5],"class_list":["post-780","post","type-post","status-publish","format-standard","hentry","category-1","tag-vba"],"_links":{"self":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/780","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=780"}],"version-history":[{"count":1,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/780\/revisions"}],"predecessor-version":[{"id":781,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/780\/revisions\/781"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=780"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=780"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=780"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}