VBA講座 セルの操作

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


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関数の結果 ”小” がセットされています。

別のブックの結果




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

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


Copyright (c) Excel-Excel ! All rights reserved