F13 見よう見まねの解決方法

質問者が納得こんにちは～＾＾Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim s As String If Intersect(Target, Range("C14,F7,F14,H14")) Is Nothing Then Exit Sub With Target Select Case .Address(0, 0) Case "C14": s = "F2" Case "...