ExcelVBA 実技問題集

Size: px

Start display at page:

Download "ExcelVBA 実技問題集"

けいざぶろうののした
5 years ago
Views:

1 ExcelVBA 問題集全 64 問第 1 章シート上で VBA 入門 11 問 P 1 第 2 章シート上で VBA 応用 16 問 P 4 全商 2 級対応第 3 章ユーザーフォームでVBA 入門 21 問 P 9 全商 2 級対応第 4 章ユーザーフォームでVBAファイル処理 8 問 P16 全商 1 級対応第 5 章ユーザーフォームでVBA 全商検定 1 級 8 問 P20 実技を通してプログラミングの楽しさを知ろう! 必要なプログラムは問題集にメモメモ大切! ( ) 年 ( ) 組 ( ) 番氏名 ( ) 0

第 1 章シート上で VBA 入門第 1 章シート上で VBA 入門問題 1 ボタンは

問題 3 1 ボタンをクリックするとセル A1 に hello セル B2 に VBA セル

2 第 1 章シート上で VBA 入門第 1 章シート上で VBA 入門問題 1 ボタンはフォームコントロールでも ActiveX コントロールでもどちらでよいエクセルのシートと VBA を連動させよう! 1 セル A1~C3 を選択する問題 2 1 セル A1 とセル B2~C3 を選択する問題 3 1 ボタンをクリックするとセル A1 に hello セル B2 に VBA セル C2 に World! と表示する問題 4 1 セル A1 の値が 70 以上ならメッセージボックスで合格と表示するそうでないなら不合格と表示する 1

3 問題 5 第 1 章シート上で VBA 入門 1 セル A1 の値が 80 以上ならメッセージボックスで合格! 素晴らしいと表示する 2 80 以上ではないが 50 以上なら合格と表示し 50 以上でもないなら不合格と表示する問題 6 1 セル A1 の値が 80 以上でセル B1 の値も 70 以上の場合はメッセージボックスで合格と表示するそうでないなら不合格と表示する問題 7 1 セル A1 か B1 のいずれかの値が 70 以上の場合はメッセージボックスで合格と表示するそうでないなら不合格と表示する問題 8 1 セル A1 と B1 の値のうち大きいほうの値をメッセージボックスで表示するなおセル A1 と B1 が同じ数値になることはない 2

問題 9 第 1 章シート上で VBA 入門 1 セル A1 と B1 の値のうち大きいほうの値をメッセージボックスで表示するもし同じ数値であればメッセージボックスで同じ数値ですと表示する問題 10 1 セル A1 と B1 と C1 の 3 つの値が同じであればセル A3 に大当たりという文字列を表示するそうでなければはずれという文字列を表示する

4 問題 9 第 1 章シート上で VBA 入門 1 セル A1 と B1 の値のうち大きいほうの値をメッセージボックスで表示するもし同じ数値であればメッセージボックスで同じ数値ですと表示する問題 10 1 セル A1 と B1 と C1 の 3 つの値が同じであればセル A3 に大当たりという文字列を表示するそうでなければはずれという文字列を表示する問題 11 1 セル A1 と B1 と C1 の 3 つの値が同じであればセル A3 に大当たりという文字列を表示するセル A1 と B1 と C1 のいずれか 2 つが同じ値であれば当たりと表示するすべて違う値であればはずれと表示する 2 なお次の変数を使用することセル A1 の値 atai1 セル B1 の値 atai2 セル C1 の値 atai3 3

5 第 2 章シート上で VBA 応用第 2 章シート上で VBA 応用複雑な条件分岐や繰り返し処理を学びましょう特に繰り返し処理はとても重要! 無限ループにならないよう定期的に保存すること問題 1 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A ( それ以外 ) セル A2 秀優良可不可問題 2 1 次のようにセル A1 の文字列に応じてセル A2 に文字列を表示するセル A1 りんごみかんばなな ( それ以外 ) セル A2 apple orange banana? 問題 3 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A ( それ以外 ) セル A2 水お茶ジュースその他 4

問題 4 第 2 章シート上で VBA 応用 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A1 0~5 6~15 16~30 ( それ以外 ) セル A2 特賞旅行券商品券はずれ問題 5 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A1 100 以上 60~99 40~59 ( それ以外 ) セル

6 問題 4 第 2 章シート上で VBA 応用 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A1 0~5 6~15 16~30 ( それ以外 ) セル A2 特賞旅行券商品券はずれ問題 5 1 次のようにセル A1 の値に応じてセル A2 に文字列を表示するセル A1 100 以上 60~99 40~59 ( それ以外 ) セル A2 大当たり当たりもう 1 回はずれ問題 6 1 ランダムで運勢を表示する 2 Rnd を使用して 1~5 の範囲で乱数を設定しそれぞれの数値に応じた結果をメッセージボックスで表示する乱数は表示しない 1 大吉 2 中吉 3 小吉 4 吉それ以外凶ヒント 1~9 の整数の乱数を変数 atai に代入する atai = Int(Rnd * 9) + 1 5

と表示するなお For~Next を使用すること問題 9 1 セル A1~A10 にこんにちはという文字列を表示するなお For~Next と Cells を使用すること問題

7 問題 7 第 2 章シート上で VBA 応用 1 メッセージボックスを 3 回表示する 2 メッセージボックスには回目の表示ですと表示するなお For~Next を使用すること問題 8 実行画面 ( セル A1 に 8 が入力された場合 ) 1 セル A1 に入力された数値の回数だけメッセージボックスを表示する 2 メッセージボックスには回目の表示ですと表示するなお For~Next を使用すること問題 9 1 セル A1~A10 にこんにちはという文字列を表示するなお For~Next と Cells を使用すること問題 10 1 セル A1~A10 に 1~10 の数値を表示するセル A1 には 1 セル A2 には 2 セル A10 には 10 を表示するなお For~Next と Cells を使用すること 6

100~1000 の数値を表示するセル A1 には 100 セル A2 には 200 セル A10 には 1000 を表示するなお

8 問題 11 第 2 章シート上で VBA 応用 1 セル A1~A10 に 10~1 の数値を表示するセル A1 には 10 セル A2 には 9 セル A10 には 1 を表示するなお For~Next と Cells を使用すること問題 12 1 セル A1~A10 に 100~1000 の数値を表示するセル A1 には 100 セル A2 には 200 セル A10 には 1000 を表示するなお For~Next と Cells を使用すること問題 13 1 下記の実行画面のように掛け算の九九を作成することなお For~Next と Cells を使用すること 7

9 問題 14 第 2 章シート上で VBA 応用 1 セル A1~A10 に 1~10 の数値を表示するセル A1 には 1 セル A2 には 2 セル A10 には 10 を表示するなお Do While~Loop を使用すること変数は各自で設定すること問題 15 1 セル A1~A10 に 5~905 の数値を表示するセル A1 には 5 セル A2 には 10 5 セル A10 には 905 を表示するなお Do While~Loop を使用すること変数は各自で設定すること問題 16 1 セル A1~A10 に 1~10 の数値を表示するセル A1 には 1 セル A2 には 2 セル A10 には 10 を表示するなお Do Until~Loop を使用すること変数は各自で設定すること 8

第 3 章ユーザーフォームで VBA 入門第 3 章ユーザーフォームで VBA 入門問題 1 全商情報処理検定プログラミング部門に完全対応しています検定問題を解くだけでなく実際にプログラミングをして楽しさを実感しよう 1 実行直後は CAT と表示されていない 2 表示をクリックすると右側のラベルに CAT と表示する 3 消去

10 第 3 章ユーザーフォームで VBA 入門第 3 章ユーザーフォームで VBA 入門問題 1 全商情報処理検定プログラミング部門に完全対応しています検定問題を解くだけでなく実際にプログラミングをして楽しさを実感しよう 1 実行直後は CAT と表示されていない 2 表示をクリックすると右側のラベルに CAT と表示する 3 消去をクリックすると CAT という表示を消す問題 2 1 その 1 をクリックするとニャーニャーというメッセージを表示する 2 その 2 をクリックするとにゃんにゃんというメッセージを表示する問題 3 1 戦うをクリックするとメッセージボックスを上記のように 2 つ表示し終了する 2 逃げるをクリックするとメッセージボックスを上記のように表示し終了する 9

問題 4 第 3 章ユーザーフォームで VBA 入門 1 テキストボックスに任意の 2 つの数値を入力する 2 足し算掛け算をクリックすると入力された 2 つの数値の計算結果をラベルに表示するただしマークと 3 桁ずつのカンマを表示する 3 足し算掛け算どちらを先にクリックしても正しい計算結果を表示する問題 5 1 名前の設定

11 問題 4 第 3 章ユーザーフォームで VBA 入門 1 テキストボックスに任意の 2 つの数値を入力する 2 足し算掛け算をクリックすると入力された 2 つの数値の計算結果をラベルに表示するただしマークと 3 桁ずつのカンマを表示する 3 足し算掛け算どちらを先にクリックしても正しい計算結果を表示する問題 5 1 名前の設定をクリックし名前を設定する 2 その後表示をクリックすると設定した名前をメッセージボックスで表示する問題 6 1 名前の設定をクリックし名前を設定するその後表示をクリックすると設定した名前をメッセージボックスで表示する 2 名前の設定を行う前に表示をクリックすると名前の設定をして下さいというメッセージボックスが表示される 10

問題 7 第 3 章ユーザーフォームで VBA 入門 1 数量をテキストボックスに入力し

円で計算する 3 消費税を加えた金額を表示する消費税は 8% とする問題 8 1

まぁまぁです 440 点未満再テストです問題 9 1 数量に応じて金額を表示する単価は

12 問題 7 第 3 章ユーザーフォームで VBA 入門 1 数量をテキストボックスに入力し代金を計算する 2 一般のお客様は単価 100 円で計算しお得意様は単価 90 円で計算する 3 消費税を加えた金額を表示する消費税は 8% とする問題 8 1 ボタンをクリックし得点を入力すると得点に応じたメッセージボックスを表示する 2 表示するメッセージボックスは以下の通りである 1100 点満点です! おめでとう 2100 点未満 70 点以上優秀です 370 点未満 40 点以上まぁまぁです 440 点未満再テストです問題 9 1 数量に応じて金額を表示する単価は 1 個 120 円である 2 数量が 100 個以上なら金額を 1 割引きにする例 )10 個購入 1, 個購入 10,800 11

13 問題 10 第 3 章ユーザーフォームで VBA 入門 1 人数に入場料を掛けて金額を表示する 2 男性の入場料は一人 1,200 円女性は一人 1,080 円である 3 性別に男か女以外の文字列が入力された場合性別に男か女を入力して下さいとメッセージボックスで表示する問題 11 1 テキストボックスに入力した文字と答えが正しいかどうか判断して判定を表示する問題 12 1 ボタンをクリックするとテキストボックスに入力した 2 つの数字をもとに評価を表示する 2 テスト A テスト B ともに点で評価されており合計点の最高は 4 点である 3 合計点を以下の基準で評価する 4 点秀 3 点優 2 点良 1 点可 0 点不可 12

Caption = " ああああ " というプログラムではなく Label1 に " あ " という文字列を 10 回繰り返して追加するという方法を用いること 2 繰り返し処理は下記の 2

14 問題 13 第 3 章ユーザーフォームで VBA 入門 1 ボタンをクリックするとメッセージボックスでおみくじの結果を表示する 2 おみくじの結果は乱数を使用しランダムに表示する 3 おみくじの種類は大吉吉中吉小吉凶大凶の 6 種類である問題 14 1 Label に文字列あを 10 回繰り返して表示する Label1.Caption = " ああああ " というプログラムではなく Label1 に " あ " という文字列を 10 回繰り返して追加するという方法を用いること 2 繰り返し処理は下記の 2 つのいずれの方法を使用してもよい (1)For ~ Next (2)Do While ~ Loop 問題 15 1 Label に文字列あを縦に 5 回繰り返して表示する 2 繰り返し処理は下記の 2 つのいずれの方法を使用してもよい (1)For ~ Next (2)Do While ~ Loop 13

問題 16 第 3 章ユーザーフォームで VBA 入門 1 回数の設定をクリックし

上記の例は 10+11+12+ + 59+60 の結果の 1785 を表示している問題 18 1

15 問題 16 第 3 章ユーザーフォームで VBA 入門 1 回数の設定をクリックし繰り返す回数を数値で入力する 2 1 で設定した回数だけメッセージボックスを表示する ( 例 :1 で 3 と入力すると 3 回メッセージボックスを表示する ) その際回目を実行中ですと表示する問題 17 1 左のテキストボックスの値から右のテキストボックスの値までを合計しラベルに表示する例 ) 上記の例はの結果の 1785 を表示している問題 18 1 各ボタンをクリックすると繰り返し処理を利用し回答をメッセージボックスで表示する 2 奇数はをプラスする 14

と表示し正しくなければ不正解と表示する 3 正解していた場合は新しい問題を引き続いて出題する不正解だった場合はテキストボックスが消去されるだけで乱数は変わらず同じ問題が出題される問題 21 1 スタートをクリックすると

16 問題 19 第 3 章ユーザーフォームで VBA 入門 1 最初に 1~50 の乱数を 2 つ表示しその和を入力し正解かどうか判定する 2 テキストボックスに解答を入力後判定をクリックし解答が正しければメッセージボックスで正解! と表示し正しくなければ不正解と表示する問題 20 1 最初に1~50の乱数を 2 つ表示しその和を入力し正解かどうか判定する 2 テキストボックスに解答を入力後判定をクリックし解答が正しければメッセージボックスで正解! と表示し正しくなければ不正解と表示する 3 正解していた場合は新しい問題を引き続いて出題する不正解だった場合はテキストボックスが消去されるだけで乱数は変わらず同じ問題が出題される問題 21 1 スタートをクリックするとラベルに乱数を3つ表示する 2 乱数は1~9の整数の乱数である 3 乱数の下に判定結果を表示する基準は以下の通りである (1)3 つの数値が同じ大当たり (2) いずれか 2 つの数値が同じ当たり (3)(1)(2) 以外はずれ 15

そしてプログラミングの幅が大きく広がります問題 1 1 処理をクリックするとファイルを読み込み

17 第 4 章ユーザーフォームで VBA ファイル処理第 4 章ユーザーフォームで VBA ファイル処理ファイル処理は慣れるまでは少し難しく感じるかもしれませんしかし慣れれば簡単! そしてプログラミングの幅が大きく広がります問題 1 1 処理をクリックするとファイルを読み込みラベルに表示する 2 使用するファイル名は data4_1.csv とする問題 2 1 処理をクリックするとファイルを読み込みラベルに表示する 16

18 問題 3 第 4 章ユーザーフォームで VBA ファイル処理 1 処理をクリックするとファイルを読み込みラベルに表示する 2 売上数量の合計を表示する問題 4 1 処理をクリックするとデータを読み込み表示する 2 最後に各授業の平均点を表示する小数点以下は表示してもしなくてもどちらでもよい問題 5 1 処理をクリックするとファイルを読み込み売上数量の合計を表示する 2 ファイル形式は以下のとおりである商品コード売上数量 17

コードと売上数量をファイルから読み込み該当するコードの商品名と売上高を表示する売上高は売上数量該当する単価で求める 2 1 つのレコードはコードと売上数量で構成されている 3 コードから商品名を探す際は

19 問題 6 第 4 章ユーザーフォームで VBA ファイル処理 1 コードをテキストボックスに入力し表示をクリックするとコードに該当する商品名を表示する 2 コードから商品名を探す際は線形探索のアルゴリズムで探索すること 3 コードと商品名は以下の配列を用意すること code namae 鉛筆ノート消しゴム定規ボールペン問題 7 1 コードと売上数量をファイルから読み込み該当するコードの商品名と売上高を表示する売上高は売上数量該当する単価で求める 2 1 つのレコードはコードと売上数量で構成されている 3 コードから商品名を探す際は線形探索のアルゴリズムで探索すること 4 コード商品名単価は以下の配列を用意すること code namae 鉛筆ノート消しゴム定規ボールペン tanka

コードから商品名を探す際は線形探索のアルゴリズムで探索すること 4 コード商品名

20 問題 8 第 4 章ユーザーフォームで VBA ファイル処理 1 コードと売上数量をファイルから読み込み該当箇所に売上数量を集計する 2 1 つのレコードはコードと売上数量で構成されている 3 コードから商品名を探す際は線形探索のアルゴリズムで探索すること 4 コード商品名売上数合計は以下の配列を用意すること code namae 鉛筆ノート消しゴム定規ボールペン kei 19

第 5 章ユーザーフォームで VBA 全商検定 1 級解答第 5 章ユーザーフォームで VBA 全商検定 1 級問題 1 ついに実技で 1

csv) を読み込み以下の配列 uri に各店員が売り上げた商品ごとの売上数量を集計し表示する 2 入力データは店員番号 (1~5)

添字に対応している uri (1) (2) (3) (1) (2) (3) (4) (5) 問題 2 1

21 第 5 章ユーザーフォームで VBA 全商検定 1 級解答第 5 章ユーザーフォームで VBA 全商検定 1 級問題 1 ついに実技で 1 級範囲に突入! 難しいけどその分動いたときの感動は大きいです色々な答えがあるので自分で考えてプログラムを編み出そう 1 ファイル (data5_1.csv) を読み込み以下の配列 uri に各店員が売り上げた商品ごとの売上数量を集計し表示する 2 入力データは店員番号 (1~5) 商品番号(1~3) 売上数量で構成されている 3 集計には以下の配列を使用するなお店員番号は縦方向の添字に対応し商品番号は横方向の添字に対応している uri (1) (2) (3) (1) (2) (3) (4) (5) 問題 2 1 あらかじめ配列に記憶されている点数データに降順に順位をつけて表示する 2 点数は配列 ten を使用しあらかじめ数値を記憶しておく順位は配列 jun を使用するなお添字は出席番号に対応している ten jun 20

第 5 章ユーザーフォームで VBA 全商検定 1 級解答問題 3 1 ファイルから点数を読み込み

点数の順に記憶されている 4 合計点は配列 goukei を使用し順位は配列 jun を使用するなお

あらかじめ配列に記憶されている売上高データを降順に並べ替えて表示する 2 並べ替えのアルゴリズムは隣接交換法

22 第 5 章ユーザーフォームで VBA 全商検定 1 級解答問題 3 1 ファイルから点数を読み込み合計点を計算し合計点の降順に順位をつけて表示する 2 入力データは出席番号授業番号 (1~3) 点数の順に記憶されている 4 合計点は配列 goukei を使用し順位は配列 jun を使用するなお添字は出席番号に対応している goukei jun 問題 4 1 あらかじめ配列に記憶されている売上高データを降順に並べ替えて表示する 2 並べ替えのアルゴリズムは隣接交換法 ( バブルソート ) を利用すること 3 売上高は配列 uriage を使用しあらかじめ数値を記憶しておく uriage

売上数を降順に表示しさえすればよく売上数に該当する従業員コードを表示する必要はない 4 配列は必要に応じて各自で用意して使用する問題 6 1 ファイル

23 第 5 章ユーザーフォームで VBA 全商検定 1 級解答問題 5 1 ファイル (data5_5.csv) から売上数を読み込み売上数の合計を降順に並べ替えて表示する 2 ファイルは従業員コード (1~5) 売上数で構成されている 3 売上数を降順に表示しさえすればよく売上数に該当する従業員コードを表示する必要はない 4 配列は必要に応じて各自で用意して使用する問題 6 1 ファイル (data5_6.csv) から売上数を読み込み売上数の合計を降順に並べ替えて表示する 2 ファイルは従業員コード (1~5) 売上数で構成されている 3 売上数に該当する従業員コードと売上数を降順に表示する 4 配列は必要に応じて各自で用意して使用する 22

第 5 章ユーザーフォームで VBA 全商検定 1 級解答問題 7 data5_7_clerk.csv data5_7_sales.

csv 店員情報店員番号 ( 整数型 ) 氏名 ( 文字列型 ) 性別 ( 文字列型 ) data5_7_sales.

整数型 ) 売上数 ( 整数型 ) 2 店員ごとの売上数量を集計し売上数量合計の降順に順位をつける 3 10

24 第 5 章ユーザーフォームで VBA 全商検定 1 級解答問題 7 data5_7_clerk.csv data5_7_sales.csv 1 ファイルの入力形式は下記の通りである data5_7_clerk.csv 店員情報店員番号 ( 整数型 ) 氏名 ( 文字列型 ) 性別 ( 文字列型 ) data5_7_sales.csv 売上情報店員番号顧客コード売上年月日 ( 整数型 ) ( 整数型 ) ( 文字列型 ) 勤続年数 ( 整数型 ) 売上商品番号 ( 整数型 ) 売上数 ( 整数型 ) 2 店員ごとの売上数量を集計し売上数量合計の降順に順位をつける 3 10 位までの店員名と売上数量合計を表示する自由に配布改変して下さいただしオリジナルの著作権は放棄していません内容に関する質問や誤植等は下記までご連絡下さい syougyoukyouiku@yahoo.co.jp Akira Sasaki 23

情報基礎Ａ

情報基礎Ａ情報基礎 A 第 10 週プログラミング入門マクロ基本文法 4 1 配列 FOR~NEXT 全眞嬉東北大学情報科学研究科システム情報科学専攻情報システム評価学分野 http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho-19.html 6 人分の合計を計算 2 socre(0) socre(1) socre(2) socre(3) socre(4) socre(5)

ExcelVBA 実技 問題集

ExcelVBA 実技問題集