アンケートの結果を入力し、次のデータに行く場合、
一旦フォームの入力内容はクリアにならないといけません。
コマンドボタンをクリックしたときの動作に次のコードを加えます。
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 12).Value = Q1記入
事務所CD = “”
事務所名 = “”
担当者 = “”
Q11 = 0
Q12 = 0
Q13 = 0
Q14 = 0
Q15 = 0
Q16 = 0
Q17 = 0
Q18 = 0
Q1記入 = “”
End Sub
太文字のコードを追加します。
テキストボックスを空白にする場合は、テキストボックスに「””」を代入することで空白になります。
チェックボックスの場合は、0を代入することでチェックが外れます。
この処理を追加することで、連続して入力作業ができるようになります。
昨日は超久しぶりに鰻やさんの鰻を食べました。
歳をとったせいでしょうか。鰻の脂が私には重かった。
もうしばらく食べることはないと思います。
本日も最後までお読みいただきありがとうございます。
