質問者が納得コードのブロックが正しくありません
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("uri")) Is Nothing Then Exit Sub
Call BeepAPI(40, 450)
Else
Call BeepAPI(40, 50)
End If
End Sub
Exit SubgあるとIF文がブロックではなくなります
Private Sub Worksheet_C...
4094日前view2