<4D F736F F D E835A838B837D834E838D8CA48F4389F0939A95D22E646F6378>

Transcription

1 エクセルマクロ 研 修 H27 版 解 答 編 問 2-1 次 の 文 字 列 のうち 変 数 名 として 使 えるものに 使 えないものに をつけなさい abcdefg アルファベットのみ 先 頭 が 数 字 クラスの 平 均 漢 字 は 使 える database_ 読 み 込 み 漢 字 アルファベット _は 使 える 混 在 できる 3nen 先 頭 が 数 字 三 年 漢 字 は 使 える sannen?? 記 号 は 使 えない さんねん? 全 角 数 字 記 号 は 半 角 に 変 換 される jugemujugemugokounosurikirekaijarisuigyonosuigyoumatuunraimatufuuraimatu 72 文 字 問 2-2 長 方 形 の 面 積 を 求 める 手 順 を 箇 条 書 きで 書 きなさい また フローチャートを 使 って 書 きなさい 変 数 は 面 積 s 高 さ h 幅 w とする 1 高 さ h を 決 める 2 幅 w を 決 める 3 縦 と 横 をかける 問 2-3 円 の 面 積 を 求 める 手 順 を 以 下 の 公 式 を 使 って 箇 条 書 きで 書 きなさい また フローチャ ートを 書 きなさい ただし 円 周 率 は 3.14 とし 変 数 名 は 面 積 s 半 径 r とする 2 円 の 面 積 円 周 率 半 径 1 半 径 r を 決 める と r と r をかけ 答 えを s に 入 れる 問 2-4 台 形 の 面 積 を 求 める 手 順 を 以 下 の 公 式 を 使 って 箇 条 書 き 及 びフローチャートで 書 きなさ い 変 数 名 は 面 積 m 上 底 j 下 底 k 高 さ t とする 面 積 1 2 上 底 + 下 底 高 さ 1 上 底 を 決 める 2 下 底 を 決 める 3 高 さを 決 める 4 上 底 と 下 底 を 足 す 5 高 さをかける 62で 割 る 1

2 問 2-5 クラスの 生 徒 が5 名 の 場 合 どのように 並 べ 替 えるか 考 えなさい 例 :1 枚 ごとに それまでの 束 の 中 に 差 し 込 んでいく( 挿 入 ソート) 問 2-6 クラスの 生 徒 が40 名 の 場 合 どのように 並 べ 替 えるか 考 えなさい 例 :10の 位 で 分 類 し それぞれの 束 を1の 位 で 並 べ 替 える(ラディックスソート) 問 2-7 並 べ 替 えが 終 わった 後 欠 席 していた1 名 が 提 出 した 場 合 どのように 並 べ 替 えるか 考 え なさい 例 : 上 から 順 番 に 入 るところを 探 していく(バブルソート) 例 : 束 の 中 央 の 番 号 で2 分 し そのどちらの 束 に 入 るかを 決 める 決 めた 束 をさらに2 分 し そのどちらに 入 るかを 決 める(クイックソート) 問 2-8 問 2-5 の 方 法 で40 名 のプリントを 並 べ 替 えた 場 合 と 問 2-6 の 場 合 とで 比 べて どのく らい 時 間 が 変 わるか 考 えなさい 例 : 枚 数 による 2-5 は 数 が 多 くなると 差 し 込 む 場 所 を 探 すのが 大 変 2-6 は 数 が 少 ないときは 最 初 の 段 階 で 分 ける 束 が 少 ないため 効 率 的 でない 問 2 9 次 の 文 章 を 読 み 下 の 問 い( 問 a, b)に 答 えよ 問 a) 正 の 整 数 n を 入 力 したとき 1 から n までの 数 それぞれの 2 乗 の 和 を 出 力 するプ ログラムを 上 の 解 答 群 の 行 を 必 要 なだけ 並 べて 作 成 せよ 解 答 群 にある 行 は 何 回 使 っ てもよい たとえば 4 を 入 力 すると = 30 なので 30 と 出 力 する 問 a) (15 点 ) 次 のいずれか アイクオキコソ イアクオキコソ 採 点 基 準 イを 抜 かした: -2 点 コソをソコとした: -2 点 ク... コ の 中 にケが 追 加 : -3 点 ク... コ の 中 にイが 追 加 : -3 点 ク... コ の 中 にキが 追 加 : -3 点 など 1つ 余 分 に 入 っている 場 合 はケアレスミスと 考 え: -3 点 問 b) 正 の 整 数 n を 入 力 したとき 1 から n までの 数 を 順 番 に 奇 数 については 1 回 偶 数 についてはその 数 の 回 数 だけくり 返 して 出 力 するプログラムを 上 の 解 答 群 の 行 を 必 要 なだけ 並 べて 次 のプログラムを 作 成 せよ 解 答 群 にある 行 は 何 回 使 ってもよい たとえば 4 を 入 力 すると と 出 力 する 問 b) (20 点 ) 次 のいずれか アクウサエスケセココ アクエサケセコスシセスコ アクエシウスケセココ アクエシセスサケセコスコ アクサエケセコスシセスコ アクサエスシウスケセココ アクシウスサエスケセココ アクシセスエサケセコスコ アクシセスサエケセコスコ 採 点 基 準 セ (i を 出 力 )のところを ソ (j を 出 力 )にした: -3 点 クXコ とするところを クX としている: -3 点 ケXコ とするところを ケX としている: -3 点 サXス とするところを サX としている: -3 点 シXス とするところを シX としている: -3 点 2

3 問 3-1 セルC3 に 3 を 入 力 する プロシージャ 名 は Sub ex31 とする 以 下 同 様 Sub ex31() Sheets("Sheet1").Range("C3").Value = 3 問 3-2 セルD3 に 5 を 入 力 する Sub ex32 Sub ex32() Sheets("Sheet1").Range("D3").Value = 5 問 3-3 セルE3 に セル C3 の 値 とセル D3 の 値 の 和 を 入 力 する Sub ex33 Sub ex33() Range("E3").Value = Range("C3").Value + Range("D3").Value 問 3-4 sample5 の 実 行 結 果 はどのようになるか セルD4に 式 =C1+B2 が 設 定 され 計 算 結 果 の11が 表 示 される 問 3-5 問 3-3 を Formula メソッドを 用 いて 記 述 しなさい Range("E3").Formula = =C3 + D3 問 3-6 ここまで 作 成 したブックをファイル 名 prog1.xlsm として 保 存 しなさい エクセルマクロ 有 効 ブック で 保 存 する 問 3-7 次 のプログラムを 入 力 し 実 行 しなさい a) メッセージボックスで 1,2,3,4,5と 順 に 表 示 される b) メッセージボックスで 1,3,5,7,9と 順 に 表 示 される c) メッセージボックスで 5,4,3,2,1と 順 に 表 示 される 問 3-8 次 の 条 件 を 満 たす For 文 を 記 述 しなさい また エラー! 参 照 元 が 見 つかりません を 参 考 にしてプログラムを 作 成 実 行 し 動 作 を 確 認 しなさい a) 変 数 j を 1 から 10 まで 繰 り 返 す For j = 1 to 10 b) 変 数 k を 10 から 100 まで 10 ずつ 増 やしながら 繰 り 返 す For k = 10 to 100 step 10 c) 変 数 m を 10 から 1 まで 繰 り 返 す For m = 10 to 1 step -1 d) 変 数 n を 100 から 10 まで 7 ずつ 減 らしながら 繰 り 返 す For n = 100 to 10 step -7 e) 変 数 p を a から b まで 繰 り 返 す For p = a to b f) 変 数 q をセル B1 の 値 からセル B2 の 値 まで 繰 り 返 す ただし セル B1 B2 の 値 はとも に 整 数 とし セル B1 の 値 <セル B2 の 値 とする For q = Range("B1").Value to Range("B2").Value g) 変 数 r をセル C1 の 値 からセル C2 の 値 まで 繰 り 返 す ただし セル C1 C2 の 値 はとも に 整 数 とし セル C1 の 値 >セル C2 の 値 とする For r = Range("C1").Value to Range("C2").Value step -1 3

4 問 3-9 次 のマクロをそれぞれ 入 力 し 実 行 結 果 を 比 較 しなさい この 結 果 より 値 をセルに 保 存 した 場 合 と 変 数 に 保 存 した 場 合 どのくらい 速 度 が 異 なるか 評 価 しなさい Sub speed1() Dim t As Single Dim i As Long t = Timer Sub speed2() Dim t As Single Dim i As Long Dim a As Integer, b As Long t = Timer For i = 1 To '1 万 回 Cells(1, 1) = 2 Cells(1, 2) = Cells(1, 1) + i MsgBox (Timer - t) & " 秒 " For i = 1 To a = 2 b = a + i MsgBox (Timer - t) & " 秒 " '1 億 回 実 行 例 : speed1 speed2 値 をセルに 保 存 した 場 合 :3.59 秒 10000=359 まいくろ μ 秒 / 回 (1 回 あたり359μ 秒 ) 値 を 変 数 に 保 存 した 場 合 :2.18 秒 =0.0218μ 秒 / 回 よって 変 数 に 保 存 したほうが 約 16,467 倍 速 い 問 3-10 次 の 繰 り 返 しを 実 現 するための Do 文 を 記 述 しなさい a) セルA1の 値 がゼロでない 間 は 繰 り 返 す Do While Range( A1 ).Value <> 0 または Do Until Range( A1 ).Value = 0 b) セルA1の 値 がプラスの 間 は 繰 り 返 す Do While Range( A1 ).Value > 0 または Do Until Range( A1 ).Value <= 0 c) セルB1の 値 がゼロになるまで 繰 り 返 す Do Until Range( B1 ).Value = 0 または Do While Range( B1 ).Value <> 0 d) セルB1の 値 が100を 超 えるまで 繰 り 返 す Do While Range( B1 ).Value <= 100 または Do Until Range( B1 ).Value > 100 e) セルC1の 値 が100 以 下 かつセルD1の 値 が100 以 下 の 間 は 繰 り 返 す Do While Range( C1 ).Value<=100 and Range( D1 ).Value <= 100 Do Until Range( C1 ).Value > 100 or Range( D1 ).Value > 100 4

5 問 3-11 次 の 条 件 分 岐 を 実 現 するための If 文 を 記 述 しなさい a) 変 数 bの 値 がゼロならば 変 数 cに3を 代 入 する If b = 0 Then c = 3 b) 変 数 dの 値 がゼロでないならば 変 数 eにd 10を 代 入 する If d <> 0 Then e = d * 10 c) セルB2の 値 がゼロならば 変 数 fにセルb2の 値 を 代 入 する If Range("B2").Value = 0 Then f = Range("B2").Value d) セルB3の 値 がゼロより 大 きいならば 変 数 gにセルb2の 値 を 代 入 する If Range("B3").Value > 0 Then g = Range("B2").Value e) セルB4の 値 が30 未 満 ならば 変 数 hに 変 数 h+1の 値 を 代 入 する If Range("B4").Value < 30 Then h = h + 1 f) セルB2から 下 にp 右 に0 移 動 したセルの 値 がゼロでないならば 変 数 sにその 値 を 加 える If Range("B2").Offset(p,0).Value <> 0 Then s = s + Range("B2").Offset(p,0).Value 問 3-12 sample8 を 変 更 して 鹿 沼 市 以 外 の 出 身 者 の 数 を 数 えるマクロを 10 秒 で 作 成 しなさい If Range("J5").Offset(i, 0).Value = " 鹿 沼 市 " Then を If Range("J5").Offset(i, 0).Value <> " 鹿 沼 市 " Then に 変 更 する 2 2 問 4-1 B 列 の 番 号 順 に 並 べ 替 えるマクロ sample12 を 作 成 しなさい Sub sample12() Sheets(" 基 礎 データ").Range("b6:x10").Sort _ Key1:=Range("b6"), Order1:=xlAscending, Orientation:=xlSortColumns 問 ページから 15 ページまで 40 部 ページ 単 位 (11 ページを 40 部 12 ページを 40 部 の 順 番 )で 印 刷 したい 場 合 どのような 記 述 となるか 考 えなさい ActiveWindow.SelectedSheets.PrintOut From:=11, To:= 15, Copies:=40, Collate:=False 問 5-2 上 記 のプロシージャを 実 行 するためのボタンを 設 定 しなさい 4.2 を 参 考 に ボタンを 配 置 し 実 行 したいマクロとして 印 刷 を 指 定 問 6-1 何 枚 のシートまで 結 合 できるか 試 しなさい 適 当 なシートのコピーを 繰 り 返 し 何 枚 まで 作 成 可 能 かを 実 行 して 調 べる シート 結 合 の 途 中 経 過 少 なくとも 2,620 枚 までは 可 能 仕 様 上 は メモリの 容 量 による 5

6 問 6-2 集 計 表 ( 基 礎 データ)の 行 列 を 反 転 せず そのまま 貼 り 付 けて 利 用 するマクロを 作 成 しな さい(すなわち 全 員 分 のデータが 縦 に 並 ぶ) Sub 表 の 作 成 () Dim syozoku As String Dim namae As String Sheets(" 基 礎 データ").Select Range("c5:z100").Value = "" For i = 1 To Range(" 人 数 ").Value syozoku = Sheets("t" & i).range("c6").value namae = Sheets("t" & i).range("e6").value ' 繰 り 返 し 変 数 何 番 目 を 処 理 しているか ' 所 属 名 ' 氏 名 ' 集 計 先 シートの 選 択 ' 集 計 先 セルのクリア ' 人 数 分 繰 り 返 す ' 所 属 を 取 得 ' 氏 名 を 取 得 Sheets(" 基 礎 データ").Range("b5").Offset(0, i).value = i Sheets(" 基 礎 データ").Range("b5").Offset(1, i).value = syozoku Sheets(" 基 礎 データ").Range("b5").Offset(2, i).value = namae Sheets("t" & i).select Range("e9:e28").Copy Sheets(" 基 礎 データ").Select Sheets(" 基 礎 データ").Range("b5").Offset(3, i).select Selection.PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' 番 号 を 集 計 先 に 転 記 ' 所 属 を 集 計 先 に 転 記 ' 氏 名 を 集 計 先 に 転 記 ' 転 送 元 シートの 選 択 'データの 範 囲 をコピー ' 集 計 先 シートの 選 択 ' 集 計 先 セルの 選 択 ' 集 計 先 シートへ 貼 り 付 け ' 繰 り 返 しここまで 問 8-1 Rnd 関 数 は 0 以 上 1 未 満 の 乱 数 値 を 返 す 0~9の 整 数 の 乱 数 値 を 得 るためには どの ような 式 を 用 いればよいか 考 えなさい Int( Rnd() * 10 ) 問 8-2 1~6の 整 数 の 乱 数 値 を 得 るためには どのような 式 を 用 いればよいか 考 えなさい Int( Rnd() * 6 ) + 1 6

7 問 ~999 の 整 数 の 乱 数 値 を 得 るためには どのような 式 を 用 いればよいか 考 えなさい Int( Rnd() * ( ) ) 問 8-4 1~10 の 乱 数 を 10 個 生 成 し その 度 数 分 布 ( 出 現 回 数 )を 求 めよ 乱 数 を 100 個 1,000 個 と 増 やした 場 合 度 数 分 布 はどのようになるか ヒント: 数 を 数 えるために 配 列 a(10) を 使 うとよい 度 数 分 布 の 例 : 回 100 回 1000 回 Sub test() Dim r As Integer Dim a(10) As Integer For i = 1 To 10 a(i) = 0 For i = 1 To 1000 r = Int(Rnd() * 10) + 1 a(r) = a(r) + 1 回 数 を 数 える 配 列 をゼロにする 1000 回 繰 り 返 す 乱 数 を 作 る 出 現 した 数 を1 回 増 やす For i = 1 To 10 Range("a1").Offset(i, 0).Value = i Range("a1").Offset(i, 1).Value = a(i) 結 果 をエクセルの 表 に 埋 める 7

8 問 8-5 1~10 の 乱 数 2つ 生 成 し その 和 を 求 めよ さらに この 乱 数 を 1,000 回 発 生 させたと きの 度 数 分 布 を 求 めよ どのような 分 布 になっているか 中 央 が 多 く 両 端 が 少 ない 正 規 分 布 Sub test2() Dim r1 As Integer, r2 As Integer Dim a(20) As Integer For i = 1 To 10 a(i) = 0 For i = 1 To 1000 r1 = Int(Rnd() * 10) + 1 r2 = Int(Rnd() * 10) + 1 a(r1 + r2) = a(r1 + r2) + 1 For i = 1 To 20 Range("a1").Offset(i, 0).Value = i Range("a1").Offset(i, 1).Value = a(i) 問 8-6 User32.dll には ここで 使 用 した GetAsyncKeyState 以 外 にどのような 関 数 が 含 まれて いるか 調 べなさい 参 照 : EnableWindow, ExitWindowsEx, GetClipboardData, GetWindowRect 問 8-7 User32.dll 以 外 にどのような dll が 存 在 するか 調 べなさい 参 照 : 上 記 Gdi32, Shell32, Wsock32 問 8-8 次 のプログラムを 入 力 し 実 行 しなさい( 実 行 時 には エクセルのシート 内 容 の 変 化 に 注 意 すること また キーボードの 左 矢 印 右 矢 印 を 押 してみること) 洞 窟 ゲーム( 別 名 スキーゲーム)ができる 問 8-9 座 標 大 きさが 異 なる 四 角 形 を 100 個 描 くマクロを 作 成 しなさい 実 行 例 8

9 Sub graphics_rect() Dim ch As Chart Dim a As Shape Dim x1 As Integer, y1 As Integer Dim x2 As Integer, y2 As Integer Set ch = Charts.Add ' 図 オブジェクト ' 図 形 オブジェクト ' 繰 り 返 し 用 変 数 ' 画 面 上 の 座 標 ' 画 面 上 の 座 標 ' シートに 図 オブジェクトを 追 加 For i = 1 To 100 ' 100 回 繰 り 返 す x1 = Int(Rnd() * 600) ' x 座 標 を 乱 数 (0~599)で 求 める y1 = Int(Rnd() * 400) ' y 座 標 を 乱 数 (0~399)で 求 める x2 = Int(Rnd() * 600) ' x 座 標 を 乱 数 (0~599)で 求 める y2 = Int(Rnd() * 400) ' y 座 標 を 乱 数 (0~399)で 求 める Set a = ch.shapes.addshape(msoshaperectangle, x1, y1, x2, y2) ' 四 角 を 図 形 として 追 加 する DoEvents ' OS に 動 作 を 委 譲 する( 描 画 する) 問 8-10 適 当 な 座 標 を 持 つ 直 線 を 色 を 変 えて 100 個 描 くマクロを 作 成 しなさい 実 行 例 Sub graphics_line() Dim ch As Chart Dim a As Shape Dim x1 As Integer, y1 As Integer Dim x2 As Integer, y2 As Integer Dim r As Byte, g As Byte, b As Byte Set ch = Charts.Add For i = 1 To 100 x1 = Int(Rnd() * 600) y1 = Int(Rnd() * 400) x2 = Int(Rnd() * 600) y2 = Int(Rnd() * 400) r = Int(Rnd() * 256) g = Int(Rnd() * 256) b = Int(Rnd() * 256) Set a = ch.shapes.addline(x1, y1, x2, y2) a.line.forecolor.rgb = RGB(r, g, b) DoEvents ' 図 オブジェクト ' 図 形 オブジェクト ' 繰 り 返 し 用 変 数 ' 画 面 上 の 座 標 ' 画 面 上 の 座 標 ' 色 ' シートに 図 オブジェクトを 追 加 ' 100 回 繰 り 返 す ' x 座 標 を 乱 数 (0~599)で 求 める ' y 座 標 を 乱 数 (0~399)で 求 める ' x 座 標 を 乱 数 (0~599)で 求 める ' y 座 標 を 乱 数 (0~399)で 求 める ' 色 の 赤 要 素 を 乱 数 (0~255)で 求 める ' 色 の 緑 要 素 を 乱 数 (0~255)で 求 める ' 色 の 青 要 素 を 乱 数 (0~255)で 求 める ' 直 線 を 図 形 として 追 加 する ' 輪 郭 線 の 色 を 設 定 する ' OS に 動 作 を 委 譲 する( 描 画 する) 9

10 問 8-11 次 のマクロを 入 力 し 実 行 しなさい Sub g2() Dim ch As Chart Dim a As Shape Set ch = Charts.Add ' 図 オブジェクト ' 図 形 オブジェクト ' 繰 り 返 し 用 変 数 ' シートに 図 オブジェクトを 追 加 For i = 0 To 300 Step 5 Set a = ch.shapes.addline(i, 0, 0, i) Set a = ch.shapes.addline(300, i, i, 300) DoEvents 実 行 結 果 問 8-12 分 数 の 計 算 : 次 のような 流 れのパワーポイントを 作 成 しなさい 省 略 問 9-1 文 字 列 型 変 数 b を 11 個 確 保 するための 命 令 を 記 述 しなさい Dim b(11) As String 問 9-2 倍 精 度 型 浮 動 小 数 点 数 型 変 数 c を 10,000 個 確 保 するための 命 令 を 記 述 しなさい Dim c(10000) As Double 10