| |
▼Hirofumi さん
早速のご回答ありがとうございます
さすがにHirofumi さんご指示どおり文字列設定すると成功いたしました
先ほどの件も験算の結果問題ありませんでした。ありがとうございます
>ただし、項目の並ぶ順番は、元のListの順番に依存していますのでそこが問題です？
>
>日付 店舗 項目 1係
>20060401 本店 売上 1
>20060401 本店 差益 1
>20060401 本店 仕入 1
>20060401 本店 在庫 1
入力は、この順番で行いますので大丈夫です ご配慮ありがとうございます。
それと聞き忘れたのですが、前年の同日を(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:以下でエラーになるよにも思いまして
「日付」の抽出条件を取得と出力設定を上記のように変更してもう一つマクロ登録するほうが無難でしょうか？
素人の質問ですいません教えて頂けますでしょうか
|
|
hiro
- 07/6/11(月) 0:52 -
