![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
#navi(VBII) *Excelでマクロを作成する [#q4ed5622] -Excelのマクロ機能を使うことで，操作をビデオに撮るように記録することができる． -最初に「A1」セルを選択状態にしておく． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro00.png) -次に「新しいマクロの記録」を実行する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro01.png) -次のダイアログでマクロの名前を自由に決められるのだが，このまま「OK」ボタンを押す． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro02.png) -セルに「マクロ」と入力し，「Enter」キーを押して下のセルを選択状態にする． -【注】ここの操作が記録されるので，余計な操作はしないこと． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro03.png) -次に「記録終了」コマンドを実行する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro04.png) *記録したマクロを実行する [#w8bf6bf7] -記録したマクロを実行すると，ビデオを再生するように記録した操作が再生される． -最初に「C2」セルを選択状態にしておく． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro05.png) -「マクロ」コマンドを実行する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro06.png) -実行したいマクロ名を（一つしかないけど）選んで「実行」ボタンを押す． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro07.png) -「C2」セルに「マクロ」と入力され，「A2」セルが選択状態になる． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro08.png) -マクロの実行ができた． *マクロを編集する [#s3011fd6] -「マクロ」コマンドを実行する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro06.png) -実行したいマクロ名を（一つしかないけど）選んで「編集」ボタンを押す． -編集したいマクロ名を（一つしかないけど）選んで「編集」ボタンを押す． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro09.png) -なじみ深い画面が開く． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro10.png) -次の様に編集してみる #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/macro11.png) -「Macro1」を実行してみましょう． -「掛け算」を実行してみましょう． *Excelでグラフを描く． [#g1208d94] -「Sheet2」を開く． -次の様にセルに値と式を入力する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba01.png) -「B4:C4」をコピーして「B5:C33」に貼り付ける． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba02.png) -「C2:C33」を選択して折れ線グラフを作成する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba03.png) -セル「A3」の値を変更するとグラフの形が変わる． *コントロールを使う [#cb48e29f] -メニュー領域で右クリックして「コントロールツールボックス」を表示する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba04.png) -ボタンを配置する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba05.png) -ボタンを右クリックしてプロパティを表示する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba06.png) -オブジェクト名を「UP」に変更する．その他適当にプロパティを変更する． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba07.png) -ボタンをダブルクリックしてコードを記入する． #code(vb){{ Private Sub UP_Click() Range("A3") = Range("A3") + 0.1 End Sub }} -「デザインモードを終了」してボタンの動作確認をする． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba08.png) -「a減少」ボタンも作ってみる． -余裕があれば「左」「右」ボタンも作ってみる． #ref(http://kaede.osu.ac.jp/~ogawa-k/wiki/resource/vb/vba09.png) -Excelのシートを印刷して提出する． -ExcelのファイルをFDにコピーして提出する． ---- #comment #navi(VBII)
