Menuへ

VBA講座 セルの操作

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

プログラムを入力する

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

Topへ

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