Excel VBA質問箱 IV

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

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


57653 / 76732 ←次へ | 前へ→

【23813】Re:今日よりも過去の日付を削除する
回答  Kein  - 05/4/4(月) 23:34 -

引用なし
パスワード
   んー・・たぶん
>Range(Cells(3, 1), Cells(3, LC)).Resize(LR)

Range(Cells(3, 1), Cells(3, LC)).Resize(LR + 1)

という修正が必要だったのでしょう。
あと数式を入れたままでソートなどすると、結果がおかしくなる可能性があるので、
計算の直後に値のみにしてしまう処理も組み込んでみます。

Sub Test()
  Dim LR As Long, LC As Long

  LR = Range("E65536").End(xlUp).Row - 3
  LC = Range("IV3").End(xlToLeft).Column + 1
  Application.ScreenUpdating = False
  Cells(3, LC).Value = "Check"
  On Error GoTo ELine
  With Cells(4, LC).Resize(LR)
   .Formula = "=IF($E4<TODAY(),""NO"",ROW())"
   .Copy
   .PasteSpecial xlPasteValues 
   .SpecialCells(2, 2).EntireRow.ClearContents
  End With
  Application.CutCopyMode = False
  On Error GoTo 0
  Range(Cells(3, 1), Cells(3, LC)).Resize(LR + 1) _
  .Sort Key1:=Cells(3, LC), Order1:=xlAscending, _
  Header:=xlYes, Orientation:=xlSortColumns
ELine:
  Columns(LC).ClearContents
  Application.ScreenUpdating = True
End Sub

2 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 回答

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