VBA講座 セルの操作:関数をセット

Step 5 セルに関数をセットする



Homeに戻る > Excel VBA講座へ > セルの操作へ

プログラムを入力する

前回の、Private Sub CommandButton1_Click() と End Sub の間を変更してください

コマンドボタンのクリックイベント
Private Sub CommandButton1_Click()
    'セルB8に数値をセットします。
    Range("B8").Value = 456
    'セルB9に数値をセットします。
    Range("B9").Value = 132
    
    'セルB10にSUM関数をセットします。
    Range("B10").Formula = "=SUM(B8:B9)"    '---------①
    'セルB11にMIN関数をセットします。
    Range("B11").Formula = "=MIN(B8:B9)"    '---------②
    'セルB12にMAX関数をセットします。
    Range("B12").Formula = "=MAX(B8:B9)"    '---------③
    'セルB13にAVERAGE関数をセットします。
    Range("B13").Formula = "=AVERAGE(B8:B9)"    '---------④
    'セルB14にIF関数をセットします。
    Range("B14").Formula = "=IF(B8>B9,""大"",""小"")"    '---------⑤
End Sub



プログラム説明

①SUM関数 : B8とB9の合計をセットします。

②MIN関数 : B8とB9の最小値セットします。

③MAX関数 : B8とB9の最大値セットします。

④AVERAGE関数 : B8とB9の平均値セットします。

⑤IF関数 : B8とB9のを比較し大きければ”大”を小さければ”小”をセットします。

実行結果

Excel画面に戻り、コマンドボタンをクリックしてください。
 ・セルB10に合計 456 がセットされています。
 ・セルB11に最小値 132 がセットされています。
 ・セルB12に最大値 456 がセットされています。
 ・セルB13に平均値 294 がセットされています。
 ・セルB14にIF関数の結果 ”大” がセットされています。

関数の実行結果が表示されている


Homeに戻る > Excel VBA講座へ > セルの操作へ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved