- Excel VBA 質問スレ Part41©2ch.net
228 ：デフォルトの名無しさん[]：2016/05/14(土) 00:02:13.05 ID:KpaRNRq2 - 別でもう1点伺いたいのですが、
With Sheet3.Range("A1").CurrentRegion
.AdvancedFilter xlFilterInPlace,Sheet2.Range("A1").CurrentRegion
.SpecialCells(xlCellTypeVisible).Clear
End With
という文で、Sheet3の空白で囲まれている表の範囲と
Sheet2の空白で囲まれている表の範囲が比較出来、
Sheet3の不一致の部分だけが残るというのはわかるのですが、
何故比較できているのかが理解できません。
わかる方がいたら教えて下さい。
|
- Excel VBA 質問スレ Part41©2ch.net
229 ：デフォルトの名無しさん[]：2016/05/14(土) 01:59:54.31 ID:KpaRNRq2 - フィルタオプションでマクロを記録し見てみたのですが、
どう比較しているのかがやはりわかりませんでした。
どなたかご存知でしょうか？
|
- Excel VBA 質問スレ Part41©2ch.net
231 ：デフォルトの名無しさん[]：2016/05/14(土) 02:19:13.82 ID:KpaRNRq2 - >>230
Sheet3とSheet2の行（レコード）同士を比較しているとは思うのですが、
Sheet3とSheet2で同じ行はあっても、何行目とか位置が違ったりしているのに、
どういう流れで比較をした結果が可視セルとしてみなされているのだろうと
思ってしまいました。
色は変えてみて、可視セルだけだけが色を塗られました。
|
- Excel VBA 質問スレ Part41©2ch.net
235 ：デフォルトの名無しさん[]：2016/05/14(土) 02:40:15.99 ID:KpaRNRq2 - >>232
Sheet3にしか存在しない行だけ色無しになりました。
|
- Excel VBA 質問スレ Part41©2ch.net
239 ：デフォルトの名無しさん[]：2016/05/14(土) 02:50:51.66 ID:KpaRNRq2 - >>234
.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range("A1").CurrentRegion, copytorange:=Sheet4.Range("A1")
で型が一致しませんとでます。
|
- Excel VBA 質問スレ Part41©2ch.net
240 ：デフォルトの名無しさん[]：2016/05/14(土) 03:04:50.16 ID:KpaRNRq2 - >>237
フィルターはかかってなかったのでそのまま実行できました。
入力間違いがありました。失礼しました。
|
- Excel VBA 質問スレ Part41©2ch.net
242 ：デフォルトの名無しさん[]：2016/05/14(土) 03:15:34.80 ID:KpaRNRq2 - >>237
なんとなくわかった気がします。
Sheet2の見出しより下が検索条件になり、
Sheet3の中のSheet2にある行だけがSheet4にコピーされました。
それが可視セルになりSheet3の中のそれを消せば、Sheet2に無い行が残るわけですね。
|
- Excel VBA 質問スレ Part41©2ch.net
244 ：デフォルトの名無しさん[]：2016/05/14(土) 03:32:07.92 ID:KpaRNRq2 - >>241
.ShowAllDataをコメントアウトして実行してから、またコメントアウトをとったら、
実行時エラー 1004 ShowAllDataメソッドは失敗しました。Worksheetオブジェクト
と出るようになてしまいました。
|