STEP3.コマンドボタンにVBAプログラムを記述する-EXCE(エクセル)VBAの初めての手引き

VBAの初めての手引き～STEP3.コマンドボタンにVBAプログラムを記述する

　前ページで用意したボタンに実際にプログラムを記述し、実行してみましょう。

ボタンをクリックした時のVBAプログラムの例

セルA1とセルB1の合計を計算し、セルA3に結果を書く簡単なVBAプログラムを書いてみます。

ボタンをクリックする前には「デザインモード」を外すのを忘れずに。

セルA1に"5", セルB1に"2"を入力し、ボタンをクリック

実行した結果、セルA3に A1とB1の足し算結果の"7"が出力されました。

今回使用したソースプログラム

Private Sub CommandButton1_Click()
　Dim i As Integer　'整数の変数を定義
　i = Range("A1").Value + Range("B1").Value　'A1とB1の足し算結果をiに
　Range("A3").Value = i　'iをA3に出力
End Sub

セルの色を変えるVBAプログラム

先程のプログラムに1行だけ追加してB3のセルの色を赤くします。

クリックすると先程のプログラムの結果+B3のセルが赤くなりました。

今回使用したソースプログラム

Private Sub CommandButton1_Click()
　Dim i As Integer　'整数の変数を定義
　i = Range("A1").Value + Range("B1").Value　'A1とB1の足し算結果をiに
　Range("A3").Value = i　'iをA3に出力
　Range("A3").Interior.Color = RGB(255, 0, 0)　'A3の背景を赤に
End Sub

メッセージボックスに表示するVBAプログラム

さらに今度はメッセージボックスにも計算結果をだします。

ボタンをクリックするとメッセージボックスも表示されました。

今回使用したソースプログラム

Private Sub CommandButton1_Click()
　Dim i As Integer　'整数の変数を定義
　i = Range("A1").Value + Range("B1").Value　'A1とB1の足し算結果をiに
　Range("A3").Value = i　'iをA3に出力
　Range("A3").Interior.Color = RGB(255, 0, 0)　'A3の背景を赤に
　MsgBox (Range("A3").Value)　'A3の内容をメッセージボックスで表示
End Sub

前へ次へ

書籍 IT系資格統計解析データ分析マーケティング