VBA講座 セルの操作

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


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)"    '---------A
    'セルB12にMAX関数をセットします。
    Range("B12").Formula = "=MAX(B8:B9)"    '---------B
    'セルB13にAVERAGE関数をセットします。
    Range("B13").Formula = "=AVERAGE(B8:B9)"    '---------C
    'セルB14にIF関数をセットします。
    Range("B14").Formula = "=IF(B8>B9,""大"",""小"")"    '---------D
End Sub

スポンサーリンク



プログラム説明

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

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

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

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

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

実行結果

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

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




Excel VBA講座のメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved