{"id":463,"date":"2026-06-16T10:15:05","date_gmt":"2026-06-16T01:15:05","guid":{"rendered":"https:\/\/kusunoki-tech.com\/?p=463"},"modified":"2026-06-16T10:20:11","modified_gmt":"2026-06-16T01:20:11","slug":"%e3%80%90vba%e3%82%b8%e3%83%a7%e3%83%bc%e3%82%af%e3%83%84%e3%83%bc%e3%83%ab%e2%91%a0%e3%80%91%e3%81%82%e3%82%8c%ef%bc%81%ef%bc%9f%e5%a3%8a%e3%82%8c%e3%81%9f%ef%bc%81%ef%bc%9fexcel%e8%b5%b7%e5%8b%95","status":"publish","type":"post","link":"https:\/\/kusunoki-tech.com\/?p=463","title":{"rendered":"\u3010VBA\u30b8\u30e7\u30fc\u30af\u30c4\u30fc\u30eb\u2460\u3011\u3042\u308c\uff01\uff1f\u58ca\u308c\u305f\uff01\uff1fExcel\u8d77\u52d5\u6642\u306e\u7121\u99c4\u306a\u6f14\u51fa\u30c4\u30fc\u30eb\u306e\u4f5c\u6210\u65b9\u6cd5"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u4eca\u56de\u306f\u3001Excel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u77ac\u9593\u306b\u3001\u753b\u9762\u304c\u30d0\u30b0\u3063\u305f\u3088\u3046\u306b\u898b\u305b\u304b\u3051\u308b\u30d0\u30b0\u30a8\u30d5\u30a7\u30af\u30c8\u3092\u5b9f\u88c5\u3057\u305fVBA\u30b3\u30fc\u30c9\u3092\u89e3\u8aac\u3057\u307e\u3059\u3002\u60aa\u7528\u306f\u53b3\u7981\u3067\u3059(\u7b11)<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u307e\u305a\u306f\u3001\u5b9f\u969b\u306b\u3069\u306e\u3088\u3046\u306a\u6f14\u51fa\u304c\u5b9f\u884c\u3055\u308c\u308b\u306e\u304b\u3001\u4ee5\u4e0b\u306e\u52d5\u753b\u3092\u3054\u89a7\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<figure class=\"wp-block-video\"><video height=\"720\" style=\"aspect-ratio: 1280 \/ 720;\" width=\"1280\" controls src=\"https:\/\/kusunoki-tech.com\/wp-content\/uploads\/2026\/06\/\u8d77\u52d5\u6642\u6f14\u51fa.mp4\"><\/video><\/figure>\n\n\n\n<p class=\"wp-block-paragraph\">\u4e00\u898b\u3059\u308b\u3068\u8907\u96d1\u306a\u51e6\u7406\u3092\u884c\u3063\u3066\u3044\u308b\u3088\u3046\u306b\u898b\u3048\u307e\u3059\u304c\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u8981\u7d20\u3054\u3068\u306b\u5206\u89e3\u3059\u308b\u3068\u3001\u521d\u5b66\u8005\u3067\u3082\u7406\u89e3\u3067\u304d\u308b\u660e\u78ba\u306a\u8ad6\u7406\u3067\u69cb\u6210\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u5b9f\u52d9\u3067\u3082\u5fdc\u7528\u53ef\u80fd\u306a\u300c\u5b89\u5168\u306a\u30a8\u30e9\u30fc\u51e6\u7406\u300d\u3084\u300cUI\u306e\u5236\u5fa1\u300d\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u305f\u3081\u3001\u9806\u3092\u8ffd\u3063\u3066\u89e3\u8aac\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u5b9f\u969b\u306e\u30b3\u30fc\u30c9<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u30d5\u30a1\u30a4\u30eb\u3092\u8d77\u52d5\u3057\u305f\u969b\u306b\u81ea\u52d5\u5b9f\u884c\u3055\u305b\u308b\u305f\u3081\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3068<code>ThisWorkbook<\/code> \u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u305d\u308c\u305e\u308c\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">1. \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb<\/h3>\n\n\n\n<pre class=\"wp-block-code\"><code>#If VBA7 Then\n    Private Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)\n    Private Declare PtrSafe Function BeepAPI Lib \"kernel32\" Alias \"Beep\" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long\n#Else\n    Private Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)\n    Private Declare Function BeepAPI Lib \"kernel32\" Alias \"Beep\" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long\n#End If\n\nSub RunGlitchStartupSequence()\n    Dim ws As Worksheet\n    Dim originalGridlines As Boolean\n    Dim originalHeadings As Boolean\n    \n    ' \u30a8\u30e9\u30fc\u6642\u3084\u5f37\u5236\u7d42\u4e86\u6642\uff08Ctrl+Break\uff09\u306e\u30d5\u30a7\u30a4\u30eb\u30bb\u30fc\u30d5\n    On Error GoTo CleanUp\n    Application.EnableCancelKey = xlErrorHandler\n\n    ' \u5b9f\u884c\u524d\u306eUI\u72b6\u614b\u3092\u4fdd\u5b58\n    originalGridlines = ActiveWindow.DisplayGridlines\n    originalHeadings = ActiveWindow.DisplayHeadings\n\n    ' Startup\u30b7\u30fc\u30c8\u306e\u53d6\u5f97\u30fb\u4f5c\u6210\n    On Error Resume Next\n    Set ws = ThisWorkbook.Sheets(\"Startup\")\n    On Error GoTo CleanUp ' \u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u3092\u518d\u8a2d\u5b9a\n    \n    If ws Is Nothing Then\n        Set ws = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1))\n        ws.Name = \"Startup\"\n    End If\n\n    ' UI\u8981\u7d20\u306e\u975e\u8868\u793a\u8a2d\u5b9a\n    Application.ScreenUpdating = False\n    ActiveWindow.DisplayGridlines = False\n    ActiveWindow.DisplayHeadings = False\n\n    ' \u57fa\u672c\u66f8\u5f0f\u8a2d\u5b9a\n    ws.Cells.Interior.Color = RGB(0, 0, 0)\n    ws.Cells.Font.Color = RGB(0, 255, 0)\n    ws.Cells.Font.Name = \"Consolas\"\n    ws.Cells.Font.Size = 16\n    ws.Cells.Font.Bold = True\n    \n    ws.Range(\"A1\").WrapText = True\n    ws.Range(\"A1\").ColumnWidth = 150\n    ws.Range(\"A1\").RowHeight = 400\n    ws.Range(\"A1\").VerticalAlignment = xlVAlignTop\n\n    Application.ScreenUpdating = True\n\n    Dim mundaneLog As String\n    mundaneLog = \"CRITICAL SYSTEM FAILURE... JUST KIDDING.\" &amp; vbCrLf &amp; _\n                 \"EXCEL IS A SPREADSHEET SOFTWARE CREATED BY MICROSOFT.\" &amp; vbCrLf &amp; _\n                 \"ONE PLUS ONE EQUALS TWO. WATER IS WET.\" &amp; vbCrLf &amp; _\n                 \"YOU ARE CURRENTLY LOOKING AT A COMPUTER MONITOR.\" &amp; vbCrLf &amp; _\n                 \"APPLES ARE USUALLY RED OR GREEN.\" &amp; vbCrLf &amp; _\n                 \"SLEEPING IS VERY IMPORTANT FOR YOUR HEALTH.\" &amp; vbCrLf &amp; _\n                 \"THANK YOU FOR READING THIS COMPLETELY NORMAL TEXT.\"\n\n    Dim currentText As String\n    Dim i As Long\n    Dim char As String\n    \n    Randomize\n    ws.Range(\"A1\").Value = \"\"\n\n    ' \u30c6\u30ad\u30b9\u30c8\u51fa\u529b\u3068\u30b0\u30ea\u30c3\u30c1\u30a8\u30d5\u30a7\u30af\u30c8\u30eb\u30fc\u30d7\n    For i = 1 To Len(mundaneLog)\n        char = Mid(mundaneLog, i, 1)\n        currentText = currentText &amp; char\n        ws.Range(\"A1\").Value = currentText\n\n        If Rnd() &lt; 0.15 Then\n            ws.Cells.Interior.Color = RGB(Int(Rnd * 255), 0, 0)\n            ws.Cells.Font.Size = Int(Rnd * 30) + 10\n            ws.Range(\"A1\").ColumnWidth = Int(Rnd * 100) + 50\n            BeepAPI Int(Rnd * 3000) + 500, 40\n        Else\n            ws.Cells.Interior.Color = RGB(0, 0, 0)\n            ws.Cells.Font.Size = 16\n            ws.Range(\"A1\").ColumnWidth = 150\n        End If\n\n        DoEvents\n\n        If char &lt;&gt; \" \" And char &lt;&gt; vbCr And char &lt;&gt; vbLf Then\n            If Rnd() &gt; 0.15 Then BeepAPI 800, 10\n            Sleep 25\n        Else\n            Sleep 5\n        End If\n    Next i\n\n    ' \u30af\u30e9\u30c3\u30b7\u30e5\u6f14\u51fa\n    For i = 1 To 20\n        ws.Cells.Interior.Color = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))\n        ws.Cells.Font.Color = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))\n        BeepAPI Int(Rnd * 2500) + 500, 30\n        Sleep 30\n        DoEvents\n    Next i\n\nCleanUp:\n    ' \u3010\u91cd\u8981\u3011\u6b63\u5e38\u7d42\u4e86\u30fb\u7570\u5e38\u7d42\u4e86\u306b\u95a2\u308f\u3089\u305a\u3001\u5fc5\u305a\u5b89\u5168\u306a\u72b6\u614b\u3078\u5fa9\u5e30\u3055\u305b\u308b\n    If Not ws Is Nothing Then\n        ws.Cells.Interior.Color = RGB(0, 0, 0)\n        ws.Cells.Font.Color = RGB(0, 255, 0)\n        ws.Cells.Font.Size = 16\n        ws.Range(\"A1\").ColumnWidth = 150\n        ws.Range(\"A1\").Value = currentText &amp; vbCrLf &amp; vbCrLf &amp; \"&#91;STATUS] NOTHING HAPPENED. HAVE A NICE DAY.\"\n    End If\n    \n    ' \u4fdd\u5b58\u3057\u305fUI\u72b6\u614b\u3068\u30b7\u30b9\u30c6\u30e0\u8a2d\u5b9a\u306e\u5fa9\u5143\n    ActiveWindow.DisplayGridlines = originalGridlines\n    ActiveWindow.DisplayHeadings = originalHeadings\n    Application.ScreenUpdating = True\n    Application.EnableCancelKey = xlInterrupt ' \u30ad\u30e3\u30f3\u30bb\u30eb\u30ad\u30fc\u306e\u6319\u52d5\u3092\u6a19\u6e96\u306b\u623b\u3059\nEnd Sub<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">2. ThisWorkbook \u30e2\u30b8\u30e5\u30fc\u30eb<\/h3>\n\n\n\n<pre class=\"wp-block-code\"><code>Private Sub Workbook_Open()\n    Call RunGlitchStartupSequence\nEnd Sub<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\u521d\u5fc3\u8005\u5411\u3051\uff1a\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u4ed5\u7d44\u307f\u3068\u89e3\u8aac<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u3053\u306e\u30b3\u30fc\u30c9\u306f\u3001\u5927\u304d\u304f\u5206\u3051\u30663\u3064\u306e\u6280\u8853\u7684\u306a\u8981\u7d20\u304b\u3089\u6210\u308a\u7acb\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">1. \u300cWindows API\u300d\u3092\u5229\u7528\u3057\u305f\u7d30\u304b\u3044\u52d5\u304d\u3068\u97f3\u306e\u5236\u5fa1<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">VBA\u306e\u6a19\u6e96\u6a5f\u80fd\u3067\u306f\u300c1\u79d2\u5f85\u6a5f\u3059\u308b\u300d\u3053\u3068\u306f\u3067\u304d\u3066\u3082\u300c0.025\u79d2\u5f85\u6a5f\u3059\u308b\u300d\u3068\u3044\u3063\u305f\u7d30\u304b\u306a\u5236\u5fa1\u3084\u3001\u30b7\u30b9\u30c6\u30e0\u97f3\u306e\u9ad8\u3055\uff08\u5468\u6ce2\u6570\uff09\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002\u3053\u308c\u3092\u89e3\u6c7a\u3059\u308b\u305f\u3081\u3001Windows OS\u81ea\u4f53\u306e\u6a5f\u80fd\uff08API\uff09\u3092\u547c\u3073\u51fa\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>Sleep\u95a2\u6570<\/strong>: \u51e6\u7406\u3092\u300c\u30df\u30ea\u79d2\uff081000\u5206\u306e1\u79d2\uff09\u300d\u5358\u4f4d\u3067\u4e00\u6642\u505c\u6b62\u3055\u305b\u307e\u3059\u3002\u3053\u306e\u30b3\u30fc\u30c9\u3067\u306f\u3001\u6587\u5b57\u3092\u51fa\u529b\u3059\u308b\u3054\u3068\u306b25\u30df\u30ea\u79d2\uff08\u7a7a\u767d\u306f5\u30df\u30ea\u79d2\uff09\u5f85\u6a5f\u3055\u305b\u308b\u3053\u3068\u3067\u3001\u4eba\u9593\u304c\u30ad\u30fc\u30dc\u30fc\u30c9\u3092\u53e9\u3044\u3066\u3044\u308b\u3088\u3046\u306a\u30a2\u30cb\u30e1\u30fc\u30b7\u30e7\u30f3\u52b9\u679c\u3092\u751f\u307f\u51fa\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong>Beep\u95a2\u6570<\/strong>: \u6307\u5b9a\u3057\u305f\u5468\u6ce2\u6570\uff08Hz\uff09\u3068\u9577\u3055\uff08ms\uff09\u3067\u97f3\u3092\u9cf4\u3089\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong><code>#If VBA7 Then<\/code>\u306e\u5206\u5c90<\/strong>: \u4f7f\u7528\u3057\u3066\u3044\u308bExcel\u304c32\u30d3\u30c3\u30c8\u7248\u304b64\u30d3\u30c3\u30c8\u7248\u304b\u306b\u3088\u3063\u3066\u3001API\u3092\u547c\u3073\u51fa\u3059\u305f\u3081\u306e\u30e1\u30e2\u30ea\u306e\u6271\u3044\u65b9\uff08\u30dd\u30a4\u30f3\u30bf\uff09\u304c\u7570\u306a\u308a\u307e\u3059\u3002\u3069\u3061\u3089\u306e\u74b0\u5883\u3067\u3082\u30a8\u30e9\u30fc\u306a\u304f\u52d5\u4f5c\u3055\u305b\u308b\u305f\u3081\u306e\u6761\u4ef6\u5206\u5c90\u3067\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h3 class=\"wp-block-heading\">2. \u74b0\u5883\u3092\u7834\u58ca\u3057\u306a\u3044\u305f\u3081\u306e\u300c\u30d5\u30a7\u30a4\u30eb\u30bb\u30fc\u30d5\uff08\u5b89\u5168\u5bfe\u7b56\uff09\u300d<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u753b\u9762\u3092\u9ed2\u304f\u5857\u308a\u3064\u3076\u3057\u3001\u901a\u5e38\u306e\u64cd\u4f5c\u3092\u5236\u9650\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3042\u308b\u305f\u3081\u3001\u9014\u4e2d\u3067\u30a8\u30e9\u30fc\u304c\u8d77\u304d\u3066\u3082\u5fc5\u305a\u5143\u306e\u72b6\u614b\u306b\u623b\u308b\u5b89\u5168\u88c5\u7f6e\uff08\u30d5\u30a7\u30a4\u30eb\u30bb\u30fc\u30d5\uff09\u304c\u7d44\u307f\u8fbc\u307e\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>\u5143\u306e\u72b6\u614b\u3092\u8a18\u61b6\u3059\u308b<\/strong>: \u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u52d5\u304d\u51fa\u3059\u524d\u306b\u3001\u73fe\u5728\u306e\u300c\u67a0\u7dda\uff08Gridlines\uff09\u300d\u3084\u300c\u898b\u51fa\u3057\uff08Headings\uff09\u300d\u306e\u8868\u793a\u72b6\u614b\u3092\u5909\u6570\u306b\u8a18\u61b6\u3055\u305b\u3066\u304a\u304d\u3001\u6700\u5f8c\u306b\u5fc5\u305a\u5fa9\u5143\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong><code>Application.EnableCancelKey = xlErrorHandler<\/code><\/strong>: \u901a\u5e38\u3001\u30de\u30af\u30ed\u306e\u5b9f\u884c\u4e2d\u306b <code>Ctrl + Break<\/code> \u30ad\u30fc\u3084 <code>Esc<\/code> \u30ad\u30fc\u3092\u62bc\u3059\u3068\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u305d\u306e\u5834\u3067\u5f37\u5236\u7d42\u4e86\u3057\u307e\u3059\u3002\u3057\u304b\u3057\u3001\u3053\u306e\u8a2d\u5b9a\u306b\u3088\u308a\u3001\u5f37\u5236\u7d42\u4e86\u304c\u8a66\u307f\u3089\u308c\u305f\u5834\u5408\u3067\u3082\u5373\u5ea7\u306b\u306f\u505c\u6b62\u305b\u305a\u3001\u5fc5\u305a\u5f8c\u7247\u4ed8\u3051\u306e\u51e6\u7406\uff08<code>CleanUp:<\/code> \u30e9\u30d9\u30eb\u4ee5\u964d\u306e\u30b3\u30fc\u30c9\uff09\u3078\u30b8\u30e3\u30f3\u30d7\u3059\u308b\u8ad6\u7406\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306b\u3088\u308a\u3001\u753b\u9762\u304c\u771f\u3063\u9ed2\u306e\u307e\u307e\u64cd\u4f5c\u4e0d\u80fd\u306b\u306a\u308b\u30ea\u30b9\u30af\u3092\u6392\u9664\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h3 class=\"wp-block-heading\">3. \u300c\u4e71\u6570\u300d\u3092\u7528\u3044\u305f\u78ba\u7387\u7684\u306a\u30d0\u30b0\u6f14\u51fa<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u898f\u5247\u6b63\u3057\u304f\u52d5\u304f\u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u3001\u610f\u56f3\u7684\u306a\u30ce\u30a4\u30ba\u3092\u6df7\u305c\u308b\u305f\u3081\u306b\u300c\u4e71\u6570\uff08\u30e9\u30f3\u30c0\u30e0\u306a\u6570\u5024\uff09\u300d\u3092\u6d3b\u7528\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>Rnd()<\/code> \u95a2\u6570\u306f\u30010\u4ee5\u4e0a1\u672a\u6e80\u306e\u5c0f\u6570\u3092\u30e9\u30f3\u30c0\u30e0\u306b\u767a\u751f\u3055\u305b\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u30b3\u30fc\u30c9\u5185\u306e <code>If Rnd() &lt; 0.15 Then<\/code> \u3068\u3044\u3046\u8a18\u8ff0\u306f\u3001\u300c\u751f\u6210\u3055\u308c\u305f\u6570\u5024\u304c0.15\u3088\u308a\u5c0f\u3055\u3044\u5834\u5408\u300d\u3092\u610f\u5473\u3057\u307e\u3059\u3002\u3064\u307e\u308a\u3001<strong>15%\u306e\u78ba\u7387\u3067\u767a\u751f\u3059\u308b\u6761\u4ef6\u5206\u5c90<\/strong>\u3067\u3059\u3002<\/li>\n\n\n\n<li>\u3053\u306e15%\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3057\u305f\u77ac\u9593\u306b\u3060\u3051\u3001\u80cc\u666f\u3092\u8d64\u304f\u5857\u308a\u3064\u3076\u3057\u305f\u308a\u3001\u6587\u5b57\u30b5\u30a4\u30ba\u3092\u30e9\u30f3\u30c0\u30e0\uff0810\u301c39pt\uff09\u306b\u5909\u66f4\u3057\u305f\u308a\u3001\u4e0d\u898f\u5247\u306a\u30d3\u30fc\u30d7\u97f3\u3092\u9cf4\u3089\u3057\u305f\u308a\u3059\u308b\u3053\u3068\u3067\u3001\u6a5f\u68b0\u7684\u306a\u30d0\u30b0\uff08\u30b0\u30ea\u30c3\u30c1\uff09\u3092\u8868\u73fe\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">\u5c0e\u5165\u306b\u3088\u308b\u30e1\u30ea\u30c3\u30c8\u3068\u30c7\u30e1\u30ea\u30c3\u30c8<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">\u30e1\u30ea\u30c3\u30c8\uff08\u5b66\u7fd2\u52b9\u679c\uff09<\/h3>\n\n\n\n<ul class=\"wp-block-list\">\n<li>VBA\u304b\u3089Windows OS\u306e\u6a5f\u80fd\u3092\u547c\u3073\u51fa\u3059\uff08API\uff09\u57fa\u790e\u304c\u5b66\u3079\u308b\u3002<\/li>\n\n\n\n<li>\u30eb\u30fc\u30d7\u51e6\u7406\u306e\u4e2d\u3067\u753b\u9762\u306e\u66f4\u65b0\u3092\u8a31\u53ef\u3059\u308b <code>DoEvents<\/code> \u306e\u5f79\u5272\u3092\u8996\u899a\u7684\u306b\u7406\u89e3\u3067\u304d\u308b\u3002<\/li>\n\n\n\n<li>\u30a8\u30e9\u30fc\u6642\u3084\u5f37\u5236\u7d42\u4e86\u6642\u3092\u60f3\u5b9a\u3057\u305f\u3001\u5b9f\u52d9\u306b\u3082\u5fc5\u9808\u306e\u300c\u5805\u7262\u306a\u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u300d\u306e\u69cb\u9020\u3092\u5b9f\u8df5\u3067\u304d\u308b\u3002<\/li>\n<\/ul>\n\n\n\n<h3 class=\"wp-block-heading\">\u30c7\u30e1\u30ea\u30c3\u30c8\u3068\u6ce8\u610f\u70b9<\/h3>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u77ed\u3044\u9593\u9694\u3067\u753b\u9762\u306e\u63cf\u753b\u3092\u7e70\u308a\u8fd4\u3059\u305f\u3081\u3001PC\u306e\u30b9\u30da\u30c3\u30af\u306b\u3088\u3063\u3066\u306f\u52d5\u4f5c\u304c\u30ab\u30af\u3064\u304f\uff08\u30d5\u30ec\u30fc\u30e0\u30ec\u30fc\u30c8\u304c\u843d\u3061\u308b\uff09\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u30b9\u30d4\u30fc\u30ab\u30fc\u306e\u97f3\u91cf\u304c\u5927\u304d\u3044\u74b0\u5883\u3067\u5b9f\u884c\u3059\u308b\u3068\u3001\u9ad8\u5468\u6ce2\u306e\u30d3\u30fc\u30d7\u97f3\u304c\u5468\u56f2\u306e\u8ff7\u60d1\u306b\u306a\u308b\u30ea\u30b9\u30af\u304c\u3042\u308b\u305f\u3081\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/li>\n\n\n\n<li>\u5171\u6709\u30d5\u30a1\u30a4\u30eb\u3067\u904a\u3076\u5834\u5408\u306f\u95a2\u4fc2\u6027\u306e\u3042\u308b\u65b9\u3068\u3057\u3066\u304f\u3060\u3055\u3044(\u7b11)<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">\u307e\u3068\u3081<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">Excel VBA\u306f\u672c\u6765\u3001\u696d\u52d9\u52b9\u7387\u5316\u306e\u305f\u3081\u306e\u30c4\u30fc\u30eb\u3067\u3059\u304c\u3001OS\u306e\u6a5f\u80fd\u3084\u30e9\u30f3\u30c0\u30e0\u306a\u6570\u5024\u3092\u7d44\u307f\u5408\u308f\u305b\u308b\u3053\u3068\u3067\u3001\u8996\u899a\u7684\u30fb\u8074\u899a\u7684\u306a\u6f14\u51fa\u3092\u5b9f\u88c5\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002\u7279\u306b\u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u306e\u8a2d\u8a08\u601d\u60f3\u306f\u3001\u666e\u6bb5\u306e\u696d\u52d9\u30de\u30af\u30ed\u958b\u767a\u306b\u3082\u305d\u306e\u307e\u307e\u6d3b\u304b\u305b\u308b\u91cd\u8981\u306a\u6982\u5ff5\u3067\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4eca\u56de\u306f\u3001Excel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u77ac\u9593\u306b\u3001\u753b\u9762\u304c\u30d0\u30b0\u3063\u305f\u3088\u3046\u306b\u898b\u305b\u304b\u3051\u308b\u30d0\u30b0\u30a8\u30d5\u30a7\u30af\u30c8\u3092\u5b9f\u88c5\u3057\u305fVBA\u30b3\u30fc\u30c9\u3092\u89e3\u8aac\u3057\u307e\u3059\u3002\u60aa\u7528\u306f\u53b3\u7981\u3067\u3059(\u7b11) \u307e\u305a\u306f\u3001\u5b9f\u969b\u306b\u3069\u306e\u3088\u3046\u306a\u6f14\u51fa\u304c\u5b9f\u884c\u3055\u308c\u308b\u306e\u304b\u3001\u4ee5\u4e0b\u306e\u52d5\u753b\u3092\u3054\u89a7\u304f\u3060\u3055\u3044\u3002 \u4e00 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":468,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[28,29,27],"tags":[],"class_list":["post-463","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel","category-office","category-vba"],"_links":{"self":[{"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/posts\/463","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=463"}],"version-history":[{"count":4,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/posts\/463\/revisions"}],"predecessor-version":[{"id":469,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/posts\/463\/revisions\/469"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=\/wp\/v2\/media\/468"}],"wp:attachment":[{"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=463"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=463"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kusunoki-tech.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=463"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}