ID非公開さん
2022/5/7 16:33
3回答
前回質問の続きになります。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13261065848
前回質問の続きになります。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13261065848 すでに頂いた回答で実行したところ、写真添付の通りコンパイルエラーとなり、解決法がわからず。改めて計上したものです。 せっかくご回答いただいた方々には申し訳ないですがお力を貸して頂きたいです。 ★以下、前回質問内容★ VBA初心者以下です。上司よりGW中にエクセルを利用した社員向けのテスト作成を指示されました。 社内にはあまりエクセルのマクロやVBAに詳しい人がおらず、セキュリティやお金の面でも外部発注やGoogleフォーム等ネット利用はNGです。 色々考えて、 エクセルマクロ、VBA、関数を使い、複数社員に簡単なテストを実施別の集計エクセルファイルに結果の転記と蓄積→集計をしようと思っています 集計は関数を用いれば後でいかようにでもできるのですが、どうにもテストファイルと別ファイルへの転記・蓄積が難しくて挫折寸前です。 知識が足りずテンプレートを複数合体してもうまくできず、詳しい方にお力を借りたいです。 【テストファイルの入力内容】 ・社員番号 ・社員名 ・役職 ・所属 ・設問1の解答(○×方式) ・設問2の解答(○×方式) ・設問3の解答(A~Cから選択方式) 【集計ファイル】 テストファイルの入力内容を自動転記・蓄積するためのファイル。 解答者が見られないように同じフォルダ、または別のフォルダで隠しファイルにすることを想定。 【やりたいこと】 ・「解答ボタン」を押下すると 未入力や未解答がある場合は、エラーメッセージを表示。 未入力がない場合は、 設問①~③の解答の隣のセルに採点結果【正解○、不正解×】を、その隣のセルに解説を表示させたい (→予めテストの答えと解説を別シート等に入力しておき、シート保護と非表示設定で隠しておくなどする) ・「閉じるボタン」を押下すると以下の二つを実行したい。 ①テストファイルの社員番号~所属までの入力内容、採点結果、解答日時を集計ファイル(別エクセルファイル)に最後の行を取得して自動転記・上書き保存(解答者に知られない形で)。 ②①後にテストファイルを保存せずに閉じる イメージは ・左上がテストファイルの解答シート ・右上が答え解説のシート ・左下は集計ファイル ・右下は前回回答頂いたspe********さんのコードを実行して、当方が解決できなかったエラー画面
上記イメージで設問3の答えが2となっていますが、Bの間違えです。
Visual Basic | Excel・231閲覧・100
ベストアンサー
前回回答した者です。 まず、エラーとは関係ないですが、位置を間違えてたので ansDt = Now() を Next i の次の行へ移動してください(結果は特に変わりません)。 こちらでは特にエラーが出ないのですが、Now() を Now にしても変わらないですかね?
この返信は削除されました
質問者からのお礼コメント
大変助かりました。ありがとうございます!
お礼日時:5/16 10:59