情報基礎A
マクロ作成
徳山 豪
東北大学情報科学研究科
システム情報科学専攻
情報システム評価学分野
1
マクロを書くための準備
コントロールツール
ボックス
Visual Basic エディタ
マクロ記録ボタン
マクロ実行ボタン
表示＞ツールバー＞Visual Basic
2
マクロ作成
Sheet１へA1からA10まで数字を入力
マクロ作成（操作の記録による方法）
ツールバーの「マクロ記録ボタン」を押す
B1にA1～A10の合計を求める
ツールバーの「記録終了ボタン」を押す
3
マクロの実行
Sheet２へA1～A10まで数値を入力
ツールバーの「マクロ実行ボタン」を押してマ
クロを実行させる
実行対象のマクロを
選んで実行
4
マクロの内容
（Visual Basic言語で書かれている）
Visual basic
エディター
Sub macro1()
'
'マクロ記録日 : 2006/6/5 ユーザー名 : ｘｘｘｘｘｘ
'
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[9]C[-1])"
End Sub
5
選択したセルにマクロの結果を出力：合計
Visual Basic エディターに直接マクロを書く
Sub goukei()
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[9]C[-1])"
End Sub
6
合計、平均、最大値を求めるマクロ
A1からA10まで数字を入力
マクロ作成（操作の記録による方法）
ツールバーの「マクロ記録ボタン」を押す
B1にA1～A10の合計を求める
B2にA1～A10までの平均を求める
B3にA1～A10までの最大値を求める
ツールバーの「記録終了ボタン」を押す
7
マクロの内容
Sub 合計、平均、最大値()
'
‘ マクロ記録日 : 2006/6/5 ユーザー名 : ｘｘｘｘｘ
'
'
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[9]C[-1])"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-1]C[-1]:R[8]C[-1])"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=MAX(R[-2]C[-1]:R[7]C[-1])"
End Sub
8
選択したセルにマクロの結果を出力
：合計、平均、最大値
挿入＞標準モジュール
Sub keisan()
Dim row As Integer
Dim col As Integer
row = ActiveCell.row
col = ActiveCell.Column
Cells(row, col) = "=SUM(RC[-1]:R[9]C[-1])"
Cells(row + 1, col) = "=AVERAGE(R[-1]C[-1]:R[8]C[-1])"
Cells(row + 2, col) ="=MAX(R[-2]C[-1]:R[7]C[-1])“
End Sub
9