第１４回：表計算の発展的話題 2015 年 7 月 21 日 清見礼.  本日の授業の資料は今日中に 7/jc2015.html においておく。  どうしてもうまくダウンロードできない、見るこ とができない、などあれば.

Presentation on theme: "第１４回：表計算の発展的話題 2015 年 7 月 21 日 清見礼.  本日の授業の資料は今日中に 7/jc2015.html においておく。  どうしてもうまくダウンロードできない、見るこ とができない、などあれば."— Presentation transcript:

1 第１４回：表計算の発展的話題 2015 年 7 月 21 日 清見礼

2  本日の授業の資料は今日中に http://members.jcom.home.ne.jp/masashi77 7/jc2015.html においておく。  どうしてもうまくダウンロードできない、見るこ とができない、などあれば masashi@yokohama-cu.ac.jp まで。私の部屋（総研２１５）に来てくれても構 いません。

3  繰り返し行う一連の処理を、一発でできるように する  中身は ＶｉｓｕａｌＢａｓｉｃ のプログラムだ が、ＧＵＩ で操作可能 ◦ 細かいことをしたければ、プログラミングを行うことで 可能

4 セルの色を変更 別のセルを指定してマク ロの実行

5 こんな表を作るマクロを記録してみ た。 他の場所で実行してみると …

6 例２のマクロを意図通りに動作さ せるには、「相対参照で記録」を チェックしておく必要がある

7  相対参照での記録の効果をもっと直接的に体験し たければ、アクティブセルの位置を変えるマクロ を作ってみるとよい ◦ アクティブセルの位置を変えたり、範囲を選択する、な どというマクロも作ることができる

8  作成したマクロは基本的に、作成したワークシー トでしか使えない  マクロ記録時に保存するブックを選ぶことで、他 のワークシートでも利用可能に  個人用マクロブックに保存すると、エクセルを立 ち上げるとき、自動で読み込まれる

9  これを適当に済ませていると、後で使うときに訳 が分からなくなる ◦ 作っているときはわかっていても、しつこすぎるぐらい 丁寧に書いておくとよい

10 マクロの編集でプログラ ムが見れる

11  たとえば、 Range(“D4”).select の “D4” を “D4:E5” に変更するとどうなるか？  他にも自分でちょっとしたマクロを作って、プロ グラムを眺めてみたり、改造してみると面白い

12 Sub 範囲消去 () ' ' 範囲消去 Macro ' Ｄ４：Ｆ７を消去 ' Range("D4:F7").Select Selection.ClearContents End Sub Selection.Clear 罫線 も含めてすべて消去 Selection.ClearContent s 数式と値を消去 Selection.ClearFormats 書式のみ消去

13 Sub 変数 () i = Range("A1") i = i * i Range("A2") = i j$ = Range("B1") j$ = j$ & " だよ " Range("B2") = j$ End Sub ＄を後ろにつけると、その 変数は文字列を表す変数に なる

14 Sub Macro1() ' ' Macro1 Macro ' If Range("A1") = "" Then ok = MsgBox("A1 に値が入力されていません ", vbOKOnly) Else Range("A2") = Range("A1").Value * 10 End If ' End Sub

15 Sub 繰り返し () ' ' 繰り返し Macro ' For i = 1 To 5 Range(“A" & i) = i * i - 5 * i Next ' End Sub

16  行は Range(“A” & i) のように指定できた  列は Range(chr$(asc(“A”)-1+i) & “1”) のように指定できる ◦ Ｂａｓｉｃを知っていればわかるけど、知らないと ちょっと面倒

17 Sub Macro1() ' ' Macro1 Macro ' Range("A1") = Range("A1").Value + 1 ' End Sub

18  授業で習ったことを試験に出します ◦ 今日の内容は範囲外  持ち込みは不可  課題 60 点、試験 40 点 ◦ ただし、試験が未受験だと、授業全体が未受験と扱われ る ◦ 課題を１つでも出していないと未受験となる