{"id":1357,"date":"2017-05-18T05:33:46","date_gmt":"2017-05-17T20:33:46","guid":{"rendered":"http:\/\/okamurax.com\/?p=1357"},"modified":"2017-05-18T05:33:46","modified_gmt":"2017-05-17T20:33:46","slug":"vba-%e7%94%9f%e7%94%a3%e9%ab%98%e9%9b%86%e8%a8%88","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=1357","title":{"rendered":"VBA \u751f\u7523\u9ad8\u96c6\u8a08"},"content":{"rendered":"<p>\u4ee5\u524d\u4f5c\u3063\u305f\u751f\u7523\u9ad8\u3092\u96c6\u8a08\u3059\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u305d\u306e\u307e\u307e\u6a5f\u80fd\u3092\u8ffd\u52a0\u3002<\/p>\n<p>\u30a8\u30af\u30bb\u30eb\u306e\u5de5\u7a0b\u7ba1\u7406\u3067\u30ac\u30f3\u30c8\u30c1\u30e3\u30fc\u30c8\u3063\u307d\u304f\u904b\u7528\u3057\u3066\u3044\u308b\u5834\u5408\u3001<br \/>\n\u7f6b\u7dda\u3067\u8868\u3092\u4f5c\u3063\u3066\u3001\u8272\u3067\u9032\u6357\u3092\u7ba1\u7406\u3059\u308b\u7d44\u307f\u5408\u308f\u305b\u306f\u9762\u5012\u306b\u306a\u308a\u3084\u3059\u3044\u3002<\/p>\n<p>\u7f6b\u7dda\u3092\u30aa\u30f3\u30aa\u30d5\u3067\u304d\u308b\u3068\u7ba1\u7406\u304c\u697d\u306b\u306a\u308b\u3002<\/p>\n<pre class=\"lang:vb decode:true \">Sub \u7f6b\u7dda\u30c8\u30b0\u30eb()\r\n\r\nApplication.ScreenUpdating = False\r\n\r\nasn = ActiveSheet.Name\r\n\r\nDim sc As Integer ' \u30b7\u30fc\u30c8\u6570\r\n\r\nsc = ActiveWorkbook.Sheets.Count\r\n\r\nReDim sn(sc, 2) As String '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570\r\n\r\nFor i = 1 To sc Step 1\r\n  If Sheets(i).Name &lt;&gt; \"\u96c6\u8a08\" Then\r\n    sn(i, 1) = Sheets(i).Name\r\n    sn(i, 2) = fcount(Sheets(i).Name)\r\n    If sn(i, 2) = -1 Then\r\n      MsgBox sn(i, 1) &amp; \"\u30b7\u30fc\u30c8\u304c\u9069\u5207\u306a\u5de5\u7a0b\u8868\u3067\u306f\u306a\u3044\u305f\u3081\u7f6b\u7dda\u306e\u63cf\u753b\u304c\u3067\u304d\u307e\u305b\u3093\u3002\"\r\n      Exit Sub\r\n    End If\r\n  End If\r\nNext i\r\n\r\nIf Sheets(1).Range(\"H5\").Borders(xlEdgeRight).LineStyle = -4142 Then '\u7f6b\u7dda\u7121\u3057\r\n  borderState = False\r\nElseIf Sheets(1).Range(\"H5\").Borders(xlEdgeRight).LineStyle = -4118 Then '\u7f6b\u7dda\u6709\u308a\r\n  borderState = True\r\nEnd If\r\n\r\nFor i = 1 To sc Step 1\r\n  Call BorderToggle(sn(i, 1), sn(i, 2), borderState) '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570\r\nNext i\r\n\r\nSheets(asn).Activate\r\n\r\nApplication.ScreenUpdating = True\r\nMsgBox \"\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002\"\r\n\r\nEnd Sub\r\n\r\nSub BorderToggle(sheetName, formQty, borderState)\r\n\r\nIf sheetName = \"\" Then Exit Sub\r\n\r\nWith Sheets(sheetName)\r\n\r\nIf borderState = True Then '\u7f6b\u7dda\u6709\u308a\r\n\r\n  rowTop = 5\r\n  rowBtn = 24\r\n\r\n  For f = 1 To formQty\r\n  \r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders.LineStyle = xlLineStyleNone\r\n    '\u659c\u7dda\u306f\u500b\u5225\u306b\u51e6\u7406\u3057\u306a\u3044\u3068\u6d88\u3048\u306a\u304b\u3063\u305f\u3002\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalDown).LineStyle = -4142\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalUp).LineStyle = -4142\r\n    \r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeTop).LineStyle = 1\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeRight).LineStyle = 1\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeBottom).LineStyle = 1\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeLeft).LineStyle = 1\r\n    \r\n    rowTop = rowTop + 25\r\n    rowBtn = rowBtn + 25\r\n  \r\n  Next f\r\n\r\nEnd If\r\n\r\nIf borderState = False Then '\u7f6b\u7dda\u7121\u3057\r\n\r\n  rowTop = 5\r\n  rowBtn = 24\r\n\r\n  For f = 1 To formQty\r\n  \r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideVertical).LineStyle = -4118\r\n    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideHorizontal).LineStyle = 1\r\n        \r\n    '\u7e26\u306eWeight\u304c\u9055\u3046\u7dda\u306e\u51e6\u7406\r\n    For col = 10 To 97 Step 3\r\n    \r\n      .Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).LineStyle = 1\r\n      \r\n      Select Case col\r\n      Case 22, 40, 55, 70, 85\r\n        .Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).Weight = -4138\r\n      End Select\r\n       \r\n    Next col\r\n\r\n    For col = 8 To 38 Step 3\r\n        \r\n    '\u6708\u672b\u90e8\u306e\u659c\u7dda\u51e6\u7406\r\n    If .Cells(4, col).Value = \"\" Then\r\n      .Range(.Cells(rowTop, col), .Cells(rowBtn, col + 2)).Borders(xlDiagonalUp).LineStyle = 1\r\n    End If\r\n       \r\n    Next col\r\n    \r\n    rowTop = rowTop + 25\r\n    rowBtn = rowBtn + 25\r\n    \r\n  Next f\r\n  \r\nEnd If\r\n\r\nEnd With\r\n\r\nEnd Sub\r\n\r\nSub \u751f\u7523\u9ad8\u96c6\u8a08()\r\n\r\n'[\u96c6\u8a08]\u3068\u3044\u3046\u30b7\u30fc\u30c8\u304c\u3042\u308b\u3068\u524a\u9664\r\n'\u500b\u5225\u30b7\u30fc\u30c8\u306e\u30d5\u30a9\u30fc\u30e0\u6570\u306fA\u5217\u3067\u5224\u65ad\r\n'\uff0824\u306a\u30891\u306449\u306a\u30892\u3064\u3068\u3044\u3046\u3088\u3046\u306b\u63a2\u3059\u3001\u30d5\u30a9\u30fc\u30e0\u304c\u5d29\u308c\u3066\u3044\u308b\u3068\u30a8\u30e9\u30fc\u3092\u8fd4\u3059\uff09\r\n'B\u5217\u304c\u8a18\u5165\u3055\u308c\u3066\u3044\u3066\u3001\u5c1a\u4e14\u3064[\u6570\u91cf]\u3068[\u5358\u4fa1]\u304c\u8a18\u5165\u3055\u308c\u3066\u3044\u308b\u884c\u306e\u307f\u51e6\u7406\r\n'\u65e5\u4ed8\u306fG\u5217\u306b\u8a18\u5165\u304c\u3042\u308c\u3070\u3001\u305d\u3061\u3089\u3092\u4f7f\u7528\u3001\u306a\u3051\u308c\u3070F\u5217\u3092\u4f7f\u7528\r\n\r\nApplication.ScreenUpdating = False\r\n\r\nFor Each ws In Worksheets\r\n    If ws.Name = \"\u96c6\u8a08\" Then\r\n        If vbYes = MsgBox(\"\u96c6\u8a08\u30b7\u30fc\u30c8\u304c\u5b58\u5728\u3057\u307e\u3059\u3002\u524a\u9664\u3057\u307e\u3059\u304b\uff1f\", vbYesNo) Then\r\n            Worksheets(\"\u96c6\u8a08\").Delete\r\n        Else\r\n            Exit Sub\r\n        End If\r\n    End If\r\nNext ws\r\n\r\nDim sc As Integer ' \u30b7\u30fc\u30c8\u6570\r\n\r\nsc = ActiveWorkbook.Sheets.Count\r\n\r\nReDim sn(sc, 2) As String '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570\r\n\r\nFor i = 1 To sc Step 1\r\n    \r\n    sn(i, 1) = Sheets(i).Name\r\n    sn(i, 2) = fcount(sn(i, 1)) ' fcount call\r\n    \r\n    If sn(i, 2) = -1 Then\r\n        MsgBox sn(i, 1) &amp; \"\u30b7\u30fc\u30c8\u304c\u9069\u5207\u306a\u5de5\u7a0b\u8868\u3067\u306f\u306a\u3044\u305f\u3081\u96c6\u8a08\u3067\u304d\u307e\u305b\u3093\u3002\"\r\n        Exit Sub\r\n    End If\r\n    \r\nNext i\r\n\r\nSheets.Add after:=ActiveSheet\r\nActiveSheet.Name = \"\u96c6\u8a08\"\r\n\r\nIf \u7d0d\u671f\u96c6\u8a08(sn(1, 1)) = -1 Then Exit Sub '\u7d0d\u671f\u96c6\u8a08 call\r\n\r\nFor i = 1 To sc Step 1\r\n  Call main(sn(i, 1), sn(i, 2), i) '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570,\u30ab\u30a6\u30f3\u30bf\r\n  Call main2(sn(i, 1), sn(i, 2), i) '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570,\u30ab\u30a6\u30f3\u30bf\r\nNext i\r\n\r\nWith Sheets(\"\u96c6\u8a08\")\r\n.Range(\"J1\").Value = \"\u73ed\u540d\"\r\n.Range(\"K1\").Value = \"\u751f\u7523\u984d\"\r\n.Range(\"L1\").Value = \"\u76ee\u76db\"\r\n.Range(\"M1\").Value = \"\u751f\u7523\u65e5\u6570\"\r\n.Range(\"N1\").Value = \"\u751f\u7523\u984d\/\u65e5\"\r\n.Range(\"P1\").Value = \"\u76ee\u76db\"\r\n.Range(\"Q1\").Value = \"\u672a\u751f\u7523\u65e5\u6570\"\r\n.Columns(\"A:Q\").AutoFit\r\n.Activate\r\nEnd With\r\n\r\nApplication.ScreenUpdating = True\r\nMsgBox \"\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002\"\r\n\r\nEnd Sub\r\n\r\nSub main(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570,\u30ab\u30a6\u30f3\u30bf\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c, 1).Value = sn\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 10).Value = sn\r\n\r\nWorksheets(sn).Activate\r\n\r\nbuf = 0\r\n\r\nFor r = (fc * 25 - 1) To 5 Step -1 '-\r\n\r\n    If ActiveSheet.Range(\"B\" &amp; r &amp; \"\").Value &lt;&gt; \"\" Then  '\u578b\u5f0f\u304c\u8a18\u5165\u3055\u308c\u3066\u3044\u308b '--\r\n    \r\n     'ActiveSheet.Range(\"B\" &amp; r &amp; \"\").Select\r\n     \r\n        If IsNumeric(ActiveSheet.Range(\"E\" &amp; r &amp; \"\").Value) And IsNumeric(ActiveSheet.Range(\"CZ\" &amp; r &amp; \"\").Value) Then '\u6570\u91cf\u3068\u5358\u4fa1\u304c\u6570\u5024 '---\r\n        \r\n            buf = buf + (ActiveSheet.Range(\"E\" &amp; r &amp; \"\").Value * ActiveSheet.Range(\"CZ\" &amp; r &amp; \"\").Value)\r\n            \r\n            '\u3053\u3053\u304b\u3089\u9867\u5ba2\u5225\u91d1\u984d -------------------------------------------------\r\n            \r\n            If ActiveSheet.Range(\"CX\" &amp; r &amp; \"\").Value = \"\" Then\r\n                        \r\n                cus = \"\u7a7a\u767d\"\r\n                        \r\n            Else\r\n\r\n                cus = \u6587\u5b57\u5217\u8abf\u6574(ActiveSheet.Range(\"CX\" &amp; r &amp; \"\").Value)\r\n            \r\n            End If\r\n            \r\n            pri = ActiveSheet.Range(\"E\" &amp; r &amp; \"\").Value * ActiveSheet.Range(\"CZ\" &amp; r &amp; \"\").Value\r\n            \r\n            i = 1\r\n            \r\n            Do While Worksheets(\"\u96c6\u8a08\").Range(\"D\" &amp; i &amp; \"\").Value &lt;&gt; \"\"\r\n            \r\n                If Worksheets(\"\u96c6\u8a08\").Range(\"D\" &amp; i &amp; \"\").Value = cus Then\r\n                \r\n                    Worksheets(\"\u96c6\u8a08\").Range(\"E\" &amp; i &amp; \"\").NumberFormatLocal = \"#,##0\"\r\n                \r\n                    Worksheets(\"\u96c6\u8a08\").Range(\"E\" &amp; i &amp; \"\").Value = Worksheets(\"\u96c6\u8a08\").Range(\"E\" &amp; i &amp; \"\").Value + pri\r\n                    \r\n                    pri = 0\r\n                \r\n                End If\r\n                \r\n                i = i + 1\r\n            \r\n            Loop\r\n            \r\n            If pri &lt;&gt; 0 Then\r\n            \r\n                Worksheets(\"\u96c6\u8a08\").Range(\"D\" &amp; i &amp; \"\").Value = cus\r\n                \r\n                Worksheets(\"\u96c6\u8a08\").Range(\"E\" &amp; i &amp; \"\").NumberFormatLocal = \"#,##0\"\r\n                \r\n                Worksheets(\"\u96c6\u8a08\").Range(\"E\" &amp; i &amp; \"\").Value = pri\r\n            \r\n            End If\r\n            \r\n            '\u3053\u3053\u307e\u3067\u9867\u5ba2\u5225\u91d1\u984d  \u3053\u3053\u304b\u3089\u7d0d\u671f\u5225\u91d1\u984d -------------------------------------------------\r\n            \r\n            lt = ActiveSheet.Range(\"F\" &amp; r &amp; \"\").Value\r\n\r\n            If ActiveSheet.Range(\"G\" &amp; r &amp; \"\").Value &lt;&gt; \"\" Then lt = ActiveSheet.Range(\"G\" &amp; r &amp; \"\").Value\r\n \r\n            If IsDate(lt) = False Then\r\n            \r\n                Worksheets(\"\u96c6\u8a08\").Range(\"H13\").NumberFormatLocal = \"#,##0\"\r\n                \r\n                Worksheets(\"\u96c6\u8a08\").Range(\"H13\").Value = Worksheets(\"\u96c6\u8a08\").Range(\"H13\").Value + (ActiveSheet.Range(\"E\" &amp; r &amp; \"\").Value * ActiveSheet.Range(\"CZ\" &amp; r &amp; \"\").Value)\r\n            \r\n            End If\r\n            \r\n            If IsDate(lt) Then\r\n            \r\n                m = Month(lt)\r\n                    \r\n                d = Day(lt)\r\n                \r\n                Select Case d\r\n                \r\n                    Case 21 To 31\r\n                    \r\n                        m = m + 1\r\n                        \r\n                        If m = 13 Then m = 1\r\n                    \r\n                    Case 1 To 20\r\n                \r\n                End Select\r\n                \r\n                For i = 1 To 12\r\n                \r\n                    If m = Worksheets(\"\u96c6\u8a08\").Range(\"G\" &amp; i &amp; \"\").Value Then\r\n                    \r\n                        Worksheets(\"\u96c6\u8a08\").Range(\"H\" &amp; i &amp; \"\").NumberFormatLocal = \"#,##0\"\r\n                    \r\n                        Worksheets(\"\u96c6\u8a08\").Range(\"H\" &amp; i &amp; \"\").Value = Worksheets(\"\u96c6\u8a08\").Range(\"H\" &amp; i &amp; \"\").Value + (ActiveSheet.Range(\"E\" &amp; r &amp; \"\").Value * ActiveSheet.Range(\"CZ\" &amp; r &amp; \"\").Value)\r\n                    \r\n                    End If\r\n                \r\n                Next i\r\n                        \r\n            End If\r\n            \r\n            '\u3053\u3053\u307e\u3067\u7d0d\u671f\u5225\u91d1\u984d -------------------------------------------------\r\n                    \r\n        End If '---\r\n    \r\n    End If '--\r\n    \r\n    Select Case r\r\n    \r\n        Case 105, 80, 55, 30\r\n    \r\n        r = r - 5\r\n    \r\n    End Select\r\n        \r\nNext r ' -\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c, 2).NumberFormatLocal = \"#,##0\"\r\nWorksheets(\"\u96c6\u8a08\").Cells(c, 2).Value = buf\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 11).NumberFormatLocal = \"#,##0\"\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 11).Value = buf\r\n\r\nEnd Sub\r\n\r\nFunction fcount(ByVal sn As String) As Integer\r\n\r\nDim rc As Integer '\u884c\u6570\r\nDim fc As Integer '\u30d5\u30a9\u30fc\u30e0\u6570\r\n\r\nSheets(sn).Activate\r\n\r\nrc = ActiveSheet.UsedRange.Rows.Count\r\n\r\nFor i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 '\u30d5\u30a9\u30fc\u30e0\u6570\u3092\u78ba\u8a8d(A\u5217\u3067\u5224\u65ad)\r\n\r\n    If 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            \r\n        fc = 1\r\n    \r\n    Case 49\r\n        \r\n        fc = 2\r\n    \r\n    Case 74\r\n        \r\n        fc = 3\r\n    \r\n    Case 99\r\n        \r\n        fc = 4\r\n    \r\n    Case 124\r\n        \r\n        fc = 5\r\n\r\n    Case Else\r\n\r\n        fc = -1\r\n        \r\nEnd Select\r\n\r\nfcount = fc\r\n    \r\nEnd Function\r\n\r\nFunction \u6587\u5b57\u5217\u8abf\u6574(ByVal cus_str As String)\r\n\r\n    cus_str = Replace(cus_str, vbLf, \"\")\r\n\r\n    cus_str = StrConv(cus_str, vbWide)\r\n    \r\n    cus_str = Replace(cus_str, \"\u3000\u3000\u3000\", \"\u3000\") '\u7a7a\u767d4\u3064\u307e\u30671\u3064\u306b\u7f6e\u63db\u3059\u308b\r\n    \r\n    cus_str = Replace(cus_str, \"\u3000\u3000\", \"\u3000\")\r\n    \r\n    cus_str = Trim(cus_str)\r\n    \r\n    cus_str = Replace(cus_str, \"\u3231\", \"\")\r\n        \r\n    cus_str = Replace(cus_str, \"\u3232\", \"\")\r\n    \r\n    \u6587\u5b57\u5217\u8abf\u6574 = cus_str\r\n\r\nEnd Function\r\n\r\nFunction \u7d0d\u671f\u96c6\u8a08(ByVal sn As String)\r\n\r\nmth = Replace(Sheets(sn).Range(\"H2\").Value, \"\u6708\", \"\")\r\n\r\nSelect Case mth\r\n\r\n    Case 1 To 12\r\n    \r\n        For i = 1 To 12\r\n    \r\n            Sheets(\"\u96c6\u8a08\").Range(\"G\" &amp; i &amp; \"\").Value = mth + i\r\n            \r\n            If Sheets(\"\u96c6\u8a08\").Range(\"G\" &amp; i &amp; \"\").Value &gt; 12 Then\r\n            \r\n                Sheets(\"\u96c6\u8a08\").Range(\"G\" &amp; i &amp; \"\").Value = Sheets(\"\u96c6\u8a08\").Range(\"G\" &amp; i &amp; \"\").Value - 12\r\n            \r\n            End If\r\n        \r\n        Next i\r\n    \r\n    Case Else\r\n    \r\n        MsgBox \"\u6708\u304c\u6b63\u3057\u304f\u8a18\u5165\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002\"\r\n    \r\n        mth = -1\r\n\r\nEnd Select\r\n\r\nSheets(\"\u96c6\u8a08\").Range(\"G13\").Value = \"\u672a\u5b9a\"\r\n\r\n\u7d0d\u671f\u96c6\u8a08 = mth\r\n\r\nEnd Function\r\n\r\nSub main2(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) '\u30b7\u30fc\u30c8\u540d,\u30d5\u30a9\u30fc\u30e0\u6570,\u30ab\u30a6\u30f3\u30bf\r\n\r\nWorksheets(sn).Activate\r\n\r\nbuf1 = 0\r\n\r\nbuf2 = 0\r\n\r\nFor cc = 8 To 100\r\n\r\n    For r = 5 To (fc * 25 - 1)\r\n    \r\n        If ActiveSheet.Cells(4, cc).Interior.Color = RGB(255, 255, 0) Then Exit For\r\n        \r\n        If ActiveSheet.Cells(r, cc).Interior.Color = RGB(0, 0, 0) Then\r\n        \r\n            buf1 = buf1 + 1 '\u9ed2\u5857\u308a\u3064\u3076\u3057\r\n        \r\n            Exit For\r\n            \r\n        End If\r\n    \r\n        'ActiveSheet.Cells(r, cc).Value = r &amp; \",\" &amp; cc\r\n        \r\n        If r = (fc * 25 - 1) Then buf2 = buf2 + 1 '\u5857\u308a\u3064\u3076\u3057\u306a\u3057\r\n    \r\n        Select Case r\r\n        \r\n            Case 99, 74, 49, 24\r\n        \r\n            r = r + 5\r\n        \r\n        End Select\r\n        \r\n    Next r\r\n\r\nNext cc\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 12).Value = buf1 '\u76ee\u76db\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 13).NumberFormatLocal = \"0.0\" '\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 13).Value = buf1 \/ 3 '\u751f\u7523\u65e5\u6570\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 14).NumberFormatLocal = \"#,##0\"\r\n\r\nIf Worksheets(\"\u96c6\u8a08\").Cells(c + 1, 13) &lt;&gt; 0 Then\r\n\r\n    Worksheets(\"\u96c6\u8a08\").Cells(c + 1, 14).Value = (Worksheets(\"\u96c6\u8a08\").Cells(c + 1, 11)) \/ (Worksheets(\"\u96c6\u8a08\").Cells(c + 1, 13)) '\u751f\u7523\u984d\/\u65e5\r\n\r\nEnd If\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 16).Value = buf2\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 17).NumberFormatLocal = \"0.0\" '\r\n\r\nWorksheets(\"\u96c6\u8a08\").Cells(c + 1, 17).Value = buf2 \/ 3  '\u672a\u751f\u7523\u65e5\u6570\r\n\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u4ee5\u524d\u4f5c\u3063\u305f\u751f\u7523\u9ad8\u3092\u96c6\u8a08\u3059\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u305d\u306e\u307e\u307e\u6a5f\u80fd\u3092\u8ffd\u52a0\u3002 \u30a8\u30af\u30bb\u30eb\u306e\u5de5\u7a0b\u7ba1\u7406\u3067\u30ac\u30f3\u30c8\u30c1\u30e3\u30fc\u30c8\u3063\u307d\u304f\u904b\u7528\u3057\u3066\u3044\u308b\u5834\u5408\u3001 \u7f6b\u7dda\u3067\u8868\u3092\u4f5c\u3063\u3066\u3001\u8272\u3067\u9032\u6357\u3092\u7ba1\u7406\u3059\u308b\u7d44\u307f\u5408\u308f\u305b\u306f\u9762\u5012\u306b\u306a\u308a\u3084\u3059\u3044\u3002 \u7f6b\u7dda\u3092\u30aa\u30f3\u30aa\u30d5\u3067\u304d\u308b\u3068\u7ba1\u7406\u304c\u697d\u306b\u306a &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=1357\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA \u751f\u7523\u9ad8\u96c6\u8a08&#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-1357","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\/1357","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=1357"}],"version-history":[{"count":1,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/1357\/revisions"}],"predecessor-version":[{"id":1358,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/1357\/revisions\/1358"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1357"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1357"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1357"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}