{"id":4230,"date":"2023-12-25T22:30:23","date_gmt":"2023-12-25T13:30:23","guid":{"rendered":"https:\/\/www.bold.ne.jp\/engineer-club\/?p=4230"},"modified":"2025-12-19T11:26:32","modified_gmt":"2025-12-19T02:26:32","slug":"vba-do-while","status":"publish","type":"post","link":"https:\/\/www.bold.ne.jp\/engineer-club\/vba-do-while","title":{"rendered":"VBA\u306edowhile\u3068\u306f\uff1fdowhile\u306e\u4f7f\u3044\u65b9"},"content":{"rendered":"<p>VBA\u3067\u51e6\u7406\u3092\u5b9f\u884c\u3057\u7d9a\u3051\u308b\u65b9\u6cd5\u306f\u3001<span>for<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3001<span>do while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3001<span>do Until<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306a\u3069\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u3053\u3053\u3067\u306f\u3001<span>\u201ddo while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<span>\u201d<\/span>\u306b\u3064\u3044\u3066\u3001<span>for<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u306e\u4f7f\u3044\u5206\u3051\u3082\u542b\u3081\u3066\u8aac\u660e\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<div id=\"toc_container\" class=\"no_bullets\"><p class=\"toc_title\">\u76ee\u6b21<\/p><ul class=\"toc_list\"><li><a href=\"#VBAdo_while\">\uff11\uff0eVBA\u306edo while\u306b\u3064\u3044\u3066<\/a><ul><li><a href=\"#-VBAdo_while\">\uff11-\uff11\uff0eVBA\u306b\u304a\u3051\u308bdo while<\/a><\/li><li><a href=\"#i\">\uff11-\uff12\uff0e\u4f7f\u7528\u4e0a\u306e\u6ce8\u610f<\/a><\/li><\/ul><\/li><li><a href=\"#do_while\">\uff12\uff0edo while\u306e\u4f7f\u3044\u65b9<\/a><ul><li><a href=\"#-do_while_loopdo_loop_while\">\uff12-\uff11\uff0edo while loop\u3068do loop while\u306b\u3064\u3044\u3066<\/a><\/li><li><a href=\"#-for\">\uff12-\uff12\uff0efor\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u306e\u4f7f\u3044\u5206\u3051<\/a><\/li><\/ul><\/li><li><a href=\"#i-2\">\uff13\uff0e\u5fdc\u7528\u7de8<\/a><ul><li><a href=\"#i-3\">\uff13-\uff11\uff0e\u30eb\u30fc\u30d7\u3092\u9014\u4e2d\u3067\u30b9\u30ad\u30c3\u30d7\u3055\u305b\u305f\u3044\u3068\u304d<\/a><\/li><li><a href=\"#i-4\">\uff13-\uff12\uff0e\u30eb\u30fc\u30d7\u3092\u629c\u3051\u305f\u3044\u3068\u304d<\/a><\/li><\/ul><\/li><\/ul><\/div>\n<h2><span id=\"VBAdo_while\">\uff11\uff0eVBA\u306e<span>do while<\/span>\u306b\u3064\u3044\u3066<\/span><\/h2>\n<h3><span id=\"-VBAdo_while\">\uff11-\uff11\uff0eVBA\u306b\u304a\u3051\u308b<span>do while<\/span><\/span><\/h3>\n<p>do while\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u5b9f\u884c\u3055\u305b\u305f\u3044\u5834\u5408\u306b\u4f7f\u7528\u3059\u308b\u5236\u5fa1\u69cb\u6587\u3067\u3059\u3002<br \/>\nfor\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u306f\u9055\u3044\u3001\u7e70\u308a\u8fd4\u3059\u56de\u6570\u304c\u6c7a\u307e\u3063\u3066\u306a\u3044\u5834\u5408\u3067\u3082\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002<\/p>\n<h3><span id=\"i\">\uff11-\uff12\uff0e\u4f7f\u7528\u4e0a\u306e\u6ce8\u610f<\/span><\/h3>\n<p>\u7e70\u308a\u8fd4\u3059\u56de\u6570\u304c\u6c7a\u307e\u3063\u3066\u306a\u3044\u305f\u3081\u3001\u6761\u4ef6\u6b21\u7b2c\u3067\u306f\u3001\u6c38\u4e45\u306b\u51e6\u7406\u3092\u5b9f\u884c\u3057\u7d9a\u3051\u308b<span>\u201d<\/span>\u7121\u9650\u30eb\u30fc\u30d7<span>\u201d<\/span>\u306b\u9665\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u4f7f\u7528\u3059\u308b\u969b\u306f\u3001\u6307\u5b9a\u3057\u305f\u6761\u4ef6\u306b\u7d42\u308f\u308a\u304c\u3042\u308b\u3053\u3068\u3092\u78ba\u8a8d\u3057\u307e\u3057\u3087\u3046\u3002\u7121\u9650\u30eb\u30fc\u30d7\u3055\u305b\u3066\u3057\u307e\u3063\u305f\u5834\u5408\u306f\u3001<span>[ESC]<\/span>\u30ad\u30fc\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u51e6\u7406\u3092\u4e2d\u65ad\u3055\u305b\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<h2><span id=\"do_while\"><span>\uff12\uff0edo while<\/span>\u306e\u4f7f\u3044\u65b9<\/span><\/h2>\n<h3><span id=\"-do_while_loopdo_loop_while\">\uff12-\uff11\uff0edo while loop\u3068<span>do loop while<\/span>\u306b\u3064\u3044\u3066<\/span><\/h3>\n<h4><span>do while loop<\/span><\/h4>\n<p>do while Loop\u306f\u6761\u4ef6\u5f0f\u3092\u5224\u5b9a\u3057\u3066\u304b\u3089\u51e6\u7406\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u57fa\u672c\u306e\u66f8\u5f0f\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>Do while \u6761\u4ef6\u5f0f<br \/>\n\u00a0\u00a0\u00a0 \u51e6\u7406<br \/>\nLoop<\/p>\n<p>&lt;\u4f8b<span>&gt;<br \/>\n<\/span>\u30eb\u30fc\u30d7\u51e6\u7406\u306e\u305f\u3073\u306b<span>1<\/span>\u305a\u3064\u52a0\u7b97\u3057\u3001<span>5<\/span>\u4ee5\u4e0a\u306b\u306a\u308b\u307e\u3067\u7e70\u308a\u8fd4\u3059\u30d7\u30ed\u30b0\u30e9\u30e0\u3002<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample()\r\nDim a As Integer\r\na = 1\r\nDo While a &lt; 5\r\n  Debug.Print a &amp; \"\u56de\u76ee\u3002\"\r\n  a = a + 1\r\nLoop\r\nEnd sub<\/pre>\n<h4><span>do loop<\/span>\u3000<span>while<\/span><\/h4>\n<p>do while Loop\u3067\u306f\u6700\u521d\u306b\u6761\u4ef6\u5f0f\u3092\u5224\u5b9a\u3059\u308b\u305f\u3081\u3001\u6761\u4ef6\u3092\u6e80\u305f\u3055\u306a\u3051\u308c\u3070\u30eb\u30fc\u30d7\u305b\u305a\u306b\u51e6\u7406\u304c\u7d42\u4e86\u3059\u308b\u3053\u3068\u3082\u3042\u308a\u307e\u3059\u3002\u6700\u521d\u306e\uff11\u56de\u3060\u3051\u3067\u3082\u51e6\u7406\u3055\u305b\u305f\u3044\u3068\u304d\u306b\u306f\u3001<span>do loop while<\/span>\u3092\u4f7f\u3044\u307e\u3057\u3087\u3046\u3002\u4ee5\u4e0b\u306f\u57fa\u672c\u306e\u66f8\u5f0f\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>Do<br \/>\n\u00a0\u00a0\u00a0 \u51e6\u7406<br \/>\nLoop while \u6761\u4ef6\u5f0f<\/p>\n<p>&lt;\u4f8b<span>&gt;<br \/>\n<\/span>\uff11\u304b\u3089<span>10<\/span>\u306e\u30e9\u30f3\u30c0\u30e0\u306a\u6570\u3092\u8a08\u7b97\u3057\u3066\u3001<span>5<\/span>\u304c\u51fa\u308b\u307e\u3067\u7e70\u308a\u8fd4\u3059\u30d7\u30ed\u30b0\u30e9\u30e0\u3002<br \/>\n\u203b<span>5<\/span>\u304c\u51fa\u308b\u307e\u3067\u51e6\u7406\u304c\u30eb\u30fc\u30d7\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample()\r\nDim a As Integer\r\nDo\r\n  num = Int(Rnd * 10) + 1\r\n  Debug.Print  a &amp; \"\u304c\u51fa\u307e\u3057\u305f\u3002\"\r\nLoop While a &lt;&gt; 5\r\nEnd sub<\/pre>\n<h3><span id=\"-for\">\uff12-\uff12\uff0efor\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u306e\u4f7f\u3044\u5206\u3051<\/span><\/h3>\n<p>\u3069\u3061\u3089\u3082\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3059\u3068\u304d\u306b\u7528\u3044\u3089\u308c\u308b\u5236\u5fa1\u69cb\u6587\u3067\u3059\u304c\u3001\u4ee5\u4e0b\u306e\u69d8\u306b\u4f7f\u3044\u5206\u3051\u308b\u3053\u3068\u304c\u51fa\u6765\u307e\u3059\u3002\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3055\u305b\u305f\u3044\u56de\u6570\u304c\u72b6\u6cc1\u306b\u5fdc\u3058\u3066\u5909\u308f\u308b\u5834\u5408\u306f<span>do while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3002\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3055\u305b\u305f\u3044\u56de\u6570\u304c\u6c7a\u307e\u3063\u3066\u3044\u308b\u5834\u5408\u306f<span>for<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u3053\u3093\u306a\u3068\u304d\u306f\u3001<span>do while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/p>\n<ul>\n<li>\u7279\u5b9a\u306e\u5024\u3084\u6587\u5b57\u304c\u5165\u529b\u3055\u308c\u308b\u307e\u3067\u51e6\u7406\u3092\u7d9a\u3051\u308b\u69d8\u306a\u30d7\u30ed\u30b0\u30e9\u30e0<\/li>\n<li>\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u306e\u5224\u5b9a\u6761\u4ef6\u304c\u4e71\u6570\u306e\u69d8\u306a\u5909\u5316\u3059\u308b\u5024\u306b\u4f9d\u5b58\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/li>\n<\/ul>\n<p>\u4f8b\u3048\u3070\u3053\u3093\u306a\u3068\u304d\u306f\u3001<span>for<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/p>\n<ul>\n<li>\u7e70\u308a\u8fd4\u3057\u56de\u6570\u304c\u51e6\u7406\u306e\u7d50\u679c\u306b\u4f9d\u5b58\u3059\u308b\u3053\u3068\u304c\u7121\u3044\u30d7\u30ed\u30b0\u30e9\u30e0<\/li>\n<li>\u6307\u5b9a\u3057\u305f\u7d42\u4e86\u6761\u4ef6\u306b\u9054\u3059\u308c\u3070\u51e6\u7406\u3092\u7d42\u4e86\u3059\u308b\u69d8\u306a\u30d7\u30ed\u30b0\u30e9\u30e0<\/li>\n<\/ul>\n<h2><span id=\"i-2\">\uff13\uff0e\u5fdc\u7528\u7de8<\/span><\/h2>\n<h3><span id=\"i-3\">\uff13-\uff11\uff0e\u30eb\u30fc\u30d7\u3092\u9014\u4e2d\u3067\u30b9\u30ad\u30c3\u30d7\u3055\u305b\u305f\u3044\u3068\u304d<\/span><\/h3>\n<p>\u30eb\u30fc\u30d7\u3092\u9014\u4e2d\u3067\u30b9\u30ad\u30c3\u30d7\u3055\u305b\u308b\u306b\u306f\u3001<span>GoTo<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u3044\u307e\u3059\u3002GoTo\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e<span>\u201d<\/span>\u30e9\u30d9\u30eb<span>\u201d<\/span>\u3092<span>do while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u30eb\u30fc\u30d7\u5185\u306e\u5148\u982d\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002GoTo\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306b\u5230\u9054\u3059\u308b\u3068\u4ee5\u964d\u306e\u51e6\u7406\u306f\u5b9f\u884c\u3055\u308c\u305a\u306b\u3001\u30eb\u30fc\u30d7\u306e\u6700\u521d<span>(<\/span>\u30e9\u30d9\u30eb\u306e\u4f4d\u7f6e<span>)<\/span>\u3078\u79fb\u52d5\u3057\u307e\u3059\u3002<\/p>\n<p>&lt;\u4f8b<span>&gt;<br \/>\n<\/span>\u7e70\u308a\u8fd4\u3057\u56de\u6570\u304c<span>3<\/span>\u306b\u306a\u308b\u3068\u51e6\u7406\u3092\u30b9\u30ad\u30c3\u30d7\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample()\r\nDim i As Integer, str As String\r\n \r\n  Do While i &lt; 5\r\nL1: \u2018\u2190GoTo\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u30e9\u30d9\u30eb\r\n   i = i + 1\r\n   If i = 3 Then\r\n    GoTo L1\r\n   End If\r\n   str = str &amp; i &amp; \"\u56de\u76ee\u3067\u3059\" &amp; vbCrLf\r\n  Loop\r\n  \r\n  str = \"\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\"\r\n  MsgBox str\r\nEnd sub<\/pre>\n<h3><span id=\"i-4\">\uff13-\uff12\uff0e\u30eb\u30fc\u30d7\u3092\u629c\u3051\u305f\u3044\u3068\u304d<\/span><\/h3>\n<p>\u30eb\u30fc\u30d7\u3092\u9014\u4e2d\u3067\u629c\u3051\u308b\u306b\u306f\u3001<span>Exit<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u3044\u307e\u3059\u3002\u51e6\u7406\u304c<span>Exit<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306b\u5230\u9054\u3059\u308b\u3068\u3001\u30eb\u30fc\u30d7\u5185\u306e\u305d\u308c\u4ee5\u964d\u306e\u51e6\u7406\u306f\u5b9f\u884c\u3055\u308c\u305a\u306b\u30eb\u30fc\u30d7\u3092\u629c\u3051\u307e\u3059\u3002<\/p>\n<p>&lt;\u4f8b<span>&gt;<br \/>\n<\/span>\u7e70\u308a\u8fd4\u3057\u56de\u6570\u304c<span>5<\/span>\u306b\u306a\u308b\u3068\u30eb\u30fc\u30d7\u3092\u629c\u3051\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample()\r\nDim i As Integer, str As String\r\n \r\n  Do While i &lt; 10\r\n   i = i + 1\r\n   If i &gt; 5 Then\r\n    Exit Do\r\n   End If\r\n   str = str &amp; i &amp; \"\u56de\u76ee\u3067\u3059\" &amp; vbCrLf\r\n  Loop\r\n    \r\n  str = \"5\u56de\u76ee\u3067\u7d42\u4e86\u3057\u307e\u3059\"\r\n  MsgBox str\r\nEnd sub\r\n<\/pre>\n<p>\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u5b9f\u884c\u3055\u305b\u308b\u65b9\u6cd5\u3068\u3057\u3066\u3001<span>do while<\/span>\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u5192\u982d\u306b\u3082\u8a18\u8f09\u3057\u305f\u901a\u308a\u3001\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3055\u305b\u308b\u65b9\u6cd5\u306f\u4ed6\u306b\u3082\u3042\u308a\u307e\u3059\u3002\u72b6\u6cc1\u306b\u5408\u308f\u305b\u3066\u4f7f\u3044\u5206\u3051\u308b\u3088\u3046\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA\u3067\u51e6\u7406\u3092\u5b9f\u884c\u3057\u7d9a\u3051\u308b\u65b9\u6cd5\u306f\u3001for\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3001do while\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3001do Until\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306a\u3069\u304c\u3042\u308a\u307e\u3059\u3002 \u3053\u3053\u3067\u306f\u3001\u201ddo while\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u201d\u306b\u3064\u3044\u3066\u3001for\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u306e\u4f7f\u3044\u5206 [&hellip;]<\/p>\n","protected":false},"author":20,"featured_media":4231,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[18],"acf":[],"_links":{"self":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4230"}],"collection":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/users\/20"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/comments?post=4230"}],"version-history":[{"count":6,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4230\/revisions"}],"predecessor-version":[{"id":6239,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4230\/revisions\/6239"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media\/4231"}],"wp:attachment":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media?parent=4230"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/categories?post=4230"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}