[VBA] セルの値の取得・入力、クリア (ClearContents)

　本日の記事では、Range プロパティを使って セルの値を取得 したり、またその逆に セルに値を入力する する方法について学びます。記事の最後ではセルの値を消去する ClearContents メソッドの使い方についても解説します。
　

セルの値を取得します

　ワークシートのセルB2 に「こばとちゃんは今日も元気です！」という文字列が入力されているとします。このデータを取得してメッセージボックスに表示するコードを書いてみましょう。

'[VBA] セルB2の値を表示するプロシージャ

Sub GetValueRange1()

　　MsgBox Range("B2").Value

End Sub

　実行すると「こばとちゃんは今日も元気です！」というメッセージが表示されます。
　

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

'[VBA] セルB2の値を表示するプロシージャ

Sub GetValueRange1()

　　MsgBox Cells(2, 2).Value

End Sub

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

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

'[VBA] セルB2に値を入力するプロシージャ

Sub OutValueRange1()

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

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

　　Range("B2").Value = mystr

End Sub

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

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

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

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

'[VBA] セルB2のデータを削除するプロシージャ

Sub ClearValue()

　　Range("B2").ClearContents

End Sub

　実行すると、セルB2 のデータが消去されて空白になります。
　それでは今日はこのへんで。また次回お会いしましょう。