Excel VBA質問箱 IV

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

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


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

18815 / 76732

←次へ　｜　前へ→


	【63355】Re:ループの記述について

もん太 - 09/10/29(木) 11:09 -


	引用なし

	パスワード

Jakaさん、たびたびありがとうございます(o*｡_｡)oﾍﾟｺｯ

>これと似たような現象？？
>目安箱の87
>ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=87;id=FAQ
拝見させていただきました。
超初心者ですので、なんとなくしか意味が理解できていません。すみません。

>因みにオートフィルタ範囲は、これで取れます。
>Sheets("Sheet1").AutoFilter.Range
これは、オートフィルタで絞られた全ての結果の値と言う事になるのでしょうか？
オートフィルタをする表がＡ～Ｈ列まであります。
その中のＡ～Ｌ列まで取りたいのですがその場合はどうしたらよいのでしょうか。

　　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

と書き換えてみましたが、動作が止まってしまいました。
「教えて」ばかりですみませんが、どうぞ宜しくお願いします(´･ω･`)

4 hits

▼

【63343】ループの記述について もん太 09/10/28(水) 17:05