Excel VBA質問箱 IV

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

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


18821 / 76738 ←次へ | 前へ→

【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
これは、オートフィルタで絞られた全ての結果の値と言う事になるのでしょうか?
オートフィルタをする表が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

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

0 hits

【63343】ループの記述について もん太 09/10/28(水) 17:05 質問
【63345】Re:ループの記述について Jaka 09/10/28(水) 17:40 発言
【63347】Re:ループの記述について もん太 09/10/28(水) 22:42 質問
【63348】Re:ループの記述について もん太 09/10/29(木) 8:58 発言
【63353】Re:ループの記述について Jaka 09/10/29(木) 10:48 発言
【63355】Re:ループの記述について もん太 09/10/29(木) 11:09 質問
【63356】Re:ループの記述について Yuki 09/10/29(木) 11:25 発言
【63360】Re:ループの記述について もん太 09/10/29(木) 11:51 質問
【63363】Re:ループの記述について Yuki 09/10/29(木) 12:27 発言
【63365】Re:ループの記述について もん太 09/10/29(木) 13:39 お礼
【63358】Re:ループの記述について Jaka 09/10/29(木) 11:35 発言
【63361】Re:ループの記述について もん太 09/10/29(木) 11:56 発言

18821 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free