Excel VBA質問箱 IV

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

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


8200 / 76732 ←次へ | 前へ→

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

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

こんにちは。
M列が空白の場合にのみ処理するコードを追加しました。
また、
If Sheets("INPUT").Range("B5").Value <> "&#10003" Then Exit Sub
としていましたが、ほんとうが、値はレ点ですね。
そこも変更してあります。

ところで、現在、シートイベントでレ点セットしておられますよね。
今回のコード、もしかしたら、そのイベントルーティンに組み込むほうがいいのでは?

Sub Sample2()
  Dim c 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 opereation", LookAt:=xlWhole)
  
    Do While Not c Is Nothing
      If Len(c.Offset(, 1).Value) = 0 Then 'M列が空白なら
        c.EntireRow.Range("K1:AQ1").ClearContents
      End If
      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 お礼

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