{"id":1860,"date":"2022-11-03T00:59:03","date_gmt":"2022-11-02T15:59:03","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1860"},"modified":"2025-10-24T21:36:34","modified_gmt":"2025-10-24T12:36:34","slug":"excel-query-table-after-refresh01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/excel-query-table-after-refresh01","title":{"rendered":"ExcelVBA\uff5e\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u66f4\u65b0\u306b\u4f7f\u3048\u308b\u304b\u306f\u4e0d\u660e\u3060\u3051\u3069\u3001QueryTable\u306eAfterRefresh\u30a4\u30d9\u30f3\u30c8\u3092\u4f7f\u3046\u306b\u306f\uff1f\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u300cQueryTable.Refreshing \u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001DoEvents\u3067\u30eb\u30fc\u30d7\u3059\u308b\u30c1\u30a7\u30c3\u30af\u65b9\u6cd5\u306e\u4ee3\u7528\u306b\u306a\u308b\u304b\u3082\uff1f\uff5e\u300c\u30a4\u30d9\u30f3\u30c8\u3092\u6301\u3064\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306a\u306e\u306b\u3001\u3067\u3082VBE\u306b\u30a4\u30d9\u30f3\u30c8\u8868\u793a\u3055\u308c\u306a\u3044\u5834\u5408\u3001\u305d\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u767a\u751f\u3055\u305b\u308b\u65b9\u6cd5\uff5e"},"content":{"rendered":"<p>ExcelVBA\uff5e\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u66f4\u65b0\u306b\u4f7f\u3048\u308b\u304b\u306f\u4e0d\u660e\u3060\u3051\u3069\u3001QueryTable\u306eAfterRefresh\u30a4\u30d9\u30f3\u30c8\u3092\u4f7f\u3046\u306b\u306f\uff1f\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u300cQueryTable.Refreshing \u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001DoEvents\u3067\u30eb\u30fc\u30d7\u3059\u308b\u30c1\u30a7\u30c3\u30af\u65b9\u6cd5\u306e\u4ee3\u7528\u306b\u306a\u308b\u304b\u3082\uff1f\uff5e\u300c\u30a4\u30d9\u30f3\u30c8\u3092\u6301\u3064\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306a\u306e\u306b\u3001\u3067\u3082VBE\u306b\u30a4\u30d9\u30f3\u30c8\u8868\u793a\u3055\u308c\u306a\u3044\u5834\u5408\u3001\u305d\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u767a\u751f\u3055\u305b\u308b\u65b9\u6cd5\uff5e<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\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\u3093\u306a\u3055\u3044\u3002<\/span><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u25cf\u30b3\u30fc\u30c9\u3092\uff08\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u306a\u304f\u3066\uff09\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u3044\u305f\u5834\u5408\u306e\u4e8b\u4f8b\u306e\u56f3<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2022-11-03---09-57-46.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2022-11-03---09-57-46.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><span style=\"color: #ff0000;\"><b>\u203b\u88dc\u8db3<br \/>\n\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u66f4\u65b0\u306b\u4f7f\u3048\u308b\u304b\u306f\u4e0d\u660e\u3060\u3051\u3069\u3001\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u7d50\u679c\u306e\u8868\u306f\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u300d\u306e\u5f62\u5f0f\u3067\u3001\u305d\u306e\u4e2d\u306bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u57cb\u3081\u8fbc\u307e\u308c\u3066\u3044\u307e\u3059\u3002MicrosoftQuery\u3082\u540c\u69d8\u3067\u3059\u3002<br \/>\n\u305d\u3053\u307e\u3067\u691c\u8a3c\u3057\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u305d\u308c\u3089\u306e\u30a4\u30d9\u30f3\u30c8\u3082\u88dc\u8db3\u3067\u304d\u308b\u304b\u3082\uff1f<br \/>\n\u30c0\u30e1\u5143\u3067\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u4f7f\u3048\u308b\u3068\u3059\u3054\u304f\u3044\u3044\u3067\u3059\u3088\u306d\u3002\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3082\u66f4\u65b0\u304c\u5b8c\u4e86\u3059\u308b\u307e\u3067\u5f85\u3066\u308b\uff1f\u304b\u3082\uff1f<br \/>\n\u7279\u306b\u57fa\u672c\u7684\u306aVBA\u3067\u306e\u66f4\u65b0\u6280\u304c\u3046\u307e\u304f\u3044\u304b\u306a\u3044\u3068\u304d\u3068\u304b\uff1f\uff1f<br \/>\n\u308f\u304b\u3093\u306a\u3044\u3067\u3059\u3051\u3069\u30fb\u30fb\u30fb\u3002<br \/>\n<\/b><\/span><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\u4ee5\u4e0b\u672c\u6587\u3067\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3001AfterRefresh\u3068BeforeRefresh\u3068\u3044\u3046\uff12\u3064\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u6301\u3063\u3066\u3044\u307e\u3059\u3002<br \/>\n\u3067\u3082\u3001VBA\u753b\u9762\u306b\u306f\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30b7\u30fc\u30c8\u306b\u751f\u6210\u3057\u305f\u3068\u3057\u3066\u3082\u3001\u305d\u306e\u30a4\u30d9\u30f3\u30c8\u304c\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u3055\u308c\u307e\u305b\u3093\u3002<br \/>\n\uff08VBE\u306e\u5404\u90e8\u540d\u79f0\u306f\u4ee5\u4e0b\u306eURL\u3092\u3054\u53c2\u8003\u306b\u3002<a href=\"http:\/\/infoseek_rip.g.ribbon.to\/t_shun.at.infoseek.co.jp\/My_Page\/Excel-VBA\/vba_page03.htm\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/infoseek_rip.g.ribbon.to\/t_shun.at.infoseek.co.jp\/My_Page\/Excel-VBA\/vba_page03.htm<\/a>\uff09<\/p>\n<p>\u306a\u306e\u3067\u3001\u3053\u3053\u3067\u306f\u3001<br \/>\n\u300e\u300c\u30a4\u30d9\u30f3\u30c8\u3092\u6301\u3064\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306a\u306e\u306b\u3001\u3067\u3082VBE\u306b\u30a4\u30d9\u30f3\u30c8\u8868\u793a\u3055\u308c\u306a\u3044\u5834\u5408\u3001\u305d\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30a4\u30d9\u30f3\u30c8\u3092\u767a\u751f\u3055\u305b\u308b\u65b9\u6cd5 \u300f<br \/>\n\u306e\u30d2\u30f3\u30c8\u3092\u3054\u7d39\u4ecb\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u5927\u5225\u3057\u3066\u3001<br \/>\n(01)\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u65b9\u6cd5 \u3068\u3001<br \/>\n(02)\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u304f\u65b9\u6cd5\u306e<br \/>\n\uff12\u3064\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u306f\u3001\u66f8\u3044\u3066\u3082\u66f8\u3044\u305f\u305d\u3070\u304b\u3089\u30a8\u30e9\u30fc\u8868\u793a\u306b\u306a\u308b\u306e\u3067\u4f5c\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u8fd1\u3044\u6027\u683c\u3092\u6301\u3064\u306e\u3067\u30a8\u30e9\u30fc\u306b\u306f\u306a\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u3068\u3057\u3066\u3001\uff08WithEvents \u3092\u5fc5\u305a\u4f7f\u7528\u3057\u3066\uff09\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u3092\u5ba3\u8a00\u3059\u308b\u3068\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u8a8d\u8b58\u3057\u3066\u3082\u3089\u3048\u308b\u3088\u3046\u306b\u3067\u3001\u305d\u3046\u306a\u308b\u3068\u3001\u81ea\u52d5\u7684\u306b\u305d\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30a4\u30d9\u30f3\u30c8\u304c\u4f7f\u3048\u308b\u3088\u3046\u306b\u306a\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u300e\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u3068\u3057\u3066\u3001\uff08WithEvents \u3092\u5fc5\u305a\u4f7f\u7528\u3057\u3066\uff09\u3001\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u3092\u5ba3\u8a00\u3059\u308b\u300f\u3068\u304a\u3044\u3046\u3068\u3053\u308d\u304c\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u5834\u5408\u3068\u3001\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u5834\u5408\u3068\u3067\u7570\u306a\u3063\u3066\u304d\u307e\u3059\u3002<br \/>\n\u5f8c\u8ff0\u306e\u300cSub Initialize_It()\u300d\u3092\u3069\u3053\u3067\u5b9f\u884c\u3059\u308b\u304b\u306a\u3069\u3082\u5909\u308f\u3063\u3066\u304d\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001QueryTable.AfterRefresh \u30a4\u30d9\u30f3\u30c8\u306f\u3001<br \/>\n\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u300cQueryTable.Refreshing \u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001DoEvents\u3067\u30eb\u30fc\u30d7\u3059\u308b\u30c1\u30a7\u30c3\u30af\u65b9\u6cd5\u306e\u4ee3\u7528\u306b\u306a\u308b\u304b\u3082\uff1f<\/p>\n<p>\u307e\u305f\u3001BeforeRefresh\u30a4\u30d9\u30f3\u30c8\u3082\u3042\u308b\u306e\u3067\u3001\u4f55\u304b\u306b\u4f7f\u3048\u308b\u304b\u3082\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u25cf\u300cQueryTable.AfterRefresh \u30a4\u30d9\u30f3\u30c8\u300d\u306e\u4f7f\u3044\u65b9<\/p>\n<p><a href=\"https:\/\/www.excel.studio-kazu.jp\/kw\/20021112092707.html\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/www.excel.studio-kazu.jp\/kw\/20021112092707.html<\/a><br \/>\n\u306b\u3042\u308b\u3088\u3046\u306b\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f7f\u3046\u65b9\u6cd5\u304c\u3072\u3068\u3064\u3002<\/p>\n<p>\u3042\u3068\u306f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u4f7f\u308f\u306a\u304f\u3066\u3082\u3001\u4e0a\u8a18\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3068\u307b\u307c\u540c\u3058\u5185\u5bb9\u3067\u3001<br \/>\n\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u3084\u3063\u3066\u3082\u540c\u3058\u3053\u3068\u304c\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\u4f8b\u3048\u3070\u3001Sheet1\u30b7\u30fc\u30c8\u306bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u300c\uff11\u3064\u300d\u3060\u3051\u751f\u6210\u3055\u308c\u3066\u3044\u308b\u5834\u5408\u3001<br \/>\nSheet1\u30e2\u30b8\u30e5\u30fc\u30eb\u3001\u3042\u308b\u3044\u306f\u3001\u4ed6\u306e\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3001\u3042\u308b\u3044\u306f\u3001\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u3001<br \/>\n\uff08\u3064\u307e\u308a\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3068\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u4ee5\u5916\u306b\uff09<br \/>\n\u4ee5\u964d\u306e\u3088\u3046\u306b\u5c11\u3057\u5185\u5bb9\u3092\u5909\u3048\u3066\u66f8\u304f\u3068\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eAfterRefresh\u30a4\u30d9\u30f3\u30c8\u3092\u767a\u751f\u3055\u305b\u3001\u52d5\u304b\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\uff08\u203b\u6ce8\uff1a\u5f53\u7136\u3067\u3059\u304c\u3001\u672c\u8a18\u4e8b\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u65e2\u306b\u300cSheet1\u30b7\u30fc\u30c8\u306bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u300c\uff11\u3064\u300d\u3060\u3051\u751f\u6210\u300d\u3055\u308c\u3066\u3044\u306a\u3044\u3068\u52d5\u304d\u307e\u305b\u3093\u3002\u751f\u6210\u3055\u308c\u3066\u3044\u306a\u3044\u5834\u5408\u306e\u5206\u5c90\u3082\u4f5c\u3063\u3066\u306a\u3044\u306e\u3067\u3002\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u5834\u5408\u3082\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u5834\u5408\u3082\u3067\u3059\u3002\uff09<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n Public WithEvents qt2 As QueryTable   '\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u300cWithEvents\u300d\u3092\u66f8\u304f\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n                                       '\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u30a8\u30e9\u30fc\u306b\u306a\u3089\u306a\u3044\u3002\r\n                                       '\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u306f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u8fd1\u3044\u6027\u8cea\u3092\u6301\u3064\u306e\u3067\u3002\r\n                                       '\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3060\u3051\u3001\u3061\u3087\u3063\u3068\u6027\u8cea\u304c\u7570\u306a\u308b\u306e\u3067\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\r\n \r\n\r\n' Dim X As New Class1                   '\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u4e0d\u8981\u3002\r\n'                                       '\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u4f7f\u3046\u30b3\u30fc\u30c9\u3067\u3059\u3002\r\n\r\n\r\n\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n'Sheet1\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u66f4\u65b0\u3059\u308b\u524d\u306b\u3001\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u3066\u3001\r\n'\u305d\u306eSheet1\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u306b\u4ee3\u5165\u3057\u3066\u3001\r\n'\u300c\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u3044\u3066\u3044\u308b\u9593\u4e2d\u306f\u5e38\u6642\u5b58\u5728\u3057\u3066\u3044\u308b\u300d\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u5316\u3057\u307e\u3059\u3002\r\n\r\nSub Initialize_It()\r\n'     Set X.qt = ThisWorkbook.Sheets(\"Sheet1\").QueryTables(1)  '\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u3053\u3061\u3089\u306e\u30b3\u30fc\u30c9\u304c\u5fc5\u8981\u3002\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u4e0d\u8981\u3002\r\n     Set qt2 = ThisWorkbook.Sheets(\"Sheet1\").QueryTables(1)   '\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u3053\u3061\u3089\u306e\u30b3\u30fc\u30c9\u304c\u5fc5\u8981\u3002 \u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u4e0d\u8981\u3002\r\n End Sub\r\n\r\n\r\n\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n'Sheet1\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u66f4\u65b0\u3055\u308c\u308b\u3068\u3001\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u5ba3\u4e0b\u306e\u300cWithEvents\u300d\u306b\u3088\u308a\u3001\r\n'\u3053\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff08\uff1d\u30a4\u30d9\u30f3\u30c8\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\uff09\u3092\u901a\u308b\u3002\r\n'  \uff1d\u300cAfterRefresh\u300d\u30a4\u30d9\u30f3\u30c8\u304c\u767a\u751f\u3057\u3066\u3001\u305d\u306e\u30a4\u30d9\u30f3\u30c8\u306e\u30b3\u30fc\u30c9\u304c\u5b9f\u884c\u3055\u308c\u308b\u3002\r\n'\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u300cQueryTable.Refreshing \u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001DoEvents\u3067\u30eb\u30fc\u30d7\u3059\u308b\u30c1\u30a7\u30c3\u30af\u65b9\u6cd5\u306e\u4ee3\u7528\u306b\u306a\u308b\u304b\u3082\uff1f\r\n \r\n Private Sub qt2_AfterRefresh(ByVal Success As Boolean)\r\n     If Success Then\r\n         MsgBox \"\u30af\u30a8\u30ea\u304c\u6b63\u5e38\u306b\u7d42\u4e86\u3057\u307e\u3057\u305f\uff61\"\r\n     Else\r\n         MsgBox \"\u30af\u30a8\u30ea\u304c\u5931\u6557\u3057\u305f\u304b\uff64\u307e\u305f\u306f\u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u307e\u3057\u305f\uff61\r\n     End If\r\n End Sub\r\n\r\n\r\n\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u25cf\u5b9f\u884c\u65b9\u6cd5<\/p>\n<p>\u307e\u305aQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092Sheet1\u306b\u4f5c\u6210\u3057\u307e\u3059\u3002<br \/>\n\u305d\u306e\u5f8c\u3001\u300cSub Initialize_It()\u300d\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002<br \/>\n\uff08\u3053\u308c\u3092\u5b9f\u884c\u3057\u306a\u3044\u3068\u30a4\u30d9\u30f3\u30c8\u304c\u4f7f\u3048\u307e\u305b\u3093\uff09<\/p>\n<p>\u3059\u308b\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u3044\u3066\u3044\u308b\u9593\u306f\u30e1\u30e2\u30ea\u5185\u306b\u5b58\u5728\u3059\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u300cSheet1\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u304c\u8a2d\u5b9a\u3055\u308c\u308b\u306e\u3067\u3001\u3042\u3068\u306f\u3001<br \/>\n\u300cSheet1\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u66f4\u65b0\u300d\u30e1\u30cb\u30e5\u30fc\u3092\u62bc\u3057\u307e\u3059\u3002<\/p>\n<p>\u3059\u308b\u3068\u3001\u6b63\u5e38\u306b\u66f4\u65b0\u304c\u5b8c\u4e86\u3059\u308c\u3070\u3001\u300c\"\u30af\u30a8\u30ea\u304c\u6b63\u5e38\u306b\u7d42\u4e86\u3057\u307e\u3057\u305f\uff61\"\u300d\u3068\u30e1\u30c3\u30bb\u30fc\u30b8\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u300cSub Initialize_It()\u300d\u306f\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u305f\u5834\u5408\u306f\u3001<br \/>\n\u3082\u3057QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\uff08\u3044\u3063\u305f\u3093\u4f5c\u6210\u3057\u305f\u3089\u5f53\u5206\u306e\u3042\u3044\u3060\u524a\u9664\u305b\u305a\u306b\uff09\u3044\u3064\u3082\u3088\u304f\u4f7f\u3046\u3082\u306e\u3067\u3042\u308b\u306a\u3089\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306eAuto_Open\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3084\u3001\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u306eWorkbook_Open()\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306a\u3069\u306b\u66f8\u304f\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u3068\u304d\u306b\u81ea\u52d5\u5b9f\u884c\u3055\u308c\u308b\u306e\u3067\u30e9\u30af\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u3067\u3001\u4ee5\u4e0a\u306e\u3001\u30b3\u30fc\u30c9\u3092\uff08\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3067\u306f\u306a\u304f\u3066\uff09\u30d6\u30c3\u30af\u30e2\u30b8\u30e5\u30fc\u30eb\u3084\u30b7\u30fc\u30c8\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u3044\u305f\u5834\u5408\u306e\u4e8b\u4f8b\u306e\u56f3\u306f\u3053\u3061\u3089\u3067\u3059\u3002<br \/>\n\u30a4\u30d9\u30f3\u30c8\u304cVBE\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u3053\u3068\u306b\u6ce8\u76ee\u3057\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u5358\u306bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u3063\u305f\u3060\u3051\u3060\u3068\u3053\u3046\u306f\u306a\u3089\u306a\u3044\u306e\u3067\u3059\u304c\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306a\u3069\u3067WithEvents\u306a\u3069\u3092\u99c6\u4f7f\u3059\u308b\u3068\u3001\u3053\u308c\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n\u2193<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2022-11-03---09-57-46.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2022-11-03---09-57-46.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><\/p>\n<p>\u305d\u306e\u4ed6\u306e\u53c2\u8003<br \/>\n<a href=\"https:\/\/okwave.jp\/qa\/q8781490.html\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/okwave.jp\/qa\/q8781490.html<\/a><br \/>\n<a href=\"http:\/\/rucio.a.la9.jp\/main\/shokyu\/jugyou29.htm\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/rucio.a.la9.jp\/main\/shokyu\/jugyou29.htm<\/a><\/p>\n<p>\u4ee5\u4e0b\u3001<a href=\"https:\/\/www.excel.studio-kazu.jp\/kw\/20021112092707.html\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/www.excel.studio-kazu.jp\/kw\/20021112092707.html<\/a> \u304c\u6d88\u3048\u308b\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001<br \/>\n\u5f15\u7528\u3057\u3066\u899a\u3048\u66f8\u304d\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n'\u30d8\u30eb\u30d7\u306e\u4f7f\u7528\u4f8b\u306e\u8aa4\u8a18\u3000\u899a\u66f8\r\nPrivate Sub QueryTable_AfterRefresh(Success As Boolean)\r\n    If Success\r\n        ' \u30af\u30a8\u30ea\u304c\u6b63\u5e38\u306b\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002\r\n    Else\r\n        ' \u30af\u30a8\u30ea\u304c\u5931\u6557\u3057\u305f\u304b\u3001\u307e\u305f\u306f\u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u307e\u3057\u305f\u3002\r\n    End If\r\nEnd Sub\r\n\u3000\r\n'\u5f15\u6570\u306f\u300cByVal Success As Boolean\u300d\u304c\u6b63\u89e3\u306e\u3088\u3046\u3067\u3042\u308b\u3002\r\n'\u300cIf Success\u300d\u306e\u3042\u3068\u306e\u3000\u300cThen\u300d \u304c\u629c\u3051\u3066\u3044\u308b\u3002\r\n\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\u3000\r\n\u3000\r\n\u4ee5\u4e0b\u5358\u7d14\u306a\u4f8b\u3002\r\nClass\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u633f\u5165\u3057\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u5165\u529b\r\n\u3000\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n Public WithEvents qt As QueryTable\r\n Private Sub qt_AfterRefresh(ByVal Success As Boolean)\r\n     If Success Then\r\n         MsgBox \"\u30af\u30a8\u30ea\u304c\u6b63\u5e38\u306b\u7d42\u4e86\u3057\u307e\u3057\u305f\uff61\"\r\n     Else\r\n         MsgBox \"\u30af\u30a8\u30ea\u304c\u5931\u6557\u3057\u305f\u304b\uff64\u307e\u305f\u306f\u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u307e\u3057\u305f\uff61\"\r\n     End If\r\n End Sub\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\u3000\r\n\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3078\u4e0b\u8a18\u30b3\u30fc\u30c9\u5165\u529b\u3002\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n Dim X As New Class1\r\n Sub Initialize_It()\r\n     Set X.qt = ThisWorkbook.Sheets(1).QueryTables(1)\r\n End Sub\r\n'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\u3000\r\nInitialize_It\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u5b9f\u884c\u5f8c\u3001\u30af\u30a8\u30ea\u306e\u66f4\u65b0\u3092\u884c\u3046\u3068\u3001\r\nAfterRefresh\u30a4\u30d9\u30f3\u30c8\u30de\u30af\u30ed\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002\r\n\u3000\r\n\u306a\u304a\u3001\u79c1\u81ea\u8eab\u3082Class\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6271\u3044\u304c\u4e0d\u6163\u308c\u306a\u305f\u3081\u3001\u3053\u306e\u66f8\u304d\u65b9\u306b\u306f\r\n\u81ea\u4fe1\u304c\u3042\u308a\u307e\u305b\u3093\u3002\u300c\u3053\u308c\u304c\u6b63\u89e3\u300d\u3068\u3044\u3046\u70b9\u304c\u3042\u308c\u3070\u3001\u3054\u6307\u6458\u9858\u3044\u307e\u3059\u3002\r\n'\r\n'\r\n<\/pre>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u25cf\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u5834\u5408<br \/>\n\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u5185\u5305\u3057\u3066\u3044\u308b\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u5834\u5408\u306e\u307f\uff09<\/p>\n<p>\u307e\u305a\u306f\u4ee5\u4e0b\u306e\u5185\u5bb9\u306e\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u300cclsQueryTableEvents\u300d\u3068\u3044\u3046\u540d\u524d\u3067\u4f5c\u6210\u3057\u307e\u3059\u3002<br \/>\n\u30b3\u30fc\u30c9\u4e38\u3054\u3068\u30b3\u30d4\u30da\u3067OK\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\nOption Explicit\r\n\r\n' Class Module: clsQueryTableEvents\r\nPublic WithEvents qt As QueryTable\r\nPublic s_flg01 As String\r\n\r\nPrivate Sub Class_Initialize()\r\n    s_flg01 = \"\"\r\nEnd Sub\r\n\r\nPrivate Sub qt_AfterRefresh(ByVal Success As Boolean)\r\n    s_flg01 = \"\u66f4\u65b0\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002\u6210\u529f: \" & Success\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p>\u3067\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u304b\u3089\u306e\u547c\u3073\u51fa\u3057\u4f8b\u3002<br \/>\n\u3053\u308c\u3082\u4e38\u3054\u3068\u30b3\u30d4\u30da\u3067OK\u3067\u3059\u3002<\/p>\n<p>QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092Refresh\u3059\u308b\u3068\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eAfterRefresh\u30a4\u30d9\u30f3\u30c8\u304c\u547c\u3073\u51fa\u3055\u308c\u3066\u304b\u3089\u3001\u3064\u307e\u308a\u3001\u300c\u66f4\u65b0\u3092\u5f85\u3063\u3066\u304b\u3089\u300d\u3001\u30bb\u30eb\u306b\u60c5\u5831\u304c\u66f8\u304d\u8fbc\u307e\u308c\u307e\u3059\u3002<br \/>\nF8\u30ad\u30fc\u5b9f\u884c\u3092\u3059\u308b\u3068\u308f\u304b\u308a\u3084\u3059\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u300cSetupQueryTableEvent02()\u300d\u306e\u307b\u3046\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n<p>\u72b6\u6cc1\u306b\u5408\u308f\u305b\u3089\u308c\u308b\u306a\u3089\u3001\u300cSetupQueryTableEvent01()\u300d\u3067\u3082\u3044\u3044\u3067\u3059\u3051\u3069\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\nDim qtEvents As clsQueryTableEvents\r\n\r\n\r\nSub SetupQueryTableEvent02()\r\n    \r\n    Dim o_ItemLstObj01 As ListObject\r\n            \r\n    For Each o_ItemLstObj01 In ActiveSheet.ListObjects\r\n    \r\n        Range(\"A9\") = \"\"\r\n        \r\n        Set qtEvents = New clsQueryTableEvents\r\n        Set qtEvents.qt = o_ItemLstObj01.QueryTable\r\n        qtEvents.qt.BackgroundQuery = False 'False\u3092\u6307\u5b9a \u3059\u308b\u3068\u30d0\u30c3\u30af\u30b0\u30e9\u30a6\u30f3\u30c9\u30af\u30a8\u30ea\u3092\u5b9f\u884c\u3055\u305b\u306a\u3044\u3002\uff1d\u5f85\u3064\u3002\uff08True \u3092\u6307\u5b9a \u3059\u308b\u3068\u3001\u30af\u30a8\u30ea \u30c6\u30fc\u30d6\u30eb\u306e\u30af\u30a8\u30ea\u304c\u975e\u540c\u671f\u7684\u306b (\u30d0\u30c3\u30af\u30b0\u30e9\u30a6\u30f3\u30c9\u3067) \u5b9f\u884c\u3055\u308c\u307e\u3059\u3002 \u8aad\u307f\u53d6\u308a\/\u66f8\u304d\u8fbc\u307f\u304c\u53ef\u80fd\u306a Boolean \u3067\u3059\u3002https:\/\/learn.microsoft.com\/ja-jp\/office\/vba\/api\/excel.querytable.backgroundquery\uff09\r\n        qtEvents.qt.Refresh\r\n        \r\n        If qtEvents.s_flg01 <> \"\" Then\r\n            Range(\"A9\") = qtEvents.s_flg01\r\n        Else\r\n        \r\n        End If\r\n        \r\n    Next\r\n    \r\nEnd Sub\r\n\r\n\r\n\r\nSub SetupQueryTableEvent01()\r\n   \r\n    Range(\"A9\") = \"\"\r\n    \r\n    Set qtEvents = New clsQueryTableEvents\r\n    Set qtEvents.qt = ActiveSheet.ListObjects(1).QueryTable\r\n    qtEvents.qt.Refresh\r\n    \r\n    If qtEvents.s_flg01 <> \"\" Then\r\n        Range(\"A9\") = qtEvents.s_flg01\r\n    Else\r\n    \r\n    End If\r\n    \r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"ExcelVBA\uff5e\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u66f4\u65b0\u306b\u4f7f\u3048\u308b\u304b\u306f\u4e0d\u660e\u3060\u3051\u3069\u3001QueryTable\u306eAfterRefresh\u30a4\u30d9\u30f3\u30c8\u3092\u4f7f\u3046\u306b\u306f\uff1f\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u300cQueryTable.Refreshing \u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001DoEvents\u3067 ...","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\/1860"}],"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=1860"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1860\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1860"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1860"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}