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
'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