Excel VBA質問箱 IV

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

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


8197 / 76732 ←次へ | 前へ→

【74112】Re:セルにある値があれば削除
発言  UO3  - 13/4/18(木) 16:04 -

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

改訂版です。

Sub Sample2()
  Dim c As Range
  Dim f As Range
  
  If Sheets("INPUT").Range("B5").Value <> ChrW(10003) Then Exit Sub

  Application.ScreenUpdating = False

  With Sheets("Schedule")

    Set c = .Columns("L").Find(What:="Before operation", LookAt:=xlWhole)
    If c Is Nothing Then Exit Sub
    Set f = c
    Do
      If Len(c.Offset(, 1).Value) = 0 Then 'M列が空白なら
        c.EntireRow.Range("K1:AQ1").ClearContents
      End If
      Set c = .Columns("L").FindNext(After:=c)
      
      If c Is Nothing Then Exit Do
      If c.Address = f.Address Then Exit Do
    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 お礼

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