| |
>それと聞き忘れたのですが、前年の同日を(C2)に(店舗は同じ)入力してlist2の(L5)から前年のデータを、連続してと、言いますか、同時に抽出するとしたら
>
>'◆List2の先頭セル位置を基準とする（列見出し「日付」のセル位置）
> Set rngResult = Worksheets("List2").Cells(5, "B")を (5,"L")に変更
>
> '「日付」の抽出条件を取得
> vntKeyA1 = .Parent.Cells(2, 2).Valueを (2,3).Valueに変更で
>With rngResult
> '出力結果の下に行列を入れ替え値のみPaste
> .PasteSpecial Paste:=xlPasteValues, _
> Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=True
> Application.CutCopyMode = False
> .Parent.Activate
> .Select
> End With
>以下にコピーではだめでしょうか？
>Wayout:以下でエラーになるよにも思いまして
小手先で修正しようとしても、多分無理だと思います
>「日付」の抽出条件を取得と出力設定を上記のように変更してもう一つマクロ登録するほうが無難でしょうか？
これは、全く同じコードが2つに成るので無駄なのと、
例えば今回の様に、仕様の一部変更、詰まりメンテナンスの上で得策では無いと思います
もし、同様の表を当年分と前年分とを並べるだけなら、
必要な、日付、店名、その他を引数にして、別のコードで外から与えて2度回す方法を取った方がいいですね
それで良ければ、多分、それほど大変では無いと思いますよ？
|
|
Hirofumi
- 07/6/11(月) 1:24 -
