[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「こばとは9姉妹の末子です」を表示するプロシージャの実行結果

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

セルのデータをクリアします

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

 'セルB2をクリアします

 Sub ClearValue()

  Range("B2").ClearContents

 End Sub

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

 ≫ VBA の技術メニューに戻って他の記事も読んでね~

スポンサードリンク
末尾大型広告
末尾大型広告

コメントをどうぞ

メールアドレスが公開されることはありません。

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)