ExcelのVBAコードについて教えてください。

ブックのシート名が「青紙表」に Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then ActiveWorkbook.Save End If If Target.Address = "$C$20" And Range("C20") <> "" Then If InStr(1, "一郎,次郎,三郎,四郎", Range("C20")) > 0 Then Worksheets("受付").Visible = False Worksheets("管表").Visible = False End If End If End Sub コードがあります。 ２つ目のコードはC20に「一郎,次郎,三郎,四郎」のいずれかの名前が表示された時に表示の「受付・管表」が非表示になるコードです。 このコードではC20に表示した「一郎,次郎,三郎,四郎」を一旦削除すると「受付・管表」が再表示されず、非表示のままです。 「一郎,次郎,三郎,四郎」を一旦削除すると「受付・管表」が再表示出来る様にする方法を教えてください。 よろしくお願いいたします。

No.1 ベストアンサー 回答者： ぽち101 回答日時： 2022/02/27 12:10

’これで希望の動作となりますか？

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then
ActiveWorkbook.Save
End If

If Target.Address = "$C$20" And Range("C20") <> "" Then
If InStr(1, "一郎,次郎,三郎,四郎", Range("C20")) > 0 Then
Worksheets("受付").Visible = False
Worksheets("管表").Visible = False
End If
ElseIf Target.Address = "$C$20" And Range("C20") = "" Then
Worksheets("受付").Visible = True
Worksheets("管表").Visible = True
End If

End Sub

この回答へのお礼

回答ありがとう御座いました。
全て上手く行きました。

お礼日時：2022/02/27 12:13