[VBA] セルの値を取得・セルに値を入力

　Rangeプロパティを使って セルの値を取得 したり、またその逆に セルに値を入力する 方法について学びましょう。
　

セルの値を取得します

　ワークシートのセルB2 に「言葉の妖精こばとです！」という文字列が入力されているとします。このデータを取得してメッセージボックスに表示するコードを書いてみましょ～。

　'セルB2の値を表示します

　Sub GetValueRange1()

　　MsgBox Range("B2").Value

　End Sub

　これだけね～。実行してみましょ～。

　 VBA「こばとです」というメッセージを表示するプロシージャ

　Valueプロパティ は Rangeオブジェクトの値を取得するプロパティなんだけど、これは省略してもかまいません。ただ、作法としては書いておいたほうがいいかもしれませんね。ちなみに Cellsプロパティを使うと次のようなマクロになります。

　'セルB2の値を表示します

　Sub GetValueRange1()

　　MsgBox Cells(2, 2).Value

　End Sub

　Range を使うか、Cells を使うかはお好みで決めてくださいな。
　

　今度はセルB2 に「こばとは九姉妹の末っ子です」というデータを入力してみましょ～。

　'セルB2に値を入力します

　Sub OutValueRange1()

　'文字列型変数 mystr を宣言
　Dim mystr As String

　mystr = "こばとは九姉妹の末っ子です"

　　Range("B2").Value = mystr

　End Sub

　マクロを実行するとセルB2 にデータが書き込まれますよ～。

　 VBA「こばとは９姉妹の末子です」を表示するプロシージャの実行結果

　え？　かばねちゃん以外にも七羽も姉がいるのかって？
　その話は長くなるから、また別の機会にね～。
　

　最後にセルに入ったデータをクリアするコードね～。
　セルの値を消す ClearContentsメソッド を使いましょ～。

　'セルB2をクリアします

　Sub ClearValue()

　　Range("B2").ClearContents

　End Sub

　実行すると、セルB2 が空白になりますよ～。
　それでは今日はこのへんで～。また次回お会いしましょ～。