Excel VBA質問箱 IV

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

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


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

52496 / 76736

←次へ　｜　前へ→


	【29078】Re:コードをシンプルにしたい。

ponpon - 05/9/23(金) 10:10 -


	引用なし

	パスワード

こんにちは。

提示コードを実行してもエラーはでないようですが、
どんなことをしたら、
どんなエラーがでるのでしょうか？

Sub test()
　 Dim 店舗コード
　 Dim myAry1 As Variant
　 Dim myAry2 As Variant
　
　店舗コード = Sheets("実績").Range("E5").Value
　 myAry1 = Array("DATA", "DATA_month")
　 myAry2 = Array("A1", "N1")
　 For i = 0 To 1
　　　With Sheets(myAry1(i))
　　　　.Cells.AutoFilter Field:=2, Criteria1:="=" & 店舗コード
　　　　.AutoFilter.Range.Copy 'すべての項目なら
　　　　.AutoFilterMode = False
　　　 End With
　　　Sheets("temp").Range(myAry2(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
　　　Application.CutCopyMode = False
　 Next
End Sub

0 hits

▼

【29067】コードをシンプルにしたい。 mina 05/9/22(木) 23:12