[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データの細分化』(KK)
VBA初心者です。
月のデータを使用して納品書作成を行いたいのですが、行き詰まりました。
先ずは下記内容のデータをご参照ください。
A B C D E F G 1 納品書NO.送品日 REF 指図 タイプ 送品数 備考 2 391 8月1日 SB073J1 0142 レザ- 10 シリアル管理 3 394 8月1日 SRY0531 5153 ワニグチ 220 シリアル管理 4 394 8月1日 SBC0531 5189 ウレタン 10 シリアル管理 5 394 8月1日 ARX0331 5177 ワニグチ 45 シリアル管理 6 394 8月2日 SBD0151 5149 ウレタン 5 シリアル管理 7 394 8月2日 BDC0631 5192 ウレタン 5 シリアル管理 8 394 8月2日 SAR0751 5133 レザ- 15 シリアル管理 9 394 8月2日 SAR0571 5147 ワニグチ 10 シリアル管理 10 394 8月2日 SDY0211 5150 ウレタン 5 シリアル管理 11 394 8月2日 SBC0311 5186 ワニグチ 5 シリアル管理 12 394 8月2日 SAR0251 5200 レザ- 35 シリアル管理 13 391 8月2日 SZH55J1Q 0007 ワニグチ 250 14 391 8月3日 SNZ23J2Q 9908 ウレタン 30 15 387 8月3日 SNB26J1Q 0586 ワニグチ 305 はみ出し 16 387 8月3日 SNZ40J1Q 0582 ワニグチ 75 17 394 8月3日 SRX0291 5176 レザ- 90 18 394 8月3日 SRX0531 5182 レザ- 90 シリアル管理 19 394 8月3日 SBY0151 5149 ウレタン 130 シリアル管理 20 391 8月3日 NZF17J1Q 0000 ワニグチ 730 21 393 8月3日 RP850J1 9394 中C 10
これをザックリとすると下記のようにしたいです。
納品書
YYYY年M月D日(送品日)
納品書NO.*** 承認・確認・担当の
明細NO.01 印を押す枠
REF 指図 タイプ 納品数 備考
SRY0531 5153 ワニグチ 220 シリアル管理
ARX0331 5177 ワニグチ 45 シリアル管理
小計 265 SBC0531 5189 ウレタン 10 シリアル管理 小計 10 累計 275
受領/検収の 印を押す枠
REF 指図 タイプ 納品数 備考
SRY0531 5153 ワニグチ 220 シリアル管理
ARX0331 5177 ワニグチ 45 シリアル管理
小計 265 SBC0531 5189 ウレタン 10 シリアル管理 小計 10 累計 275
受領/検収の 印を押す枠
それと、データを確認してもらうとわかりますが、8月1日でも納品書NOが391と394の2つ有りますのでシートにする際は "391-01"用と"394-01"用にしたいです。8月3日は納品書NOが5種類有りますので。
タイプごとの納品数の下に小計を入れて最後の行に累計を入れる感じです。
そしてREF・指図・タイプ・納品数・備考から累計の行までを格子で囲みたいです。
納品書と物品受領書を表記しましたが、いま自分が使用しているフォーマットには一つのシートに納品書と物品受領書の行が有り、納品書にデータを張り付けると物品受領書にもそのデータが表記されるようにしておりますので一つのシートに納品書と物品受領書のデータが有るのが望ましいです。
発行時には納品書、物品受領書と分けて発行しています。
送品日を3日分表記しておりましたが実際は1か月分あり、データ数も1000件以上有ります。VBA無しでは大変だと思い、書き込みして頂きました。よろしくお願いいたします。
< 使用 Excel:Excel2013、使用 OS:Windows10 >
(マナ) 2018/10/14(日) 12:03
>VBA無しでは大変だと思い、書き込みして頂きました。
この掲示板では作成依頼を禁止していないので、ルール的には別にいいのでしょうけど、やはり質問という名の作業依頼(丸投げ)は嫌われる傾向にあります。
ですので、うまく動かないにしてもご自身で考えたコードがあるのであれば、それ を提示して〇〇と動くように書いたはずなのに、××という結果になってしまうなどを説明して添削を求めると皆さんあっというまに添削してくれます。
また、ご自身で手を付けていないのであれば、Excelには「マクロの記録」という機能がありますので、その機能を使って、手動操作をExcel君にコード化してもらい、どのような命令が使われるのか調べるところから手を付けてみてはいかがでしょうか。
とりあえずヒントというかマクロの記録では得られない部分をコメントしておきます
Sub 日付と納品書番号を組み合わせた文字列を返す() Const 日付 As Date = "2018/08/03" Const 納品書番号 As Long = 391 Dim 文字列 As String
文字列 = 納品書番号 & "-" & Format(日付, "dd") MsgBox 文字列 End Sub
(もこな2) 2018/10/14(日) 13:36
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.