Excel VBA質問箱 IV

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

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


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

32390 / 76734

←次へ　｜　前へ→


	【49581】Re:2表出力

hiro - 07/6/11(月) 23:32 -


	引用なし

	パスワード

▼Hirofumi さん
昨日は遅くまでありがとうございます　今朝拝見し早速会社で実行させて頂きました。希望のとおり2007年の横に前年の表を出力できました。ありがとうございます
最後に後一お聞きしたいのですが
List2に出力した累計値と同じ値を別の表にも入力しているのですがせっかく出力して頂いたのでファイル一つにして　"部門"と言うsheetを挿入してcopyしょうと思っています。
店舗　本店で出力した時の値のcopy先はsheet部門の　売上がE列　差益H列　仕入L列　在庫O列　で行が下記のように不規則なのですが
１係　　　　60
２係　　　　63
３係　　　　66
４係　　　　81
５係　　　　69
６係　　　　93
７係　　　　72
８係　　　　75
９係　　　　38
１０係　　　　
１１係　　　　5
１２係　　　　41
１３係　　　　
１４係　　　　20
１５係　　　　23
１６係　　　　8
１７係　　　　26
１８係　　　　29
１９係　　　　44
２０係　　　　47
２１係　　　　90
２２係　　　　50
２３係　　　　11
２４係　　　　14
２５係　　　　32
２６係　　　　
２７係　　　　
２８係　　　　84
２９係　　　　
３０係　　　　96

With rngResult
　　　　'出力結果の下に行列を入れ替え値のみPaste
　　　　.PasteSpecial Paste:=xlPasteValues, _
　　　　　　　　Operation:=xlNone, _
　　　　　　　　SkipBlanks:=False, Transpose:=True
　　　　Application.CutCopyMode = False
　　　　.Parent.Activate
　　　　.Select
　　End With
　　 With Worksheets("部門")
　　　　 .Range("E60").Value = Worksheets("List2").Range("E7").Value
　　　　 .Range("E63").Value = Worksheets("List2").Range("E8").Value

　End With
　
　　strProm = "処理が完了しました"

こんなかんじで続けていけばいいでしょうか？素人のコードすいません
(10,13,26,27,29係）は本店にデーターなしです

3 hits

▼

【49539】月間集計 hiro 07/6/9(土) 17:35