Excel VBA質問箱 IV

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

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


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

57236 / 76732

←次へ　｜　前へ→


	【24233】Re:データチェックおよび抽出について

KOTARO - 05/4/16(土) 13:03 -


	引用なし

	パスワード

▼ウッシさん
>同じデータに、30項目以上のチェックをするという事でデータそのものの行位置が
>変わらないのであれば転記する際に元の行と同じ行にコピーしていけばいいかも？
>
>最終的に全く不備と判定されなかった行は空になっていると思いますので最後に
>空白行削除すればいいです。
>
>チェックの意味自体が良く分からないのでなんとも言えないですけど・・・。

ウッシさん
お世話になります。
なるほどそういう方法がありましたね。
行の移動はありませんので上記の方法で結構です。

あと下記のとおり修正し実行してみたのですが、チェックできず終了
してしまいました。
コメントアウトしてしまうと「赤」で表示するという記述がなくなって
しまうのではないでしょうか。
お手数ですがこの点についてもご確認下さい。

>4個所コメントアウトして下さい。

>　　Dim newBk As Workbook

>　If Not r Is Nothing Then
>　Set newBk = Workbooks.Add
>　Intersect(r.EntireRow, .Parent.Columns(項目2_Col)) _
>　.Interior.ColorIndex = 3
>　r.EntireRow.Copy newBk.Worksheets(1).Range("A1")
>　newBk.SaveAs ThisWorkbook.Path & "\エラーデータ.xls"
>　End If

1 hits

▼

【24181】データチェックおよび抽出について KOTARO 05/4/14(木) 17:26