ใ€VBAใ€‘MsgBox๏ผˆใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚น๏ผ‰ใซๅค‰ๆ•ฐใ‚’่กจ็คบ

ExcelใฎVBA(ใƒžใ‚ฏใƒญ)ใงใ€MsgBox๏ผˆใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚น๏ผ‰ใซๅค‰ๆ•ฐใ‚’่กจ็คบใ•ใ›ใ‚‹ๆ–นๆณ•ใซใคใ„ใฆใพใจใ‚ใพใ—ใŸใ€‚

MsgBox๏ผˆใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚น๏ผ‰ใซๅค‰ๆ•ฐใ‚’่กจ็คบ

VBA(ใƒžใ‚ฏใƒญ)ใงใฏใ€MsgBox(ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚น)ใซๅค‰ๆ•ฐใฎๅ€คใ‚’่กจ็คบใ•ใ›ใ‚‹ใ“ใจใŒใงใใพใ™ใ€‚

ๆ›ธๅผ
ๅค‰ๆ•ฐใ ใ‘่กจ็คบใ•ใ›ใ‚‹ๅ ดๅˆ MsgBox ๅค‰ๆ•ฐๅ
ๅค‰ๆ•ฐใจๆ–‡ๅญ—ๅˆ—ใ‚’่กจ็คบใ•ใ›ใ‚‹ๅ ดๅˆ MsgBox ๆ–‡ๅญ—ๅˆ— & ๅค‰ๆ•ฐ & ๆ–‡ๅญ—ๅˆ—

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

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

Sub Test()
    ' ๅค‰ๆ•ฐใฎๅฎฃ่จ€ใƒปไปฃๅ…ฅ
    Dim x As Long
    x = 1

    ' ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚นใซๅค‰ๆ•ฐใ€Œ1ใ€ใจ่กจ็คบ
    MsgBox x '

    'ใ€Œๅค‰ๆ•ฐใฎๅ€คใฏ1ใงใ™ใ€ใจ่กจ็คบ
    MsgBox "ๅค‰ๆ•ฐใฎๅ€คใฏ" & x & "ใงใ™"

End Sub

MsgBox๏ผˆใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚น๏ผ‰ใซใƒกใƒƒใ‚ปใƒผใ‚ธใ‚’่กจ็คบ

VBA(ใƒžใ‚ฏใƒญ)ใงใฏใ€MsgBoxใงใ€ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒœใƒƒใ‚ฏใ‚นใซใƒกใƒƒใ‚ปใƒผใ‚ธใ‚’่กจ็คบใ•ใ›ใ‚‹ใ“ใจใŒใงใใพใ™ใ€‚

ๆ›ธๅผ

ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใซใ€Œใƒกใƒƒใ‚ปใƒผใ‚ธใ€ใ€Œใ‚ฟใ‚คใƒˆใƒซใ€ใ€Œใƒœใ‚ฟใƒณใ€ใ‚’่กจ็คบใ—ใพใ™ใ€‚

Dim button As Integer
button = MsgBox (่กจ็คบๆ–‡ๅญ—ๅˆ—, ใƒœใ‚ฟใƒณใฎ็จฎ้กž, ใ‚ฟใ‚คใƒˆใƒซๆ–‡ๅญ—ๅˆ—)

Integerๅž‹ใฎๅค‰ๆ•ฐbuttonใซใฏใ€ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใฎใฉใฎใƒœใ‚ฟใƒณใŒๆŠผใ•ใ‚ŒใŸใ‹ใฎๅ€คใŒๆ ผ็ดใ•ใ‚Œใพใ™ใ€‚

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

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

Sub Test()
    Dim button As Integer

    button = MsgBox("ใƒ€ใ‚คใ‚ขใƒญใ‚ฐใƒ†ใ‚นใƒˆ", vbOKOnly, "ใ‚ฟใ‚คใƒˆใƒซ")

    MsgBox button
End Sub

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

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

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