Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18097 / 76732

←次へ　｜　前へ→


	【64079】Re:ご協力お願いします。

初心者 - 10/1/17(日) 1:01 -


	引用なし

	パスワード

詳細に伝えられず申し訳ないです。

早速「Exit For '★追加」を追加しましたが、

>'削除行を削除
>.Offset(lngRows - lngCount + 1).Resize(lngCount, lngColumns).Delete Shift:=xlShiftUp

でエラーが生じました。

そこで、当初以下の条件で削除していたのですが、*保守*を削除したところエラーが消えました。

>　　vntDelList = Array("*保守*", "*サマリ*")

複数の削除条件が引っかかってエラーが出ていたのでしょうか？

▼Hirofumi さん：
>尚、「Exit For '★追加」が無くて
>
>'削除行を削除
>.Offset(lngRows - lngCount + 1).Resize(lngCount, lngColumns).Delete Shift:=xlShiftUp
>
>がエラーを起こすのは、同じ行の「物件名」が複数の削除条件に引っ掛かり
>結果として、全データ行数を削除行が上回っている可能性が有ります
>詰まり
>
>lngRows - lngCount + 1 < 0
>
>に成っていると思います
>
>因って、「Exit For '★追加」を追加して治る様なら
>
>　　'「物件名」の削除条件を列挙（ウィルドカード使用可）
>　　'完全一致："AAAA"、含む："*AAAA*"
>　　'前方一致："AAAA*"、後方一致："*AAAA"　※「Like演算子」のHelp参照
>　　vntDelList = Array("AAA", "BBB*", "CCCC*", "*DDDDD*")
>
>の削除条件が重なっていると思いますので確認して下さい
>また、此れにより全行削除の可能性も有りますので
>あくまで、Test用のデータで試して下さい

0 hits

▼

【64046】ご協力お願いします。 初心者 10/1/12(火) 22:19