ใ€VBA/ใƒžใ‚ฏใƒญใ€‘ใ‚ปใƒซใฎใƒ‡ใƒผใ‚ฟ๏ผˆๅ€คใƒปๆ–‡ๅญ—ๅˆ—๏ผ‰ใ‚’ๅ–ๅพ—

ExcelใฎVBA(ใƒžใ‚ฏใƒญ)ใงใ€ใ‚ปใƒซใฎใƒ‡ใƒผใ‚ฟ๏ผˆๅ€คใƒปๆ–‡ๅญ—ๅˆ—๏ผ‰ใ‚’ๅ–ๅพ—ใ™ใ‚‹ๆ–นๆณ•ใซใคใ„ใฆใพใจใ‚ใพใ—ใŸใ€‚

ใ‚ปใƒซใฎใƒ‡ใƒผใ‚ฟ๏ผˆๅ€คใƒปๆ–‡ๅญ—ๅˆ—๏ผ‰ใ‚’ๅ–ๅพ—

VBA(ใƒžใ‚ฏใƒญ)ใงใƒ‡ใƒผใ‚ฟ๏ผˆๅ€คใƒปๆ–‡ๅญ—ๅˆ—๏ผ‰ใ‚’ๅ–ๅพ—ใ™ใ‚‹ใซใฏvalue,textใƒกใ‚ฝใƒƒใƒ‰ใ‚’ๅˆฉ็”จใ—ใพใ™ใ€‚

่จ˜่ฟฐไพ‹ ่ชฌๆ˜Ž
x = Range(“A1”).Value ๅ€คใ‚’ๅ–ๅพ—ใ™ใ‚‹ๅ ดๅˆ
y = Range(“A2”).Text ๆ–‡ๅญ—ๅˆ—ใ‚’ๅ–ๅพ—ใ™ใ‚‹ๅ ดๅˆ

โ€ปๆ“ไฝœๅฏพ่ฑกใฎ่จญๅฎšใฏใ€ŒRangeใ‚ชใƒ–ใ‚ธใ‚งใ‚ฏใƒˆใ€ใ€ŒCellใ‚ชใƒ–ใ‚ธใ‚งใ‚ฏใƒˆใ€ใชใฉใ‚’ๅˆฉ็”จใ—ใฆ่กŒใ„ใพใ™ใ€‚

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

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

Sub test()

    ' A1ใ‚ปใƒซใฎๅ€คใ‚’ๅ–ๅพ—ใ—ใฆๅค‰ๆ•ฐxใซๆ ผ็ด
     x = Range("A1").Value

    ' A2ใ‚ปใƒซใฎๆ–‡ๅญ—ๅˆ—ใ‚’ๅ–ๅพ—ใ—ใฆๅค‰ๆ•ฐyใซๆ ผ็ด
     y = Range("A2").Text

    MsgBox x

    MsgBox y

End Sub

ใƒกใƒƒใ‚ปใƒผใ‚ธใƒœใƒƒใ‚ฏใ‚นใซใ€ŒA1ใ‚ปใƒซใฎๅ€คใ€ใ€ŒA2ใ‚ปใƒซใฎๆ–‡ๅญ—ๅˆ—ใ€ใŒ่กจ็คบใ•ใ‚Œใพใ™ใ€‚

404 NOT FOUND | VBAๅ…ฅ้–€้€Ÿๅ ฑ

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