改正版、【アンケート自動生成ＶＢＡ】
前回の反省点を元に機能を追加
この記事は過去記事を元に作成しています↓↓
bimori466-1.hatenablog.com
エクセルでアンケートを鬼のように作成されている方の助けになればと作成した記事です。
前回の４つ反省点として
１ 入力支援フォームの作成（「質問Ｓｈｅｅｔ作成入力フォーム」を作る。）
２ アンケートの質問文字列を「FrameのCaption」ではなく、「LABELのCaption」にする。
３ 「← 前へ」をクリックしたときに、前回回答した問題にチェックを入れる。
４ 回答集計Bookも自動で作成する。
がありました。
この４つのうち、１、２、４について機能を追加しました。この追加機能をメインに解説していきます。
１ 閲覧対象者
１ エクセルVBAのユーザーフォームでアンケートマクロを作成したい初心者の人。
２ エクセルでアンケートをたくさん作っている人。
３ Microsoft３６５ Formsの環境がない方（便利らしいです）。
２ 得られる効果
エクセルのフォーム機能で「ちまちま」アンケートを作る単純作業からの解放。
３ 設計
全体の設計は、過去記事を参照願います。
追加機能の設計について書いていきます。
１【入力支援フォーム】について
アンケートフォームを作るために必要なSheetへの入力方法を、ユーザーが意識することなくこのフォームから入力すればＯＫなものです。
前提として、回答方法は、
１ 単一回答（OptionButton）
２ 複数回答（CheckBox）
３ 自由形式（TextBox）
以上３つです。
＜実際の動作動画 新規作成＞
＜実際の動作動画 既存追加 ＊職業を追加する＞
動画の通り、質問label、回答Frameを自動で生成します。
入力支援フォームから入力したものをそのままアンケートとして使うことができます。
＜自動作成フォームの画面＞
満足度というSheet名を作成して、質問項目を作成。
Ｑ１が単一回答（OptionButton）
Ｑ２が複数回答（CheckBox）
Ｑ３が自由形式（TextBox）
＜入力支援フォーム画面＞
＊追加機能の説明で詳しく解説します。
２【アンケートの質問文字列を「FrameのCaption」ではなく、「LABELのCaption」にする】
＜前回のアンケート回答Form画面＞
下の画面のように、「Q１～Q３」の「年齢、職業、弊社サービスを～」がFrameのCaptionに書かれています。
しかし、実際もっと長文の質問もあります。これだと、FrameのCaptionでは文字が切れてしまいます。
そのため、質問内容は、LabelのCaptionに記載するようにしました。
＜LabelのCaptionに質問内容を記載するようにした、今回の画面＞
質問内容と回答を分けることで、質問内容が１４０字まで書き込めます。
Formの幅を変更すれば、表示文字数の変更は対応可能です。
４【回答集計Bookも自動で作成する】
前回までは、「アンケート回答書込みBook」を準備しておく必要がありました。しかし、今回は「アンケート回答書込みBook」が無い場合は、同じフォルダ内に自動で作成して回答を書き込みます。
＊追加機能の説明で詳しく解説します。
４ ユーザフォームの処理を解説
アンケート作成から質問回答登録の流れ
１ 入力支援フォームでアンケート内容を作成。
２ ユーザーフォームの表示（UserForm_Initialize）
３ 「回答開始」をクリック（cmd_strart_Click）、回答を入力する。
４ 「次へ→」をクリック（cmd_Next_Click）
５ 最後の質問になったら、「回答を送信」をクリック（cmd_回答送信_Click）。
６ 回答集計Bookが同一フォルダに有れば、回答集計Sheetにアンケート結果が反映される。
無ければ、同一フォルダに回答集計Bookを作成して、回答集計Sheetにアンケート結果が反映される。
＊全体詳細については、過去記事「ユーザーフォームの処理を解説」を見てください。
bimori466-1.hatenablog.com
５ 追加機能の説明
１【入力支援フォーム】の詳細説明
まず、ユーザーフォームでフォームを自動作成するには下の画像のようなSheetを準備する必要があります。
＜準備するSheet｛Q1～Q6のアンケート｝＞
手打ちでもできなくはないのですが、ユーザー側からすると「なんで同じものを書かなきゃならねんだ」と文句がきそうですね。そのため、楽に入力できる「入力支援フォーム」を作りました。
【使い方】処理：「新規作成」「既存追加」の２点です。
■「新規作成」処理の流れ
【例題】：質問項目に「年齢」を作成する場合
１）マクロ「uf_Question_Input_creation」を実行。
２）追加するSheet名を記入（ここでは年齢Sheetとしておきます）
３）質問内容に年齢を記入
４）項目作成をクリック
５）項目数を６にする。入力項目作成をクリック
６）項目内容に、１０代～６０代を入力
７）質問を登録をクリック
８）次の質問を作成しますかで、「はい」をクリック
では、１）～８）まで詳しく解説します。
【１）マクロ「uf_Question_Input_creation」を実行。】
Alt ＋ F8を押してマクロを呼び出し、uf_Question_Input_creationを選択して実行します。
マクロを実行すると以下の入力支援フォーム画面が出てきます。
＜入力支援フォーム画面＞
今回操作が必要なのは蛍光ペンを引いたところです。
【２）追加するSheet名を記入】
入力支援フォーム画面の「追加Sheet名」の右のテキストボックスに「年齢Sheet」と記入します。
【３）質問内容に年齢を記入】
＜ここまでのフォーム画面＞
【４）項目作成をクリック】
＜項目作成フォームが出現する＞
項目数を６にして、入力項目作成をクリックする。
項目作成コントロールが出現するので、１０代～６０代を記入。
＜項目作成コントロール出現画面＞
項目登録をクリックする。すると最初の画面の質問項目のリストボックスに、項目が登録される。
＜リストボックスに書きこまれた画面＞
【７）質問を登録をクリック】
エクセルSheetに年齢Sheetが作成され、作成した「年齢」項目が記入される。
＜エクセルSheetへの転記画面＞
【８）次の質問を作成しますかで、「はい」をクリック】
質問を登録をクリック後に、次を作成するか確認されます。
＜質問作成の確認画面＞
「はい」を選択すると、１）と同じように質問項目を作成できるように初期化される。
＊回答型式について
単一回答であれば、「作成時のフォームオブジェクト」がoptionボタンとなる。
複数回答であれば、「作成時のフォームオブジェクト」がcheckボックスとなる。
自由形式であれば、「作成時のフォームオブジェクト」がtextボックスとなる。
ここを参照して、フォームの自動生成する。
入力を任意にすれば入力チェック処理に引っかからない。
以上の要領でアンケートSheetを新規作成していく。
■「既存追加」処理の流れ
【例題】：質問項目に「年齢」に追加する場合
１）マクロ「uf_Question_Input_creation」を実行。
２）処理の「既存追加」を選択する
３）改修Sheet名に「年齢Sheet」を選択する
４）質問番号に「２」を入力する
５）質問内容に「好きな食べ物」を入力する
６）回答型式の「複数回答」を選択する
７）項目作成をクリック。質問項目数に「３」、項目内容に「りんご」「ぶどう」「その他」を入力する
８）項目登録をクリックする
９）質問を登録をクリックする
では、１）～９）まで詳しく解説します。
【１）マクロ「uf_Question_Input_creation」を実行。】
Alt ＋ F8を押してマクロを呼び出し、uf_Question_Input_creationを選択して実行します。
入力支援フォーム画面を呼び出す。
【２）処理の「既存追加」を選択する】
【３）改修Sheet名に「年齢Sheet」を選択する】
【４）質問番号に「２」を入力する】
【５）質問内容に「好きな食べ物」を入力する】
【６）回答型式の「複数回答」を選択する】
【７）項目作成をクリック。質問項目数に「３」、項目内容に「りんご」「ぶどう」「その他」を入力する】
【８）項目登録をクリックする】
【９）質問を登録をクリックする】
＜Q2が追加された＞
以上の要領でアンケートSheetに追加していく。
【２ アンケートの質問文字列を「FrameのCaption」ではなく、「LABELのCaption」にする】
設計の通りです。もう一度書いておくと、質問の文字数、項目数が増えたとしても、Label、Frameのはばを調整すれば、変更可能です。
現状、質問内容は１４０字、回答コントロール（自由形式以外）は７つまで、が見やすい設計になっています。
【４ 回答集計Bookも自動で作成する。】
このアンケートエクセルは、基本アンケート内容ごとにBookをコピーして使うことを想定しています。その部分の作りが甘い気がしますが、今回は質問数が変わっても、回答更新SQLが更新されるようにしました。
設計の内容を詳しく解説します。
下の画像にフォルダの中に、アンケート自動作成エクセルだけがあります。もちろん回答を書き込むエクセルは存在しません。
＜アンケート自動作成エクセルの保存先画像＞
アンケート回答後、同一フォルダ内に回答集計Sheetが作成されます。
＜回答送信後のメッセージボックスの画像＞
新規回答集計Bookが作成され、回答内容が書き込まれる。
フォルダを確認すると、回答集計Bookが作成されている。
以上が、今回追加した機能です。
６ 反省点
１ その他のSQL文更新に不具合が２回見つかった（修正済み）。最初の設計の大事さを痛感した。
２ 回答１で、「はい」を選んだ方は～、のようなアンケートには対応していない。これに対応しようとすると、最初の設計から見直さなければならないため、今のところ作るきがないです。現状、質問内容に書いて対応するしかない。
