Excel VBA質問箱 IV

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

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


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

18833 / 76738

←次へ　｜　前へ→


	【63343】ループの記述について

もん太 - 09/10/28(水) 17:05 -


	引用なし

	パスワード

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

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

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

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

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

　　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

0 hits

▼

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

≪