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๏ผใใฏใญ๏ผใงๆงใ
ใชๅฆ็ใ่ชๅๅใใๆนๆณใใตใณใใซใณใผใไปใใงๅ
ฅ้่
ๅใใซใพใจใใพใใใ
ใณใกใณใ