州に対して大きく、会社に対して小さく、そして組織の決定は、何かに対する考え方または観点の根底にあるアンケートに基づいています。紙を使うと、資源を浪費するだけでなく、統計の難しさも増しますが、電子アンケートを使えば、これらの問題を解決できます。次のシステムホームでは、電子アンケートアンケートの作成方法を紹介します。例の説明：最近、リーダーシップが社長Lao Zhangに引き渡されました。これは、社内の全従業員を対象としたアンケート調査を実施するための緊急の課題です。この統計作業は完了するまでに数日かかったため、時間と労力を要します。アンケートはWebページの形でイントラネットに公開することができ、従業員はそれをクライアント側で送信することを選択しましたが、コンピュータが自動的に結果を数えます。ラオチャンは幸せでした。 Webページのアンケート作成最初に、Wordを開いて空白の文書を作成し、[表示]ツールバーの[Webツールボックス]を選択し、[Webツール]ウィンドウのポップアップで[送信]ボタンをクリックします。 [送信]ボタンは、ドキュメント上部のフォームの下部に表示されます。\\ nフォームの下部に表示されます。空白行にカーソルを置き、調査したいコンテンツを入力するか貼り付けます。次に、最初の調査コンテンツ「[選択してください]にカーソルを置き、[オプションボタン]で[Webツールボックス]を選択してラジオボタンをカーソルに挿入します。その後に大文字のAが続きます。ユニットボタンを右クリックしてそのHTMLNnameプロパティ（つまりWebページ内の名前）をR1に設定し、Valueプロパティ（つまりその値）をAに設定し、2番目のラジオボタンを挿入します。その後に大文字のBが続き、そのHTMLNnameプロパティもR1、ValueプロパティはBというように続きます。 2番目の調査コンテンツの4つのラジオボタンを挿入するときは、それらのHTMLNname属性をR2に設定する必要があります。その他の設定は、最後の調査コンテンツの4つの項目が追加されるまで最初の質問のボタンと同じです。選択ボタン（図1）調査終了時に従業員に会社の他の提案を記入させたい場合は、[Webツールボックス]の[テキスト領域]コントロールをクリックして、ページに[テキスト領域]コントロールを挿入します。この"テキスト領域"コントロールのHTMLNnameプロパティを' yj'に設定します。 「送信」ボタンを右クリックして、そのActionプロパティを「jg.asp」に設定します。つまり、ユーザーは各ラジオボタンの値をjg.aspファイルに送信します（図2）。ヒント：ラジオボタンを簡単に追加するには、[ツール] - [マクロ] - [Visual Basicエディタ]メニューを選択し、[VBAのポップアップ]ウィンドウで[挿入&モジュール]メニューを選択して、右側のコードを編集します。ウィンドウがダイアグラムのコードを入力します。 Wordの文書ウィンドウに戻って[ツールバーとカスタマイズ]メニューを選択し、[カスタマイズ]ウィンドウの[注文]タブを選択して[保存先]セクションで選択します。文書名は、「カテゴリ」で「マクロ」を選択し、「コマンド」でコードのプロセス名を選択し（例：ラジオボタンを挿入）、マウスでツールバーにドラッグします。そして、[名前の変更]を右クリックして[ウィンドウのカスタマイズ]を閉じます。その後、ラジオボタンを挿入する位置にカーソルを置き、直接クリックして確認する質問番号を入力すると、4つのラジオボタンA、B、C、Dが自動的に追加されるので、再度入力する必要はありません。設定します。質問番号を入力してラジオボタンを直接挿入したくない場合は、コードの2行目を削除して3行目に置き換えることができます。この行の前にある' ''を削除するように注意してください（図3）。ヒント：コードを機能させるには、[ツール] - [マクロ] - [セキュリティ]メニューを選択し、ポップアップウィンドウでマクロのセキュリティを[低]に設定する必要もあります。最後にドキュメントをWebページファイルindex.htmとして保存します。この記事では、index.htmをD：\\ 123フォルダに保存します。受信ファイルの作成受信ファイルを作成する前に、D：\\ 123フォルダに "' Survey Results.xls"という名前のExcelファイルを作成する必要があります。 '、別の名前は'推奨'です。その中で、 "結果"という名前のワークリストの各質問の人数の合計、Aの数、Bの数、Cの数、Dの数を最初に入力する必要があります。各質問のオプション比率は次のとおりです。選択肢の数は、パーセンテージスタイルでフォーマットされた質問内の人数の合計で割られます;「推奨」という名前のワークシートは、会社のための従業員の提案を格納するために使用されます。 （図4）次に、受信コードを書いてください。最初にDドライブのフォルダに "' 123"という名前のテキストファイルを作成し、次にこのファイルのファイルにコードを入力して、最後にテキストファイルの名前をjg.aspに変更し、拡張子に注意します。変更する（図5） Webページと従業員アクセスページの公開まず、コンピュータルームのサーバーにIIS管理ツールをインストールします。サーバーシステムのバージョンに基づいてインターネット上のIISインストールアーカイブをダウンロードし、それをディスクに抽出することができます。次に、[スタート] - [コントロールパネル] - [プログラムの追加と削除]を選択し、[Windowsコンポーネントの追加と削除]を選択して、[Windowsコンポーネントウィザード]ウィンドウで[インターネットインフォメーションサービス]をオンにします。 IIS）をインストールします。インストールファイルを選択するように求められたら、IISインストールパッケージがあるフォルダを選択します。インストールが完了したら、[ローカルコンピュータ]、[既定のWebサイト]の順に展開した左側のポップアップウィンドウで、[スタート] - [設定] - [コントロールパネル] - [インターネットインフォメーションサービス] - [インターネットインフォメーションサービス]の順にクリックします。 [既定のWebサイト]を右クリックして[プロパティ]メニューを選択し、[既定のサイトのプロパティ]ポップアップウィンドウで[メインメニュー]タブをクリックし、[参照]ボタンをクリックしてインデックスを選択します。 .htmがあるフォルダ：D：\\ 123'、次のオプションを確認してください。'書き込み'書き込み'次に、[ドキュメント]タブを選択して[デフォルトドキュメントを有効にする]をクリックし、リストボックスにindex.htmがない場合は、[追加]ボタンをクリックしてindex.htmを入力します。最後に[OK]ボタンをクリックして[インターネットインフォメーションサービス]ダイアログウィンドウを閉じます。調査Webページが公開された後、従業員は各自のコンピュータでIEブラウザを開き、アドレスバーにサーバールームのIPアドレスを入力し、Webページで質問を閲覧して回答することができます。従業員が調査の送信ページを完成させると、調査結果のデータも作成されたExcelファイルに収集されます（図6）。付録：コード<％set strConn = server.createobject（" adodb.connection"）strConn.open ="プロバイダ= Microsoft.Jet.OLEDB.4.0;データソース=" Server.MapPath（"調査結果.xls "）&"; Extended Properties = "" Excel 8.0; HDR = Yes; ";"; i = 1から15tmp = request（ "R"& i）の場合、tmp<< tmp<<>;> "" thenda = tmpelseda = da + "。end ifset rs = server.CreateObject（" adodb.recordset "）sql =" [結果$]から選択*タイトル= ";"; & irs.Open sql、strConn、1,3if da = "A" thenrs（ "人数"）= rs（ "人数"）+ 1rs（ "総数"）= ｄｓ ＝“ Ｂ”の場合はＲｓ（“合計数”）＋１、そしてｒｅｓ（“回答Ｂ番号”）＝ ｒｓ（“回答Ｂ数”）＋ １ｒｓ（“合計数”）＝ ｄｓ ＝“ Ｃ”の場合はＲｓ（“総数”）＋ １、そしてｒは（“回答Ｃ番号”）＝ ｒｓ（“回答Ｃ番号”）＋ １ｒｓ（“総数”）＝ ｄａ ＝“ Ｄ”であれば、Ｒｓ（“総数”）＋ １ ｅｎｄである。 "）= rs（"人数 "）+ 1rs（"総数 "）= rs（"総数 "）+ 1end ifrs.Updateset rs = nothingnextif trim（request（" yj "; ））<>"> thenset rs = server.CreateObject（" adodb.recordset"）sql ="選択*から[推奨$]> rs.Open sql、strConn、1,3rs.addnewrs（ 「シリアル番号」= rs.recordcount + 1rs（「提案」）= request（「yj」）rs.Updateset rs = nothingend ifstrConn.closeset strConn = nothingresponse.write（" //"）％ >この記事は[System Home] www.xp85.comのものです。