Excel VBA質問箱 IV

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

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


8201 / 76732 ←次へ | 前へ→

【74108】Re:セルにある値があれば削除
質問  nonoka  - 13/4/18(木) 14:06 -

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

一つ質問です。
下記コードで
Set c = .Columns("L").Find(What:="Before opereation", LookAt:=xlWhole)
の部分、L列に"Before opereation"があればの条件を
2つにしたい場合、どのようにすれば良いでしょうか?
L列に"Before opereation" M列が空白の場合(2条件一致)
としたいです。
宜しくお願いします。

>
>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

0 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 お礼

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