{"id":1738,"date":"2020-11-28T08:32:02","date_gmt":"2020-11-27T23:32:02","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1738"},"modified":"2024-02-12T11:33:18","modified_gmt":"2024-02-12T02:33:18","slug":"miri-sec01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/miri-sec01","title":{"rendered":"\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u30df\u30ea\u79d2\u3092\u5f85\u3064\u65b9\u6cd5\u306a\u3069\u3001\u300c\u5f85\u3064\u300d\u3001\u65b9\u6cd5"},"content":{"rendered":"<p>\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u30df\u30ea\u79d2\u3092\u5f85\u3064\u65b9\u6cd5\u306a\u3069\u3001\u300c\u5f85\u3064\u300d\u3001\u65b9\u6cd5<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u53c2\u8003URL\uff1a\u305d\u306e\u4ed6\u306e\u300c\u5f85\u3064\u300d<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/wait02\" target=\"_blank\" rel=\"noopener\">\u96fb\u5e33\u6cd5\u7d22\u5f15\u7c3f\u306a\u3069\u3067\u4f7f\u3048\u308b\uff1f\uff3fVBA\uff0864bit\u306e\u307f\uff09\u30fb\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304f\u307e\u3067\u5f85\u3063\u3066AppActivate\u3057\u305f\u306e\u3061\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u3092API\u3067\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u30b3\u30fc\u30c9\u3002\u7d50\u5c40Sleep\u95a2\u6570\u3067\u5f85\u3064\u3053\u3068\u304c\u5fc5\u8981\u3060\u3063\u305f\u3051\u3069\u3001\uff12\u79d2\u3082\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u3088\u304f\u306a\u3063\u305f\u306e\u3067\uff080.5\u79d2\u3067OK\u306b\u306a\u3063\u305f\u306e\u3067\uff09\u3001\u66ab\u5b9a\u7684\u306b\u3053\u308c\u3092\u4f7f\u3046\u3002\uff08\u672c\u5f53\u306f\u3082\u3063\u3068\u3061\u3083\u3093\u3068\u3057\u305f\u30b3\u30fc\u30c9\u304c\u3042\u308b\u306f\u305a\u3002\u3067\u3082\u306a\u304b\u306a\u304b\u691c\u7d22\u306b\u30d2\u30c3\u30c8\u3057\u306a\u3044\u306e\u3067\u3072\u3068\u307e\u305a\u3053\u308c\u3067\u3002\uff09<\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30df\u30ea\u79d2\u5f85\u3064\uff1aApplication.Wait\u306e\u5834\u5408<\/p>\n<p>0.5\u79d2<br \/>\nApplication.Wait [Now() + \"0:00:00.5\"] <\/p>\n<p>1\u79d2<br \/>\nApplication.Wait [Now() + \"0:00:01\"] <\/p>\n<p><a href=\"https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q13232462458\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q13232462458<\/a><\/p>\n<p>\u203b\u79d2\u6570\u3092\u5909\u6570\u5316\u3057\u305f\u3089\u3046\u307e\u304f\u52d5\u304b\u306a\u304b\u3063\u305f\u306e\u3067Sleep\u95a2\u6570\u306e\u307b\u3046\u304c\u3044\u3044\u307f\u305f\u3044\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 \u30df\u30ea\u79d2\u5f85\u3064\uff1aSleep\u95a2\u6570\u306e\u5834\u5408<br \/>\n\u547c\u3073\u51fa\u3057\u5074\u30b9\u30ec\u30c3\u30c9\u3092\u4e00\u5b9a\u6642\u9593\u3060\u3051\u4e2d\u65ad\u3057\u307e\u3059\u3002 <\/p>\n<p>'API\uff1aSleep\u95a2\u6570<br \/>\n'Excel2000\u3067\u3082\u52d5\u304f\u3002Win32API\u306a\u306e\u3067\u300164bit\u7248\u306eExcel\u3067\u306f\u52d5\u304b\u306a\u3044\u3002<br \/>\nDeclare Sub Sleep Lib \"kernel32\" (ByVal ms As Long)<\/p>\n<p>sleep(\u30df\u30ea\u79d2\u6570)<\/p>\n<p>\u4e2d\u65ad\u3059\u308b\u6642\u9593\u3092\u30df\u30ea\u79d2\u5358\u4f4d\u3067\u6307\u5b9a\u3057\u307e\u3059\u3002INFINITE \u3092\u6307\u5b9a\u3059\u308b\u3068\u4e2d\u65ad\u6642\u9593\u304c\u7121\u9650\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n\u74b0\u5883\u60c5\u5831<\/p>\n<p>\u30a4\u30f3\u30af\u30eb\u30fc\u30c9 \u30d5\u30a1\u30a4\u30eb: api_system.sbp \u5185\u3067\u5b9a\u7fa9\u6e08\u307f<br \/>\nDLL\u30d5\u30a1\u30a4\u30eb: kernel32.dll<\/p>\n<p>\u203bDoEvents\u3082\u4e00\u7dd2\u306b\u4f7f\u3046\u3068\u3044\u3044\u304b\u3082\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u6570\u79d2\u5f85\u3064\uff1aNow\u95a2\u6570\u3068DoEvents\u306e\u4f75\u7528\u306e\u5834\u5408<br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\uff15\u79d2\u5f85\u3064\u4f8b \u2193<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n        d_OldTime = Now\r\n            Debug.Print d_OldTime\r\n        Do Until d_OldTime + TimeValue(\"0:00:05\") < Now\r\n            DoEvents\r\n        Loop\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605\u56f3\u5f62\u306e\u63cf\u753b\u3067\u5f85\u3064\uff08Wait\u3002DoEvents\u4e0d\u8981\u3002\uff09<br \/>\n\u203bAccess\u3067\u8a00\u3046\u3001Repaint\u307f\u305f\u3044\u306a\u4f7f\u3044\u65b9\u3002<\/p>\n<p><a href=\"https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q13276823433\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q13276823433<\/a><\/p>\n<p>\u4ee5\u4e0b\u3001\u4e0a\u8a18\u306eURL\u304b\u3089\u306e\u5f15\u7528\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub test()\r\n    ActiveSheet.Shapes.AddShape(msoShapeHexagon, 100, 100, 50, 40).Name = \"\u516d\u89d2\u5f62\"\r\n\r\n    Application.Wait [Now()]  '\u3053\u306e\u884c\u3092\u66f8\u304f\u3053\u3068\u3067\u3001DoEvents\u304c\u4e0d\u8981\u306b\u306a\u308b\u3002\r\n    Application.Wait Now() + TimeValue(\"00:00:03\")\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Width = 22\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Height = 20\r\n\r\n    Application.Wait [Now()]  '\u3053\u306e\u884c\u3092\u66f8\u304f\u3053\u3068\u3067\u3001DoEvents\u304c\u4e0d\u8981\u306b\u306a\u308b\u3002\r\n    Application.Wait Now() + TimeValue(\"00:00:03\")\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Delete\r\nEnd Sub\r\n\r\n'\u4ee5\u4e0b\u3001DoEvents\u3092\u4f7f\u3063\u305f\u30b3\u30fc\u30c9\r\nSub test()\r\n    ActiveSheet.Shapes.AddShape(msoShapeHexagon, 100, 100, 50, 40).Name = \"\u516d\u89d2\u5f62\"\r\n    DoEvents: DoEvents\r\n    Application.Wait Now() + TimeValue(\"00:00:03\")\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Width = 22\r\n    DoEvents: DoEvents\r\n    Application.Wait Now() + TimeValue(\"00:00:03\")\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Height = 20\r\n    DoEvents: DoEvents\r\n    Application.Wait Now() + TimeValue(\"00:00:03\")\r\n    ActiveSheet.Shapes(\"\u516d\u89d2\u5f62\").Delete\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u30df\u30ea\u79d2\u3092\u5f85\u3064\u65b9\u6cd5\u306a\u3069\u3001\u300c\u5f85\u3064\u300d\u3001\u65b9\u6cd5 \u3000\u3000 \u53c2\u8003URL\uff1a\u305d\u306e\u4ed6\u306e\u300c\u5f85\u3064\u300d \u96fb\u5e33\u6cd5\u7d22\u5f15\u7c3f\u306a\u3069\u3067\u4f7f\u3048\u308b\uff1f\uff3fVBA\uff0864bit\u306e\u307f\uff09\u30fb\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304f\u307e\u3067\u5f85\u3063 ...","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\/1738"}],"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=1738"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1738\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1738"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1738"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}