Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8215 / 76732 ←次へ | 前へ→

【74094】Re:セルにある値があれば削除
発言  UO3  - 13/4/17(水) 21:08 -

引用なし
パスワード
   ▼nonoka さん:

こんな感じですか?

Sub Sample()
  Dim c As Range
  
  If Sheets("INPUT").Range("B5").Value <> "&#10003" 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
1 hits

【74085】セルにある値があれば削除 nonoka 13/4/17(水) 18:33 質問
【74089】Re:セルにある値があれば削除 カエムワセト 13/4/17(水) 20:04 発言
【74091】Re:セルにある値があれば削除 nonoka 13/4/17(水) 20:16 回答
【74094】Re:セルにある値があれば削除 UO3 13/4/17(水) 21:08 発言
【74105】Re:セルにある値があれば削除 nonoka 13/4/18(木) 9:29 回答
【74106】Re:セルにある値があれば削除 nonoka 13/4/18(木) 9:52 お礼
【74108】Re:セルにある値があれば削除 nonoka 13/4/18(木) 14:06 質問
【74109】Re:セルにある値があれば削除 UO3 13/4/18(木) 14:22 質問
【74110】Re:セルにある値があれば削除 nonoka 13/4/18(木) 14:32 回答
【74111】Re:セルにある値があれば削除 UO3 13/4/18(木) 15:52 発言
【74112】Re:セルにある値があれば削除 UO3 13/4/18(木) 16:04 発言
【74113】Re:セルにある値があれば削除 nonoka 13/4/18(木) 17:27 お礼

8215 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free