Excel VBA 質問スレッド No.47 (未解決)

VBAで積上げ表を作成する方法。

投稿者 : SUZUKI     投稿日時 : 2018/06/07(Thu) 14:30:42     OS : Windows 10     EXCEL : Excel 2010
現在、手動で積上げ表を作成しています。
VBAで自動化することは可能か教えてください。

シート1のデータ
A列 B列 C列 D列 ・・・
1 契約№ 名前 担当 契約日
2 A01 佐藤 AA 2018/04/12
3 A21 鈴木 AA 2018/04/05
4 A12 高橋 CC 2018/06/01
5 A30 斉藤 BB 2018/07/20
6 A10 後藤 CC 2018/06/30
7 A00 高野 AA 2018/05/15



上記のデータを、シート2にあらかじめ用意されている表に積上げたいです。

シート2のA1:B6にベースがあり、それをコピーして積上げていってます。

A列 B列
1 契 名前
2 約 担当
3 № 契約日

契約№は縦書きでセルの結合をしています。
B列の名前・担当・契約日 はVlookup関数が入っています。
A1:B6をシート1の1行とVlookupで参照させて積上げ表を作成します。

表は、D列から右側に土台を作っています。

C列 D列 E列 F列 G列
1 2│ A 佐藤 │
2 件│ 0 AA │
3 目│ 1 4/12│
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
4 1│ A 鈴木 │ A 高野 │
5 件│ 2 AA │ 0 AA │
6 目│ 1 04/5│ 0 05/15│
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
7 月│2018年04月│2018年05月│ ・・・


見やすいように改行を入れていますが実際はくっついています。
積上げる順番は順不同です。
2018年4月の縦軸に4月に契約した物件が積み重なれば大丈夫です。
契約日が2018/04に該当するデータ個数分シート2 A1:B3 をコピーして
各月の表に個数分下からペーストする。

契約№部分に各月入力する。

ということをやりたいです。

実際には、縦に30個積み重なるようになっています。
※各月30個超えることはありません。

初心者ですが、簡単なVBAの編集は行うことができます。
あまり複雑なVBAになるようならあきらめようと思います。

是非よろしくお願いいたします。

[返信 1] Re : VBAで積上げ表を作成する方法。
投稿者 : ヘンリー     投稿日時 : 2020/09/12(Sat) 10:31:12
>現在、手動で積上げ表を作成しています。
>VBAで自動化することは可能か教えてください。

答えは可能です。

>初心者ですが、簡単なVBAの編集は行うことができます。
>あまり複雑なVBAになるようならあきらめようと思います。

あきらめる理由がわかりません。
手動、自動という分け方は、あまり好きではないのですが…

手動では、時間がかかる、或いはミスの要因につながる、という
理由があるから自動化したい、というのであれば、
多少複雑でもVBAでやるべきです。

自動化しなくても、時間も手間もかからず、ミスの要因もない
というのであれば、今の現状から変える必要性はないからです。


>初心者ですが、簡単なVBAの編集は行うことができます。

私は、VLookupも使わずに、全てVBAでやることをお勧めします。

VBAのBは、Beginner's All-purpose Symbolic Instruction Codeの略で、
初心者向けの全ての目的に使う象徴的な命令や記号という意味が込められています。

この掲示板のように、親切な方が、VBAの掲示板を作ってくれているので、
それらを上手に使えば、できるようになります。
※ちなみに私は、このような掲示板でできるようになった一人です。

是非、頑張ってみてください。応援しています。

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-05-10 05:25:15 )

Page
Top