Excel VBA質問箱 IV

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

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


57689 / 76732 ←次へ | 前へ→

【23777】Re:今日よりも過去の日付を削除する
質問  ponpon  - 05/4/4(月) 1:57 -

引用なし
パスワード
   ponponです。
考えてやってみました。無駄な部分があるとは思いますが。。。
test1もtest2も
一度では削除できず、2度3度目で、すべて削除されます。
理由がわかりません。なぜでしょう?
dataは、H列まで入っていて、E列に日付データがあります。

Sub test1()
  Dim myRng As Range
  Dim r As Range
  
  Set myRng = Range("E2", Cells(Rows.Count, 5))
  For Each r In myRng
   If r.Value <> "" Then
    If r.Value < DateValue(Now) Then
      Application.DisplayAlerts = False
      r.EntireRow.Delete
      Application.DisplayAlerts = True
    End If
   End If
  Next


Sub test2()
  Dim myRow As Long
  Dim i As Long
  Dim myRng As Range
  Dim mydelRng As Range
  Dim r As Range
 
 With ActiveSheet
  Application.ScreenUpdating = False
  myRow = .Cells(Rows.Count, 5).End(xlUp).Row
  Set myRng = .Range("A1").CurrentRegion
 
  For i = 1 To myRow
  .Cells(i, 9).Value = i
  Next
 
  myRng.Sort key1:=.Range("E1")
  Set mydelRng = .Range("E1", "E" & myRow)
   For Each r In mydelRng
     If r.Value < DateValue(Now) Then
       Application.DisplayAlerts = False
       r.EntireRow.Delete
       Application.DisplayAlerts = True
     End If
   Next
  Set myRng = .Range("A1").CurrentRegion
   myRng.Sort key1:=.Range("I1")
   
   For i = 1 To myRow
    .Cells(i, 9).Value = ""
   Next
  Application.ScreenUpdating = True
 End With
End Sub
3 hits

【23763】今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/3(日) 16:25 質問
【23764】Re:今日よりも過去の日付を削除する IROC 05/4/3(日) 17:03 回答
【23771】Re:今日よりも過去の日付を削除する ponpon 05/4/3(日) 21:31 回答
【23774】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/3(日) 23:21 質問
【23775】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 0:08 回答
【23805】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 22:37 発言
【23809】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 22:59 回答
【23810】Re:今日よりも過去の日付を削除する ウッシ 05/4/4(月) 23:09 回答
【23815】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 23:35 質問
【23816】Re:今日よりも過去の日付を削除する ウッシ 05/4/4(月) 23:46 回答
【23817】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 23:57 発言
【23811】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 23:09 お礼
【23772】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/3(日) 23:00 回答
【23777】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 1:57 質問
【23778】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/4(月) 2:21 回答
【23779】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/4(月) 2:35 回答
【23795】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 18:20 発言
【23786】Re:今日よりも過去の日付を削除する Kein 05/4/4(月) 12:33 回答
【23808】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 22:52 お礼
【23813】Re:今日よりも過去の日付を削除する Kein 05/4/4(月) 23:34 回答

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