Excelでアンケートの集計3~ユーザフォームの結果をシートに反映する②

Pocket

アンケート結果を入力する行を入れたら、あとは値を入れていきます。

その前に、オブジェクト名を変更します。
VBAコードを打っているときに、どれがどのオブジェクトなのか訳が分からなくなる
可能性が高いので、事前に変えておきます。

各オブジェクトのオブジェクト名を変更します。
2609121

下の図を参考にオブジェクト名を変えて下さい。
2609122

コマンドボタンのVBAコードを変更します。
Private Sub CommandButton1_Click()
Dim a As Integer
a = Worksheets(“アンケート結果”).Range(“結果内容”).Rows.Count
Worksheets(“アンケート結果”).Range(“結果内容”).Rows(a).Insert Shift:=xlDown

Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 1).Value = 事務所CD
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 2).Value = 事務所名
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 3).Value = 担当者

If Q11 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 4).Value = 1
End If

If Q12 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 5).Value = 1
End If

If Q13 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 6).Value = 1
End If

If Q14 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 7).Value = 1
End If

If Q15 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 8).Value = 1
End If

If Q16 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 9).Value = 1
End If

If Q17 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 10).Value = 1
End If

If Q18 = -1 Then
Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 11).Value = 1
End If

Worksheets(“アンケート結果”).Range(“結果内容”).Cells(a, 12).Value = Q1記入

End Sub
事務所CD,事務所名、担当者、Q1記入はテキストボックスの値をそのままシートに転記。
それ以外の項目は、✔をついていれば、1を代入します。
ちなみにチェックボックスは、✔→ー1 空白→0 という値を取ります。

実行結果です。
2609123

コードは質問の数だけどんどん増えていきますが、どれも同じ構文で、
オブジェクト名と転記先が違うだけです。

お酒は嫌いではないのですが、一昨日昨日と連続で飲み会。
胃腸が弱いので、胃が荒れ気味です。
そして今日も飲み会。軽く済ませよう・・
本日も最後までお読み頂きありがとうございます。