Excel VBA質問箱 IV

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

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


23617 / 76738 ←次へ | 前へ→

【58487】Re:条件に当てはまる行を削除
発言  Hirofumi  - 08/10/27(月) 21:48 -

引用なし
パスワード
   ごめん、★印の行は確認用に入れたコードで
本来、必要ありませんので、削除して下さい

>  With rngList
>    '削除行が有るなら
>    If lngCount > 0 Then
>      'FlagをL列に出力
>      .Offset(, clngColumns).Resize(lngRows) = lngDelete
>      '空白行を最終行に集める為、L列をKeyとして整列
>      .Resize(lngRows, clngColumns + 1).Sort _
>          Key1:=.Offset(, clngColumns), Order1:=xlAscending, _
>          Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
>          Orientation:=xlTopToBottom, SortMethod:=xlStroke
>      '削除行を削除
'★削除   .Offset(lngRows - lngCount).Resize(lngCount).EntireRow.Select
>      .Offset(lngRows - lngCount).Resize(lngCount).EntireRow.Delete
>      '削除Flag列を削除
>      strProm = lngCount & "件の削除処理が完了しました"
>    Else
>      strProm = "削除行は有りません"
>    End If
>  End With

1 hits

【58476】条件に当てはまる行を削除 すー 08/10/27(月) 17:19 質問
【58477】Re:条件に当てはまる行を削除 こぎつね 08/10/27(月) 17:50 発言
【58480】Re:条件に当てはまる行を削除 Hirofumi 08/10/27(月) 19:17 発言
【58487】Re:条件に当てはまる行を削除 Hirofumi 08/10/27(月) 21:48 発言
【58485】Re:条件に当てはまる行を削除 ponpon 08/10/27(月) 20:42 発言
【58500】Re:条件に当てはまる行を削除 すー 08/10/28(火) 15:02 お礼

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