|
▼UO3 さん:
いつもありがとうございます。
下記の★の付いた行を削除すればうまく作動するのですが・・・。
B5の✓もコードでセルをダブルクリックしたら✓が入るように設定しています。
関係ありますか?✓のコードは下記です。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B5")) Is Nothing = False Then
Cancel = True
If Target.Value = ChrW(10003) Then
Target.ClearContents
Else
Target.Value = ChrW(10003)
End If
End If
End Sub
>Sub Sample()
> Dim c As Range
>
> ★ If Sheets("INPUT").Range("B5").Value <> "✓" Then Exit Sub
>
> ★ Application.ScreenUpdating = False
>
> With Sheets("Schedule")
>
> Set c = .Columns("L").Find(What:="Before opereation", LookAt:=xlWhole)
>
> Do While Not c Is Nothing
> c.EntireRow.Range("K1:AQ1").ClearContents
> Set c = .Columns("L").FindNext(After:=c)
> Loop
> End With
>
> Application.ScreenUpdating = True
>
>End Sub
|
|