Excel VBA質問箱 IV

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

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


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

4937 / 76732

←次へ　｜　前へ→


	【77410】Re:オートフィルタ　繰り返し

ウッシ - 15/9/17(木) 14:02 -


	引用なし

	パスワード

こんにちは

セル位置とシートが良く分かりません。

ActiveSheet名は？
Sheets("マクロセット")？

Sheets("計画")は無関係？

どこで、どんなエラーになるのでしょうか？

Sub test()
　　Dim aSh As Worksheet
　　Dim i　 As Integer
　　
　　Set aSh = ActiveSheet
　　'#データ更新
　　With aSh
　　　　.Columns("E:J").Clear
　　　　Sheets("計画").Range("K:N").Copy
　　　　Sheets("マクロセット").Range("E:H").PasteSpecial Paste:=xlPasteValues
　　　　Sheets("Data Base").Range("AP4:AP100").Copy
　　　　Sheets("マクロセット").Range("J8").PasteSpecial Paste:=xlPasteValues
　　　　
　　　　.Range("E3:H3").AutoFilter

　　　　If ActiveWorkbook.Worksheets.Count < 8 Then Exit Sub
　　　　For i = 8 To ActiveWorkbook.Worksheets.Count
　　　　　　.Range("$E$3:$H$5000").AutoFilter _
　　　　　　　　Field:=4, Criteria1:=.Cells(10, i).Value
　　　　　　.Range("E3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
　　　　　　Sheets(i).Range("B53").PasteSpecial Paste:=xlPasteValues
　　　　Next i
　　End With
　　
　　Sheets("マクロセット").Select
　
End Sub

ActiveSheetがSheets("マクロセット")ならもっと整理出来ます。

0 hits

▼

【77409】オートフィルタ　繰り返し はる 15/9/17(木) 13:34