03.回答編 – ビジネスマンのためのＥＸＣＥＬ　ＶＢＡプログラミング講座

問題：Book1 の Sheet1 には　以下のように　値が入っているセルがあるとする。

Sub renshu1()
  Dim b3 As Integer
  Dim c3 As String
　b3 = Range("b3")
　c3 = Range("c3")


　Range("e3") = b3
　Range("f3") = c3
End Sub

解説：

ＶＢＡでは、小さなプログラムをたくさん作っていきます。

そして、各プログラムには　名前を付けて管理します。

名前は　プログラマーがある程度自由に名付けることができます。

今回のプログラムでは、　筆者は renshu1 という名前を付けました。

renshu1 は

Sub で始まり、End Sub で終わります。

この間に書かれた内容が　一塊として renshu1 の中身となります。

この間に書かれていないことは、rendhu1 とは無関係となります。

Dim b3 As Integer

Dim c3 As String

は、

整数型の変数 b3 を使う

文字列型の変数 c3 を使う

という宣言を意味します。

b3 = Range(“b3”)

c3 = Range(“c3”)

は,

b3 という変数に b3セルの値を代入する

c3 という変数に c3セルの値を代入する

という意味です。

Range(“e3”) = b3

Range(“f3”) = c3

は、

e3セルに b3という変数（の値）を代入する

f3セルに c3という変数（の値）を代入する

という意味です。

ここまで準備が整いましたら、本当にe3, f3 セルに値が表示されるか

マクロを実行して確かめてみてください。

マクロを実行するには、

ＶＢＡの renshu1 の内部にカーソルをあてて、左クリックした状態で

キーボードの　Ｆ５　をヒットしてください。

エラーが無ければ、動きます。

カテゴリー: 03.回答編