|
Jakaさん、たびたびありがとうございます(o*。_。)oペコッ
>これと似たような現象??
>目安箱の87
>ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=87;id=FAQ
拝見させていただきました。
超初心者ですので、なんとなくしか意味が理解できていません。すみません。
>因みにオートフィルタ範囲は、これで取れます。
>Sheets("Sheet1").AutoFilter.Range
これは、オートフィルタで絞られた全ての結果の値と言う事になるのでしょうか?
オートフィルタをする表がA〜H列まであります。
その中のA〜L列まで取りたいのですがその場合はどうしたらよいのでしょうか。
Sheets("あああ").Select
Selection.AutoFilter Field:=4, Criteria1:=Sheets("カレンダー").Range("C7").Value, Operator:=xlAnd
Range("A12:L12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
を
Sheets("あああ").Select
Selection.AutoFilter Field:=4, Criteria1:=Sheets("カレンダー").Range("C7").Value, Operator:=xlAnd
Sheets("あああ").AutoFilter.Range
Selection.Copy
Sheets("1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
と書き換えてみましたが、動作が止まってしまいました。
「教えて」ばかりですみませんが、どうぞ宜しくお願いします(´・ω・`)
|
|