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

Step 7　別のブックに値や関数をセットする



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

プログラムを入力する

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

ボタンクリックイベント
Private Sub CommandButton1_Click()
    'Book1.xls の Sheet1 のセルC5に数値をセットします。
    Workbooks("Book1.xls").Worksheets("Sheet1").Range("C5").Value = 56
    
    'Book1.xls の 1番目のシート のセルC6に数値をセットします。
    Workbooks("Book1.xls").Worksheets(1).Range("C6").Value = 63
    
    'Book1.xls の Sheet1 のセルC7にSUM関数をセットします。
    Workbooks("Book1.xls").Worksheets("Sheet1").Range("C7").Formula = "=SUM(C5:C6)"
    
    'Book1.xls の 1番目のシート のセルC8にIF関数をセットします。
    Workbooks("Book1.xls").Worksheets(1).Range("C8").Formula = "=IF(C5>C6,""大"",""小"")"
End Sub



プログラム説明

Workbooks(ブック名).Worksheets(シート名) というように先頭に Workbooks Worksheets　を使用しています。
この場合、指定のブックは開いていないとエラーになります。
シートはWorksheets（数値）のようにシート順で指定することもできます。

実行結果

Excel画面に戻り、コマンドボタンをクリックしてください。
別のブックは開いておいてください。
　・別のブック(Book1.xls)の Sheet1 の　セルC5に数値　56　がセットされています。
　・別のブック(Book1.xls)の 1番目のシート　のセルC6に数値　63　がセットされています。
　・別のブック(Book1.xls)の Sheet1 の　セルC7に合計　119　がセットされています。
　・別のブック(Book1.xls)の 1番目のシート　のセルC8にIF関数の結果　”小”　がセットされています。

別のブックの結果


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

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


Copyright (c) Excel-Excel ! All rights reserved