Rangeプロパティを使って セルの値を取得 したり、またその逆に セルに値を入力する 方法について学びましょ～。
セルの値を取得します
ワークシートのセルB2 に「言葉の妖精こばとです！」という文字列が入力されているとします。このデータを取得してメッセージボックスに表示するコードを書いてみましょ～。
Sub GetValueRange1()
MsgBox Range("B2").Value
End Sub
これだけね～。実行してみましょ～。
Valueプロパティ は Rangeオブジェクトの値を取得するプロパティなんだけど、これは省略してもかまいません。ただ、作法としては書いておいたほうがいいかもしれませんね。ちなみに Cellsプロパティを使うと次のようなマクロになります。
Sub GetValueRange1()
MsgBox Cells(2, 2).Value
End Sub
Range を使うか、Cells を使うかはお好みで決めてくださいな。
セルに値を入力します
今度はセルB2 に「こばとは九姉妹の末っ子です」というデータを入力してみましょ～。
Sub OutValueRange1()
'文字列型変数 mystr を宣言
Dim mystr As String
mystr = "こばとは九姉妹の末っ子です"
Range("B2").Value = mystr
End Sub
マクロを実行するとセルB2 にデータが書き込まれますよ～。
え？ かばねちゃん以外にも七羽も姉がいるのかって？
その話は長くなるから、また別の機会にね～。
セルのデータをクリアします
最後にセルに入ったデータをクリアするコードね～。
セルの値を消す ClearContentsメソッド を使いましょ～。
Sub ClearValue()
Range("B2").ClearContents
End Sub
実行すると、セルB2 が空白になりますよ～。
それでは今日はこのへんで～。また次回お会いしましょ～。