Excel VBA質問箱 IV

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

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


18810 / 76732 ←次へ | 前へ→

【63360】Re:ループの記述について
質問  もん太  - 09/10/29(木) 11:51 -

引用なし
パスワード
   Yukiさん、回答ありがとうございました。
しかしながら、まだうまくいきません(´・ω・`)

この記述は31回繰り返すのをまとめてくださったものなのですよね?
「あああ」というシートにある表にオートフィルターオプションにて
「カレンダー」というシートにある値を入れて(一個ずつ下にずれます)
抽出した結果を、それぞれ「1」〜「36」という名のシートに貼り付けたいと思っています。

>        Criteria1:=Sheets("0").Cells(i + 6, 3).Value,
ちなみに「シート名」「0」というシートはないのですが
これはどういう意味でしょうか?

>A〜L列はA〜H列列より大きいですけど
すみません(恥)
本当にその通りです。
抽出した結果すべてをコピーで間違いありませんでした。
しかし今回教えていただいた事は次に役立てる事ができそうです。
ありがとうございます。

下記の記述31個を全て消して、
Yukiさんに教えていただいた記述をいれてみました。
「インデックスが有効範囲にありません」というエラーが出ます。

Sub test()
  Dim i  As Long
  For i = 1 To 31
    With Sheets("あああ")
      .AutoFilterMode = False
      .Range("A1").CurrentRegion.AutoFilter Field:=4, _
        Criteria1:=Sheets("0").Cells(i + 6, 3).Value, Operator:=xlAnd
      With .AutoFilter.Range
      End With
    End With
  Next
End Sub

もしよろしければ、またご回答ください。
すみませんが、宜しくお願いします。

最初に書いた記述です↓↓↓
------------------------------------------------------------------
シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C7」で条件を絞り
シート名「1」に貼り付ける

シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C8」で条件を絞り
シート名「2」に貼り付ける

シート名「あああ」にある表から、オートフィルターのオプションにて
シート名「カレンダー」にある、セル「C9」で条件を絞り
シート名「3」に貼り付ける
・・・・・・・・・・・・

といった処理を31回繰り返したいのですが
下記のように記述したら「リソース不足です」と表示されて
うまくいきません。

ループで記述できるのであれば
どのように記述すればよいのでしょうか?
初歩的な質問かもしれませんが教えてください。
宜しくお願いします


  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("C8").Value, Operator:=xlAnd
  Range("A12:L12").Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  Sheets("2").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("C9").Value, Operator:=xlAnd
  Range("A12:L12").Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  Sheets("3").Select
  Range("B2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Range("A1").Select

1 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 発言

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