{"id":1668,"date":"2024-05-12T14:24:49","date_gmt":"2024-05-12T05:24:49","guid":{"rendered":"https:\/\/www.isa-school.net\/blog\/?p=1668"},"modified":"2026-01-07T18:07:48","modified_gmt":"2026-01-07T09:07:48","slug":"vba-excelvba04","status":"publish","type":"post","link":"https:\/\/www.isa-school.net\/blog\/vba-excelvba04\/","title":{"rendered":"\u3010\u30a8\u30af\u30bb\u30ebVBA\u3011Do …Loop\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u3059\u308b"},"content":{"rendered":"\n

VBA\u306e\u8cc7\u683c\u53d6\u5f97\u3092\u5fdc\u63f4\u3059\u308b\u300c\u30d1\u30bd\u30b3\u30f3\u6559\u5ba4ISA<\/a>\u300d\u30e9\u30a4\u30bf\u30fc\u30c1\u30fc\u30e0\u3067\u3059\u3002<\/p>\n\n\n\n

VBA\u306f\u30a8\u30af\u30bb\u30eb\u64cd\u4f5c\u81ea\u52d5\u5316\u306e\u6700\u5f37\u306e\u30b9\u30ad\u30eb\u3001\u305d\u306e\u81ea\u52d5\u5316\u306e\u30b3\u30a2\u306f\u3084\u306f\u308a\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3067\u3059\u3002\u3053\u306e\u8a18\u4e8b\u3067\u306fDo Loop\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u305f\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u306b\u3064\u3044\u3066\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

\u30d1\u30bd\u30b3\u30f3\u6559\u5ba4ISA\u306e\u8cc7\u6599\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\uff08\u7121\u6599\uff09<\/a><\/p>\n\n\n\n

<\/div>\n\n\n\n

\u300c\u6761\u4ef6\u3092\u6e80\u305f\u3057\u3066\u3044\u308b\u9593\u300d\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u3059\u308b<\/h2>\n\n\n\n

VBA\u3067\u306e\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u306b\u306f\u3001For…next\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u304c\u3088\u304f\u4f7f\u308f\u308c\u307e\u3059\u304c\u3001\u6761\u4ef6\u4ed8\u304d\u306e\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u3059\u308b\u5834\u5408\u306b\u306f\u3001Do\u2026Loop\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/span>\u304c\u4fbf\u5229\u3067\u3059\u3002\u305d\u306e\u4e2d\u3067\u3082\u3001\u300c\u6761\u4ef6\u3092\u6e80\u305f\u3057\u3066\u3044\u308b\u9593<\/span>\u300d\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u3059\u308b\u306b\u306f\u3001While<\/span>\u30ad\u30fc\u30ef\u30fc\u30c9\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u69cb\u6587\u3092\u4f5c\u308a\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

Do While … Loop\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/h3>\n\n\n\n

While\u4ee5\u964d\u306e\u6761\u4ef6\u5f0f\u304c\u771f\uff08\u6761\u4ef6\u3092\u6e80\u305f\u3057\u3066\u3044\u308b\uff09\u306e\u9593\u3001Loop\u306e\u524d\u306b\u8a18\u8ff0\u3057\u305f\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

<\/i><\/div>
\n

Do While \u6761\u4ef6\u5f0f
\u3000\u6761\u4ef6\u3092\u6e80\u305f\u3057\u3066\u3044\u308b\u9593\u7e70\u308a\u8fd4\u3059\u51e6\u7406
Loop<\/p>\n<\/div><\/div>\n\n\n\n

\u4ee5\u4e0b\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u306f\u3001\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u30923\u56de\u8868\u793a\u3057\u3066\u3001\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u629c\u3051\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

\n

Sub sample()
\u3000Dim\u3000i\u3000\u2019\u5909\u6570 i \u306e\u5ba3\u8a00
\u3000i = 1\u3000\u3000\u2019\u5909\u6570\u3092\uff11\u3067\u521d\u671f\u5316<\/p>\n\n\n\n

\u3000Do While i <= 3\u3000\u2019\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u958b\u59cb i \u304c3\u4ee5\u4e0b\u306e\u9593\u7e70\u308a\u8fd4\u3057<\/p>\n\n\n\n

\u3000\u3000\u3000MsgBox\u3000i & “\u56de\u76ee\u3067\u3059”<\/p>\n\n\n\n

\u3000\u3000\u3000i = i + 1\u3000\u2019\u5909\u6570 i \u306b1\u3092\u52a0\u7b97<\/p>\n\n\n\n

\u3000Loop<\/p>\n\n\n\n

\u3000MsgBox i & “\u3067\u51e6\u7406\u3092\u629c\u3051\u307e\u3057\u305f”<\/p>\n\n\n\n

End Sub<\/p>\n<\/div>\n\n\n\n

\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3067\u306f\u3001i\u3068\u3044\u3046\u30ab\u30a6\u30f3\u30bf\u5909\u6570\u30921\u304b\u3089\u9806\u306b\u52a0\u7b97\u3057\u3066\u3044\u304f\u3053\u3068\u3067i<=3\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3059\u9593\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002i=i+1\u306e\u8a18\u8ff0\u3092\u5fd8\u308c\u308b\u3068i=1\u306e\u307e\u307e\u306a\u306e\u3067\u3001\u7e70\u308a\u8fd4\u3057\u304c\u7d42\u4e86\u305b\u305a\u3001\u300c\u7121\u9650\u30eb\u30fc\u30d7<\/span>\u300d\u3068\u306a\u308a\u307e\u3059\u3002\u7121\u9650\u30eb\u30fc\u30d7\u304c\u767a\u751f\u3057\u305f\u5834\u5408\u306b\u306f\u3001\u614c\u3066\u305a\u306bCtrl<\/span>+Break<\/span>\u30ad\u30fc\u3067\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5f37\u5236\u7d42\u4e86\u3055\u305b\u307e\u3057\u3087\u3046\u3002<\/span><\/p>\n\n\n\n

\u30d1\u30bd\u30b3\u30f3\u6559\u5ba4ISA\u306eVBA\u8b1b\u5ea7\u3092\u4f53\u9a13\u3057\u3066\u307f\u308b\uff08\u7121\u6599\uff09<\/a><\/p>\n\n\n\n

<\/div>\n\n\n\n

Do Loop While …\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/h3>\n\n\n\n

While\u306e\u4f4d\u7f6e\u3092Loop\u306e\u5f8c\u308d\u306b\u3059\u308b\u3068\u6761\u4ef6\u3092\u6e80\u305f\u3059\u304b\u3069\u3046\u304b\u306e\u5224\u65ad\u3059\u308b\u5834\u6240\u3092\u5909\u3048\u308b<\/span>\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

<\/i><\/div>
\n

Do
\u3000\u6761\u4ef6\u3092\u6e80\u305f\u3057\u3066\u3044\u308b\u9593\u7e70\u308a\u8fd4\u3059\u51e6\u7406
Loop While \u6761\u4ef6\u5f0f<\/p>\n<\/div><\/div>\n\n\n\n

\u5148\u307b\u3069\u306e\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3092\u5c11\u3057\u4fee\u6b63\u3057\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

\n

Sub sample()
\u3000Dim\u3000i\u3000\u2019\u5909\u6570 i \u306e\u5ba3\u8a00
\u3000i = 4\u3000\u3000\u2019\u5909\u6570\u3092\uff14\u3067\u521d\u671f\u5316<\/p>\n\n\n\n

\u3000Do <\/p>\n\n\n\n

\u3000\u3000\u3000MsgBox\u3000i & “\u56de\u76ee\u3067\u3059”<\/p>\n\n\n\n

\u3000\u3000\u3000i = i + 1\u3000\u2019\u5909\u6570 i \u306b1\u3092\u52a0\u7b97<\/p>\n\n\n\n

\u3000Loop While i <= 3\u3000\u2019 i \u304c3\u4ee5\u4e0b\u306e\u9593\u7e70\u308a\u8fd4\u3057<\/p>\n\n\n\n

\u3000MsgBox i & “\u3067\u51e6\u7406\u3092\u629c\u3051\u307e\u3057\u305f”<\/p>\n\n\n\n

End Sub<\/p>\n<\/div>\n\n\n\n

\u3053\u306e\u30b3\u30fc\u30c9\u3067\u306fi=4\u3068\u521d\u671f\u5316\u3057\u3066\u3044\u307e\u3059\u3002Loop\u306e\u5f8c\u308d\u306b\u6761\u4ef6\u5f0f\u304c\u3042\u308b\u306e\u3067\u30011\u5ea6\u306f\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u5185\u306e\u51e6\u7406\u304c\u5b9f\u884c\u3055\u308c\u3001\u305d\u306e\u5f8c\u6761\u4ef6\u5224\u5b9a\u3092\u3057\u307e\u3059\u3002\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u306b\u300c4\u56de\u76ee\u3067\u3059\u300d\u3068\u8868\u793a\u3055\u308c\u305f\u5f8c\u3001i<=3\u3092\u6e80\u305f\u3055\u306a\u3044\u3068\u5224\u65ad\u304c\u3055\u308c\u3066\u3001\u51e6\u7406\u3092\u629c\u3051\u307e\u3059\u3002<\/span><\/p>\n\n\n\n

\u30d1\u30bd\u30b3\u30f3\u6559\u5ba4ISA\u306eVBA\u8b1b\u5ea7\u3092\u4f53\u9a13\u3057\u3066\u307f\u308b\uff08\u7121\u6599\uff09<\/a><\/p>\n\n\n\n

\n

\u30d1\u30bd\u30b3\u30f3\u30b9\u30af\u30fc\u30ebISA<\/p>\n

Office\u30fbIT\u30fb\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u7b49\u306e
\u30d1\u30bd\u30b3\u30f3\u30b9\u30ad\u30eb\u30a2\u30c3\u30d7\u3092\u5fb9\u5e95\u30b5\u30dd\u30fc\u30c8\uff01
\u6771\u4eac\u3001\u6a2a\u6d5c\u3001\u57fc\u7389\u3001\u5343\u8449\u306e
\u6700\u5bc4\u99c55\u5206\u4ee5\u5185!\u30aa\u30f3\u30e9\u30a4\u30f3\u6388\u696d\u3082<\/p>\n

\u7121\u6599\u4f53\u9a13\u30ec\u30c3\u30b9\u30f3\u306b\u7533\u3057\u8fbc\u3080<\/a><\/p>\n