| |
初めてＶＢＡを作っている超初心者です。
また、初めて質問させていただきます。
本を購入してコードの丸写しから始めて勉強しているところです。
ネット情報も参考にして、エラーを何度も処理し、マクロが実行出来るようになったところですが・・・。
載っていたサンプルの丸写しからは応用できないことが分かり、白紙に戻ってしまい、行き詰ってしまいました。
どなたか教えてください。
支店毎のシート（１５枚）を１枚の全データシートにまとめたい。
シート内容
Ｃ列 ｜Ｄ列 ｜Ｅ列 ｜Ｆ列 ｜Ｇ列
ナンバー｜品名 ｜金額 ｜日付 ｜備考
１ ｜コップ ｜1000 ｜4/1 ｜追加分
２ ｜プレート｜5000 ｜4/10 ｜
３ ｜ブラシ ｜3000 ｜5/15 ｜新規
シート札幌 シート仙台 シート新潟 シート千葉・・・シート全データ
があります。
支店毎のシートにはフィールド列（Ａ、Ｂ）および行（1〜3）がありますが、
書式、項目はすべて同一です。
全データシートには項目とデータのみ記載される。
やりたい作業は、
・支店のどこかのシートに新たな１行が加わると全データシートの最終行にも転記されるようにする。
・全データシートには単純にデータが入力順に追記され、並び替えや抽出はない。
→全データシートは最終行に新たに入力された行が追加されていき、
イメージ的には上から下へ帯状になる。
全データシート完成予定
ナンバー｜品名 ｜金額 ｜日付 ｜備考
１ ｜コップ ｜1000 ｜4/1 ｜追加分
２ ｜プレート｜5000 ｜4/10 ｜
３ ｜ブラシ ｜3000 ｜5/15 ｜新規
１ ｜グラス ｜800 ｜4/3 ｜
２ ｜カバー ｜20000 ｜4/20 ｜
３ ｜ブラシ ｜5000 ｜6/7 ｜確認済
４ ｜コップ ｜1000 ｜4/1 ｜追加分
・
・
・
また、
・シートによっては、データの無いシートもあり、後にデータが入力される可能性がある。
・各支店シートのデータは３０行まで。３０行を超えると、２枚目のシートが作成される。
私が、試してみたマクロは、
Sub 支店別シート統合()
Dim シート名 As Variant
Dim 開始セル As String
Dim i As Long
から始まり、
各シート名の代入、
統合シートの用意、
フィールド名のコピー、
支店別シートのデータコピー
End Sub
です。
しかし、これは各シートを一度に全データがコピーされ、１行づつ更新されるように応用させることができませんでした。
そもそもＶＢＡは初めてなので、エクセル関数ですむのであれば、関数を教えていただきたいです。
データツールの統合では私にはできませんでした。
うまくまとめられず、長い内容ですみません。
ＶＢＡのコード、もしくはエクセルの関数を教えてください。
よろしくお願いします。
|
|
kamaboko
- 10/8/8(日) 15:57 -
