|
教えて下さいシート上の文字をクリアするには
下記コードにて任意のセルに■が書き込まれているのですが
一度クリア(■が)書き込まれている箇所を全て□に戻したいのですが
方法はありますか。よろしくお願いします。
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
Dim r As Range
Cancel = True
Set r = Intersect(Range("A85:A333,I85:I378,J384:J392,U85:U319,V85:V215,O240:O244,AC85:AC150,K160:K164,K266,AD352:AD369,AE384:AE392,AK86:AK89"), Target)
If r Is Nothing Then Exit Sub
With r
Select Case .Value
Case "□"
Target.Value = "■"
Case Else
Target.Value = "□"
End Select
End With
End Sub
|
|