Excel2013のVBAの条件分岐でセル内に文字を入力させたい

Excelで以下のアンケートを作成中で解決できず困っていますご教授お願いします
回答すべき項目か否かでA1セルに”〇”または”-”を入力。
”〇”を入力した場合は、その下位の項目について回答すべきか否かを判断しB1~D１セルに”〇”または”-”を入力するようなものを作成しています
A1セルに”-”回答しないを選択した場合B1~D5セルの全てに”-”を入力させるまでは出来たのですが、
A1セルに”〇”回答するを選択した場合に、B1~D１セルのアンケートに個別に再度回答すべきか否かを判断し”-”回答しないを選択した場合もB2~D5セルに”-”を入力させ入力の手間を簡素させたいと思っています
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'条件判断で範囲指定セルに文字入力
If Range("a1").Value = "〇" Then
Exit Sub '指定のセルが〇なら処理停止
End If
If Range("b1").Value = "-" Then
Range("b2:b5") = "-"
End If
If Range("c1").Value = "-" Then
Range("c2:c5") = ""
End If
If Range("d1").Value = "-" Then
Range("d2:d5") = ""
End If
If Range("a1").Value = "-" Then
Range("b2:d5") = "-" '指定のセルが-なら指定のセルに-を入力
Else
Range("b2:b5 ").ClearContents
End If
End Sub

No.2 回答者： yokomaya 回答日時： 2017/02/27 07:40

それ以前にTargetの判定をしないとどこのセルでも移動時に

この判定に入る無駄があります。
また
＞”〇”を入力した場合は
とあるにも関わらずセル移動時イベントをどうして使うのでしょう？
入力判定はWorksheet_Changeを用いるのが普通で
その中でTargetの判定と
application.EnableEventsのオフオンが必要ですが。

No.1 回答者： soixante 回答日時： 2017/02/26 17:55

条件分岐を整理して見てはいかがですか。

ちょっとこの文章だけですと良く分かりませんので。

A1セルが○の場合　
A1セルが－の場合

この二つを第一段階の条件分岐としたほうがよいのではないかと。
（イメージ）
If A1セルが○のとき

ElseIf A1セルがーのとき

Else

End If

この回答へのお礼

分かりずらい文書になって、すみません。
整理します。

お礼日時：2017/02/26 18:06