https:\/\/www.microsoft.com\/ja-jp\/download\/details.aspx?id=6315<\/a>
\n\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3059\u308b\u3068\u3001
\n\u52d5\u304f\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\u305f\u3060\u305d\u306e\u969b\u3001\u3059\u3079\u3066\u306ePC\u306b\u305d\u308c\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u306a\u304f\u3066\u3082OK\u3067\u3059\u3002
\n\u3069\u308c\u304b\uff11\u3064\u306ePC\u306b\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3001\u305d\u306e\u5b8c\u4e86\u5f8c\u306b\u3001\u6700\u4f4e\u9650\u5fc5\u8981\u306a\u30d5\u30a1\u30a4\u30eb\u3092
\n\uff12\u3064\u629c\u304d\u51fa\u3057\u3066\u3001\u4ed6\u306e\u30de\u30b7\u30f3\u306b\u306f\u3001\u305d\u308c\u3092\u30b3\u30d4\u30da\u3059\u308c\u3070OK\u3067\u3059\u3002
\n\uff08\u300cc:\\windows\\system32\u300d\u306b\u3002\uff09<\/p>\n
\u305d\u306e\uff12\u3064\u306e\u30d5\u30a1\u30a4\u30eb\u306f\u3001
\n\u300cc:\\windows\\system32\u300d\u306e\u3001\u300ccertutil.exe\u300d\u3068\u300ccertadm.dll\u300d\u3067\u3059\u3002<\/p>\n
\u3053\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u81ea\u4f53\u306fDOS\u7a93\u304c\u3061\u3089\u3064\u3044\u3066\u3057\u307e\u3044\u307e\u3059\u304c\u3001\u30cf\u30c3\u30b7\u30e5\u3092\u53d6\u5f97\u3059\u308b\u90e8\u5206\u3092\u6d88\u3059\u304b\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u3001\uff11\u3064\u4e0a\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u304b\u3051\u3042\u308f\u305b\u308b\u3068\u3001DOS\u7a93\u304c\u3061\u3089\u3064\u304b\u306a\u3044\u3088\u3046\u306b\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u305d\u306e\u5834\u5408\u306f\u3001\u6700\u4f4e\u3001Wait\u3067\uff12\u79d2\u307b\u3069\u5f85\u305f\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u304c\uff09<\/p>\n
\r\n'\r\n'\r\nPublic Function GetFileHashSha1(s_FilePath As String) As String\r\n\r\n Dim o_WSH As Object\r\n Dim o_wshExec As Object\r\n Dim s_Cmd As String\r\n Dim s_Output As String\r\n Dim s_OutptStr01 As String\r\n Dim s_OutptStr02 As String\r\n \r\n Dim i_vbcrlfPosi01 As Integer\r\n Dim i_Cnt01 As Integer\r\n Dim i_RightLen As Integer\r\n \r\n \r\n If Dir(s_FilePath) <> \"\" Then\r\n '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\u3001\u3053\u3063\u3061\u304c\u5b9f\u884c\u3055\u308c\u308b\u3002\r\n' Debug.Print s_FilePath & \"\u306f\u5b58\u5728\u3057\u307e\u3059\u3002\"\r\n Else\r\n '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\u3001\u3053\u3063\u3061\u304c\u5b9f\u884c\u3055\u308c\u308b\u3002\r\n' Debug.Print s_FilePath & \"\u306f\u5b58\u5728\u3057\u307e\u305b\u3093\u3002\"\r\n Let GetFileHashSha1 = \"\u30d5\u30a1\u30a4\u30eb\u7121\u3057\"\r\n Exit Function\r\n End If\r\n Call Shell(\"certutil -hashfile \"\"d:\\1\\rktools.exe\"\" > d:\\1\\hash01.txt\"\"\", 1)\r\n\r\n \r\n Set o_WSH = CreateObject(\"WScript.Shell\")\r\n s_Cmd = \"certutil -hashfile \" & _\r\n \"\"\"\" & s_FilePath & \"\"\"\"\r\n \r\n \r\n Set o_wshExec = o_WSH.Exec(\"%ComSpec% \/c \" & s_Cmd)\r\n '\u2191\u30b3\u30de\u30f3\u30c9\u306e\u5b9f\u884c\uff08\u30cf\u30c3\u30b7\u30e5\u8a08\u7b97\u306e\u958b\u59cb\uff09\r\n\r\n Do While o_wshExec.Status = 0\r\n DoEvents\r\n Loop\r\n '\u8a08\u7b97\u304c\u7d42\u308f\u308b\u307e\u3067\u5f85\u3064\u3002\r\n\r\n s_Output = o_wshExec.stdOut.ReadAll\r\n' Stop\r\n '\u2191\u30b3\u30de\u30f3\u30c9\u306e\u5b9f\u884c\u7d50\u679c\uff08XP\u3084Win2000\u306e\u5834\u5408\u306f3\u884c\u3002Win10\u306a\u3069\u306e\u5834\u5408\u306f4\u884c\uff09\u3092\u3001\r\n ' \u5909\u6570\u306b\u5168\u884c\u5206\u3092\u53d7\u3051\u53d6\u308b\u3002\r\n \r\n\r\n i_vbcrlfPosi01 = 0\r\n' Stop\r\n For i_Cnt01 = 1 To 2\r\n i_vbcrlfPosi01 = InStr(i_vbcrlfPosi01 + 1, s_Output, vbCrLf, vbBinaryCompare)\r\n Next i_Cnt01\r\n '\u2191\u53d7\u3051\u53d6\u3063\u305f\u7d50\u679c\u3092\u30eb\u30fc\u30d7\u3057\u3066\u3001\u30cf\u30c3\u30b7\u30e5\u5024\u3092\u30b2\u30c3\u30c8\u3059\u308b\u3002\r\n ' XP\u3084Win2000SP4Pro\u306e\u5834\u5408\u306f\u3001\u7d50\u679c\u304c\u300c\uff13\u884c\u300d\u306a\u306e\u3067\u3001\r\n ' \u30eb\u30fc\u30d7\u306f\u300c 1 To 2\u300d\u3067OK\u3002\r\n' Stop\r\n \r\n Let i_RightLen = Len(s_Output) - i_vbcrlfPosi01\r\n\r\n Let s_OutptStr01 = Right(s_Output, i_RightLen)\r\n\r\n Let i_vbcrlfPosi01 = 0\r\n Let i_vbcrlfPosi01 = InStr(1, s_OutptStr01, vbCrLf, vbBinaryCompare)\r\n \r\n Let s_OutptStr02 = Left(s_OutptStr01, i_vbcrlfPosi01)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, \" \", \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbLf, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbCr, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbCrLf, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = UCase(s_OutptStr02)\r\n\r\n' Debug.Print Len(s_OutptStr02)\r\n GetFileHashSha1 = s_OutptStr02\r\n \r\n Set o_wshExec = Nothing\r\n Set o_WSH = Nothing\r\n\r\n\r\nEnd Function\r\n\r\n'\r\n'\r\n<\/pre>\n\u3000\u3000<\/SPAN><\/p>\n\u25cfWindows2000\uff08SP4\uff1fPro\u7248\uff09\u3067\u306e\u30b3\u30de\u30f3\u30c9\u5229\u7528\u3067\u306e\u30cf\u30c3\u30b7\u30e5\u8a08\u7b97\u3002\uff08Certutil.exe\u5229\u7528\uff09
\n\uff08\u203b\u300c\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u3067\u306e\u30cf\u30c3\u30b7\u30e5\u5024\u5272\u308a\u51fa\u3057\u306e\u5b9f\u884c\u7d50\u679c\u3092VBA\u5074\u306b\u53d7\u3051\u53d6\u308b\u65b9\u5f0f\u300d\uff09<\/p>\n
WindowsXP\u306fCertutil.exe\u304c\u7121\u304b\u3063\u305f\u306e\u3067\u3059\u304c\u3001Windows2000SP4Pro\u3084Server\u306b\u306f\u3001
\n\u3042\u3089\u304b\u3058\u3081\u3001Certutil.exe\u304c\u5165\u3063\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002
\n\u305f\u3060\u3001\u683c\u7d0d\u5834\u6240\u304c\u300cC:\\WINNT\\system32\\dllcache\u300d\u3067PATH\u304c\u901a\u3063\u3066\u3044\u307e\u305b\u3093\u3002
\n\u306a\u306e\u3067\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u300cPATH_Add01()\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u3066\u3001
\n\u300cC:\\WINNT\\system32\\dllcache\u300d\u306b\u30d1\u30b9\u3092\u901a\u3057\u307e\u3059\u3002<\/p>\n
\u305f\u3060\u3001\u307e\u3042\u305d\u3053\u306f\u624b\u4f5c\u696d\u3067\u3082\u3082\u3061\u308d\u3093OK\u3067\u3059\u3002<\/p>\n
\u305d\u308c\u304c\u5b8c\u4e86\u3057\u305f\u3089\u3001PC\u518d\u8d77\u52d5\u3002<\/p>\n
\u57fa\u672c\u3001
\n\u2460\u300cPATH_Add01()\u300d\u95a2\u6570\u306a\u3069\u3067PATH\u3092\u901a\u3057\u3066PC\u3092\u518d\u8d77\u52d5\u3057\u3001
\n\u2461\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u3067\u300ccertutil \/?\u300d\u304c\u6b63\u5e38\u306b\u30d8\u30eb\u30d7\u8868\u793a\u3055\u308c\u308b\u304b\u306e\u30c1\u30a7\u30c3\u30af\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>\n
\u306a\u304a\u3001\u300ccert\u30fb\u30fb\u30fb\u300d\u95a2\u9023\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u3046\u3061\u3001
\nC:\\WINNT\\system32\\\u3068
\nC:\\WINNT\\system32\\dllcache\u306e\u4e21\u65b9\u306b\u5b58\u5728\u3057\u3066\u3001
\n\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u753b\u9762\u306e\u30c6\u30b9\u30c8\u3067\u3001\u300c\u5e8f\u6570\u304c\u30fb\u30fb\u30fb\u300d\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3068\u304d\u306f\u3001
\nC:\\WINNT\\system32\\dllcache\u306bPATH\u3092\u901a\u3057\u305f\u3042\u3068\u306f\u3001
\nC:\\WINNT\\system32\\\u5074\u306e\u540c\u540d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30cd\u30fc\u30e0\u3059\u308b\u3068\u3001
\n\u30a8\u30e9\u30fc\u304c\u51fa\u306a\u304f\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002
\n\u3069\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30cd\u30fc\u30e0\u3059\u308b\u304b\u306f\u3001\u51fa\u3066\u304d\u305f\u30a8\u30e9\u30fc\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u51fa\u308b\u306e\u3067\u3001
\n\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30cd\u30fc\u30e0\u3059\u308c\u3070OK\u3067\u3059\u3002
\n\uff08\u5fc5\u305a\u3057\u3082\u5e38\u306b\uff11\uff10\uff10\uff05\u3046\u307e\u304f\u3044\u304f\u3068\u306f\u9650\u308a\u307e\u305b\u3093\u304c\u3001\u4eca\u306e\u3068\u3053\u308d\u3001\u3046\u307e\u304f\u3044\u3063\u3066\u307e\u3059\u3002\uff09<\/p>\n
\r\n'\r\n'\r\nSub PATH_Add01()\r\n\r\n Dim wshShell As Object ' \u5909\u6570\u5ba3\u8a00\r\n Dim wshUserEnv As Object\r\n \r\n Set wshShell = CreateObject(\"WScript.Shell\")\r\n ' \u30e6\u30fc\u30b6\u30fc\u74b0\u5883\u5909\u6570\u306e\u53d6\u5f97\uff08\u30b7\u30b9\u30c6\u30e0\u74b0\u5883\u5909\u6570\u306e\u5834\u5408\u306f System\uff09\r\n Set wshUserEnv = wshShell.Environment(\"System\")\r\n 'PATH\u306f\u300c\"System\"\u300d\u3067\u3088\u3055\u305d\u3046\u3002\r\n 'https:\/\/vbabeginner.net\/add-and-edit-environment-variables\/\u3000\u53c2\u7167\r\n \r\n ' \u30e6\u30fc\u30b6\u30fc\u74b0\u5883\u5909\u6570 TESTUSERENV \u3092\u8a2d\u5b9a\u3059\u308b\r\n wshUserEnv.Item(\"PATH\") = Environ(\"PATH\") & \"C:\\WINNT\\system32\\dllcache;\"\r\n \r\n ' \u74b0\u5883\u5909\u6570\u3092\u524a\u9664\u3059\u308b\u5834\u5408\u306f\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\r\n 'wshUserEnv.Remove (\"PATH\")\r\n \r\n Set wshUserEnv = Nothing\r\n Set wshShell = Nothing\r\nEnd Sub\r\n\r\n'\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u300cC:\\WINNT\\system32\\dllcache\u300d\u306b\u30d1\u30b9\u3092\u901a\u3057\u3066\u3001PC\u518d\u8d77\u52d5\u3002\r\n\r\n'\u306a\u304a\u3001\u300ccert\u30fb\u30fb\u30fb\u300d\u306e\u30d5\u30a1\u30a4\u30eb\u3067\u3001\r\n'C:\\WINNT\\system32\\\u3068\r\n'C:\\WINNT\\system32\\dllcache\u306e\u4e21\u65b9\u306b\u5b58\u5728\u3057\u3066\u3001\r\n'\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u753b\u9762\u306e\u30c6\u30b9\u30c8\u3067\u3001\u300c\u5e8f\u6570\u304c\u30fb\u30fb\u30fb\u300d\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3068\u304d\u306f\u3001\r\n'C:\\WINNT\\system32\\dllcache\u306bPATH\u3092\u901a\u3057\u305f\u3042\u3068\u306f\u3001\r\n'C:\\WINNT\\system32\\\u5074\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30cd\u30fc\u30e0\u3059\u308b\u3068\u3001\u30a8\u30e9\u30fc\u304c\u51fa\u306a\u304f\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\r\n\r\n\r\n\r\n'=====================================\r\n\r\nPublic Function GetFileHashSha1ForWin2000(s_FilePath As String) As String\r\n \r\n'\u4e8b\u524d\u306b\u3001\r\n'\u2460\u300cPATH_Add01()\u300d\u95a2\u6570\u306a\u3069\u3067PATH\u3092\u901a\u3057\u3066PC\u3092\u518d\u8d77\u52d5\u3057\u3001\r\n'\u2461\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u3067\u300ccertutil \/?\u300d\u304c\u6b63\u5e38\u306b\u30d8\u30eb\u30d7\u8868\u793a\u3055\u308c\u308b\u304b\u306e\u30c1\u30a7\u30c3\u30af\u304c\u5fc5\u8981\u3067\u3059\u3002\r\n\r\n Dim o_WSH As Object\r\n Dim o_wshExec As Object\r\n Dim s_Cmd As String\r\n Dim s_Output As String\r\n Dim s_OutptStr01 As String\r\n Dim s_OutptStr02 As String\r\n \r\n Dim i_vbcrlfPosi01 As Integer\r\n Dim i_Cnt01 As Integer\r\n Dim i_RightLen As Integer\r\n \r\n \r\n If Dir(s_FilePath) <> \"\" Then\r\n '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\u3001\u3053\u3063\u3061\u304c\u5b9f\u884c\u3055\u308c\u308b\u3002\r\n' Debug.Print s_FilePath & \"\u306f\u5b58\u5728\u3057\u307e\u3059\u3002\"\r\n Else\r\n '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\u3001\u3053\u3063\u3061\u304c\u5b9f\u884c\u3055\u308c\u308b\u3002\r\n' Debug.Print s_FilePath & \"\u306f\u5b58\u5728\u3057\u307e\u305b\u3093\u3002\"\r\n Let GetFileHashSha1 = \"\u30d5\u30a1\u30a4\u30eb\u7121\u3057\"\r\n Exit Function\r\n End If\r\n Call Shell(\"certutil -hashfile \"\"d:\\1\\rktools.exe\"\" > d:\\1\\hash01.txt\"\"\", 1)\r\n \r\n \r\n Set o_WSH = CreateObject(\"WScript.Shell\")\r\n Let s_Cmd = \"certutil -hashfile \" & _\r\n \"\"\"\" & s_FilePath & \"\"\"\"\r\n \r\n \r\n Set o_wshExec = o_WSH.Exec(\"%ComSpec% \/c \" & s_Cmd)\r\n \r\n Do While o_wshExec.Status = 0\r\n DoEvents\r\n Loop\r\n \r\n Let s_Output = o_wshExec.stdOut.ReadAll\r\n' Stop\r\n \r\n \r\n \r\n' Let i_vbcrlfPosi01 = 0\r\n' Stop\r\n' For i_Cnt01 = 1 To 1\r\n Let i_vbcrlfPosi01 = InStr(i_vbcrlfPosi01 + 1, s_Output, vbCrLf, vbBinaryCompare)\r\n' Next i_Cnt01\r\n '\u2191XP\u306e\u5834\u5408\u306f\uff14\u884c\u3042\u308b\u306e\u3067\uff12\u56de\u30eb\u30fc\u30d7\u3057\u305f\u307b\u3046\u304c\u3044\u3044\u3051\u3069\u3001\r\n '\u3000Win2000\u306e\u5834\u5408\u306f\uff13\u884c\u3057\u304b\u306a\u3044\u306e\u3067\u30eb\u30fc\u30d7\u306e\u5fc5\u8981\u304c\u306a\u3044\u3002\r\n '\u3000\u307e\u305f\u3001\u300cXP\u30682000\u306e\u4e21\u65b9\u3067\u5171\u901a\u300d\u306b\u4f7f\u3048\u308b\u3088\u3046\u306b\u3057\u305f\u3044\u306a\u3089\u3001\r\n '\u3000\u5f8c\u308d\u304b\u3089\u3084\u3063\u305f\u307b\u3046\u304c\u3001\u5f8c\u308d\u304b\u3089\uff12\u884c\u76ee\u304c\u30cf\u30c3\u30b7\u30e5\u5024\u306a\u306e\u3067\u3001\r\n '\u3000\u305d\u306e\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3002\r\n \r\n' Stop\r\n \r\n Let i_RightLen = Len(s_Output) - i_vbcrlfPosi01\r\n \r\n Let s_OutptStr01 = Right(s_Output, i_RightLen)\r\n \r\n Let i_vbcrlfPosi01 = 0\r\n Let i_vbcrlfPosi01 = InStr(1, s_OutptStr01, vbCrLf, vbBinaryCompare)\r\n \r\n Let s_OutptStr02 = Left(s_OutptStr01, i_vbcrlfPosi01)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, \" \", \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbLf, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbCr, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = Replace(s_OutptStr02, vbCrLf, \"\", , , vbBinaryCompare)\r\n Let s_OutptStr02 = UCase(s_OutptStr02)\r\n \r\n' Debug.Print Len(s_OutptStr02)\r\n Let GetFileHashSha1 = s_OutptStr02\r\n \r\n Set o_wshExec = Nothing\r\n Set o_WSH = Nothing\r\n \r\n \r\nEnd Function\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605ExcelVBA \uff5e \u3010\u96fb\u5b50\u5e33\u7c3f\u4fdd\u5b58\u6cd5\u30fb\u30bf\u30a4\u30e0\u30b9\u30bf\u30f3\u30d7\u304c\u3089\u307f\u3011\u30d5\u30a1\u30a4\u30eb\u306e\u30cf\u30c3\u30b7\u30e5\u5024\u3092\u30b2\u30c3\u30c8\u3059\u308b\u95a2\u6570 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1909"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1909"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1909\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1909"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1909"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"1\"](\"https:\/\/www.nta.go.jp\/shared\/images\/decimal\/01.gif\")
\u4e09\u30a4\u3001![\"5\"](\"https:\/\/www.nta.go.jp\/shared\/images\/decimal\/05.gif\")
\u4e03\u3001\uff18![\"\"](\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2023-06-12---22-13-04.jpg\")
<\/a><\/p>\n