ใ€VBA/ใƒžใ‚ฏใƒญใ€‘Exitๆ–‡ใฎไฝฟใ„ๆ–น๏ผˆ้€”ไธญใงๆŠœใ‘ใ‚‹๏ผ‰

ExcelใฎVBA(ใƒžใ‚ฏใƒญ)ใงใ€Do๏ฝžWhile๏ฝžLoopๆ–‡ใฎไฝฟใ„ๆ–น (ๆกไปถๅผใชใฉ๏ผ‰ใซใคใ„ใฆ็ดนไป‹ใ—ใพใ™ใ€‚

Exitๆ–‡ใฏ

Exitๆ–‡ใฏใ€ๅฎŸ่กŒไธญใฎๅ‡ฆ็†ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹ๆฉŸ่ƒฝใงใ™ใ€‚

ๆ›ธๅผ

Exit ๆง‹ๆ–‡ๅ
่จ˜่ฟฐไพ‹ ่ชฌๆ˜Ž
Exit Do Do๏ฝžWhileๆ–‡ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹
Exit For Forๆ–‡ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹
Exit Function Functionๆ–‡ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹
Exit Property Propertyๆ–‡ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹
Exit Sub Subๆ–‡ใ‚’้€”ไธญใงๆŠœใ‘ใ‚‹

ใ‚ตใƒณใƒ—ใƒซใ‚ณใƒผใƒ‰

ใ‚ตใƒณใƒ—ใƒซใƒ—ใƒญใ‚ฐใƒฉใƒ ใฎใ‚ฝใƒผใ‚นใ‚ณใƒผใƒ‰ใงใ™ใ€‚

Sub test()

    i = 1

     Do While i < 5

        MsgBox i

        i = i + 1

        If i = 2 Then
            MsgBox "้€”ไธญ็ต‚ไบ†"
            Exit Do
        End If

    Loop

End Sub

ใƒกใƒƒใ‚ปใƒผใ‚ธใƒœใƒƒใ‚ฏใ‚นใซใ€Œ1ใ€ใ€Œ้€”ไธญ็ต‚ไบ†ใ€ใจ่กจ็คบใ•ใ‚Œใฆใ„ใใพใ™ใ€‚
iใŒ2ใซใชใฃใŸใจใใซใ€Exitๆ–‡ใงDo Whileใ‹ใ‚‰ๆŠœใ‘ๅ‡บใ—ใพใ™ใ€‚

้–ข้€ฃใƒšใƒผใ‚ธ

ใ€VBAๅ…ฅ้–€ใ€‘ๅŸบ็คŽใ‹ใ‚‰ไฝœๆฅญ่‡ชๅ‹•ๅŒ–ใฎๅฟœ็”จไพ‹ใพใง่งฃ่ชฌ
VBA๏ผˆใƒžใ‚ฏใƒญ๏ผ‰ใงๆง˜ใ€…ใชๅ‡ฆ็†ใ‚’่‡ชๅ‹•ๅŒ–ใ™ใ‚‹ๆ–นๆณ•ใ‚’ใ‚ตใƒณใƒ—ใƒซใ‚ณใƒผใƒ‰ไป˜ใใงๅ…ฅ้–€่€…ๅ‘ใ‘ใซใพใจใ‚ใพใ—ใŸใ€‚

ใ‚ณใƒกใƒณใƒˆ