ＶＢＡ アンケートの転記

質問

はじめて質問します。Excel初心者です。

アンケートをExcelで作成し、送信ボタンを押すと、別シートの規定のセルへ転記されるようにしたいです。
回答はフリー入力です。

アンケートシート

B3がタイトル
B5にアンケート文1
B7に回答
B9にアンケート文2
B11に回答
B13にアンケート文3
B15に回答

集計シート

B2にタイトル
1回目の送信ボタンで、C3～C5にアンケート文1～3までの内容を転記
2回目の送信ボタン以降は1列下にどんどん転記したいです。
また、送信ボタンを押す度に、集計シートは保存されるところまでできればいいのですが、どのようにすればよいでしょうか…

アンケートは対象者にその場で開いてもらいます。
同時に複数人がさわることはないです。

よろしくお願いします。

回答No.1

SI299792 · ベストアンサー

(2)入力してない項目があった時、エラー表示は必要ですか？だとしたらどのようにしますか。
そこで、２種類作りました。
Macro1 は集計シートに追加してゆくものです。集計シートだけ保存も不可能ではないのですが、その為には集計シートを開かなければならず、その時見えてしまいます。ワークブック全体を保存するようにしました。集計シートのC2に「アンケート文１」の様な項目名が入っていることが前提です。
Macro2 は集計シートを設けずに、 集計.csvに直接データを書き込む方式です。
両方とも、エラーメッセージはありません。

'
Option Explicit
'
Sub Macro1()
'
　　Dim Row As Long
'
　　With Sheets("集計")
　　　　Row = .[C1048576].End(xlUp).Row + 1
　　　　.Cells(Row, "C") = [B7]
　　　　.Cells(Row, "D") = [B11]
　　　　.Cells(Row, "E") = [B15]
　　End With
　　ActiveWorkbook.Save
　　[B7,B11,B15].ClearContents
End Sub
'
Sub Macro2()
'
　　Open ThisWorkbook.Path & "\集計.csv" For Append As #1
'
　　If LOF(1) = 0 Then
　　　　Write #1,
　　　　Write #1, , [B3], [B5], [B9], [B13]
　　End If
　　Write #1, , , [B7], [B11], [B15]
　　Close
　　[B7,B11,B15].ClearContents
End Sub

お礼

ありがとうございます！！
ばっちり転記できました！
さらに、集計表が開かない、アンケートシートの入力も消えるよう配慮までいただき助かりました！
集計シートへの転記位置の誤記載まで汲み取っていただきありがとうございます！
これを参考に、勉強していきます！！