アンケート結果を入力する行を入れたら、あとは値を入れていきます。
その前に、オブジェクト名を変更します。
VBAコードを打っているときに、どれがどのオブジェクトなのか訳が分からなくなる
可能性が高いので、事前に変えておきます。
各オブジェクトのオブジェクト名を変更します。
下の図を参考にオブジェクト名を変えて下さい。
コマンドボタンの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 という値を取ります。
コードは質問の数だけどんどん増えていきますが、どれも同じ構文で、
オブジェクト名と転記先が違うだけです。
お酒は嫌いではないのですが、一昨日昨日と連続で飲み会。
胃腸が弱いので、胃が荒れ気味です。
そして今日も飲み会。軽く済ませよう・・
本日も最後までお読み頂きありがとうございます。