• 締切済み

抽出したデータを使って納品書を作成・印刷したいのですが・・・

題名の通りなのですが、まず見積書を作成します。作成した後、エクセルの手入力で工場で製造指示書を作っています。 ここまでは良いのですが・・・ 納品書を作成する時に、製造指示書や見積書等のデータを見ながら納品書を作成しなくてはいけません。 また、私一人が納品書を作成するなら良いんですが、年配の方が納品書を作成されるので記入漏れ等も発生していて、記入漏れを防ぐ為にもマクロ等でボタン1つでデータが納品書に移る様にしてほしいと頼まれました。 ＜例＞ sheet1 NO.　会社名　郵便番号　住所　tel　fax １　　あ　　　　　***-***　　い　　　11　　22 sheet2 物件名　うう 商品名　ええ sheet3（納品書） 郵便番号　***-*** 住所　い tel　11　　fax　22 会社名　あ 物件名　うう　　商品名　ええ VLOOKUP関数で会社名を基に抽出したら良いと言うのは想像つくのですが、私は関数等はある程度出来ますが、マクロが初心者の為に良い形に組むことが出来ません。 バージョンはエクセル2002です。 どなたか、ご教授願います。

みんなの回答

回答No.1

入力済みのデータ（見積書、製造指示書） はどこにあるのでしょうか？ （取引先、物件、商品明細など）

pansy819
質問者

補足

すみません、返答が遅くなりまして データは全て、エクセルで作成していますのでエクセルにあります。 今までは、見積書・製造指示書・納品書は別々のフォルダで管理していました。 関数で組もうかとも思ったのですが、ボタン１つで出来たら・・・と思いまして。 宜しくお願い致します。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ACCESSでの得意先情報・納品書の作成

    教えて下さい ACCESSで得意先情報と納品書を作成しています 得意先情報は 得意先コード 得意先名 郵便番号 住所 TEL FAX 担当者 の７項目です ただ、担当者は１つの会社に７人程います 得意先は80社ぐらいです このデータを元に納品書を作成します この時に得意先コードを選ぶもしくは入力すると 得意先名が自動で入り、尚且つその会社の担当者の７人を コンボで選べるようにするにはどうしたらいいですか？ 超初心者です よろしくお願いします

  • エクセルのデータ検索＆抽出作成について

    Excelの別シートでの検索と抽出について ExcelファイルでSheet1～５まで部署別の発注データで項目は下記の通りA列～G列まですべて同じになっているものがあります。 A列 B列 C列 D列 E列 F列 G列 注文番号 商品名 納品日 納品先 発注額 消費税 合計額 別シート（Sheet6）に「商品名」や「納品先」で検索する項目を作成し、その結果を表示できるようにしたいのですが何か良い方法はないでしょうか？ マクロ・VBAでの作成方法もあればお願いします。 Excelのバージョンは2010です。 並べ替えとフィルター → 詳細設定 → フィルタオプションの設定 で試してみましたが、検索する商品名（納品場所）を変更してしまうと抽出されませんでした。 宜しくお願いします。

  • エクセルで納品書を作成する

    納品、請求書をエクセルで作成しようと始めました。 第一歩でつまずきましたので教えてください。 シート１に納品書の雛形を作りシート２に顧客名簿一覧を作る。 シート１名前に電話番号（下４桁）を打ち込むと該当顧客の シート２の内容がシート１のテキストボックスに表示される。 選択すると、シート１名前が電話番号の顧客に変わる。 こんな風にしたいのですが、シート２の内容をテキストブックにコピーする方法がわかりません。 どうか初心者にわかるようにお教えください。

  • 住所録から２つ以上の条件で抽出する関数について

    Windows Excel 2003で住所録から２つ以上の条件で抽出するにはどんな関数を使えばいいですか？ 例えば住所録で『ＴＥＬとＦＡＸが異なっている番号の別々のセル』と『ＴＥＬとＦＡＸが同じ番号のセル（ＴＥＬとＦＡＸが同じなのでＦＡＸのセルは空欄）』尚且つ『Ｅメールのある会社名』を抽出する関数はありますか？

  • 納品書の保存について教えて下さい。

    個人事業主で食品の卸をしています。 自社で在庫は持たず、製造と発送は委託しています。 <処理の流れ> 自社のパソコンでPDFの納品書を作成 　　↓ 製造委託先にFAX(パソコンからFAXにデータで直接流して送っており、紙では出していません) 　　↓ 製造委託先は商品に納品書を同梱して発送 以下2点についてご回答をお願い致します。 【質問1】 ・上記の場合、保存しておく納品書の控えは、 　自社で作成した納品書(PDF)だけで問題ないでしょうか？ 【質問2】 ・仮に自社で発送する場合は、納品書は紙に印刷する事になるので、 　印刷した納品書をスキャンするか、紙にコピーして保存という事になるのでしょうか？ 　それとも、納品書(PDF)の保存だけでOKなのでしょうか？ 以上です。ご回答をお願い致します。

  • 納品書作成の管轄

    いつもお世話になります。 タイトルの内容についてなのですが、 素人の為アドバイス頂ければ幸いです。 納品書は生産管理が作成するのか、経理が作成するのかなのですが 当社は製造業なのですが、現在まで、生産管理担当者が下記業務を担当しています。 １．顧客より内示情報 ２．生産計画立案 ３．確定情報受注 ４．生産指示（製造担当課へ） ５．納品書作成 ６．荷揃 今回納品書をパソコン入力で作成する事になったのですが、生産管理担当者が納品書作成は経理の仕事ではと意見しており、色々ともめています。 こだわる事ではないのですが、個人的にはどちらがやるべきというより、経理では出荷する内容の情報が解らないので、納品書は作成できないのではと思います。それとも注文書をもらってそこから出荷内容の情報を記入する事も可能ですが、必ず全て出荷されるとも限らないし。 生産管理が納品書作成後、経理に回してそこから経理としての仕事なのではと思っています。 また、最近受注と同時に指定の納品書（カード）が発行される顧客が多い為、納品するカードを経理に渡して、パソコン入力（社内履歴用）して欲しいという生産管理担当者の意見もあります。 先にもいいましたようにこだわる必要はないのですが、生産管理担当者が誤解で不満を持ったままだといけないので、参考になる意見があれば教えて下さい。 宜しくお願い致します。

  • 納品書をExcelVBAで作成したいです。

    初めて質問いたします。 ExcelVBAマクロで納品書を作成使用と思っております。 シートは納品一覧というシートとSetting（開始行を設定するシート）と納品書の雛形シートの3つがあります。 納品一覧シートに納品書番号、発行日、納品日、販売店、商品、重量、数量、単価、金額（金額は自動計算）を入力。 Seettingシートは開始行と使用済み納品書番号（使用済み番号は自動で入ります。） 納品書雛形はA5サイズで9品まで表示することができます。 下記のようなコードを作成しましたが、ご質問したい事があります。 Option Explicit Const Maxrow = 10000 '共通変数定義 Public wsData As Worksheet '納品データを入れる変数 Public wsRiminder As Worksheet '納品書雛形 Public wsSetting As Worksheet 'セッティング用シート Public RowsData As Long '納品データの行 Public NouhinNum As Long '納品書番号 Public r, rr, r1, r2, r_to As Integer 'for文用カウンター Public previousCilient As String Public clientname As String 'シート初期化 Sub clear_Sheet() wsRiminder.Rows("15:23").Hidden = False '隠れている行を再表示する。 wsRiminder.Range("B15:X23").Value = "" '納品書の項目、数量、単価の部分を初期化 End Sub Sub Copy_Sheet() wsRiminder.Copy before:=wsRiminder '納品書雛形をコピーする ActiveSheet.Name = NouhinNum 'シート名を納品番号にする。 Set wsRiminder = ActiveSheet 'シートをコピーすると新しくできたシートがアクティブになる。 End Sub Sub Create_Riminder(r1, r2) '請求書作成 wsRiminder.Cells(2, 30).Value = NouhinNum '納品書番号 wsRiminder.Cells(3, 30).Value = wsData.Cells(r1, 2).Value '発行日 wsRiminder.Cells(4, 30).Value = wsData.Cells(r1, 3).Value '納品日 wsRiminder.Cells(6, 1).Value = wsData.Cells(r1, 4).Value '顧客名 r_to = 15 '納品書の項目名の最初の行番号 For r = r1 To r2 With wsRiminder .Cells(r_to, 2).Value = wsData.Cells(r, 5).Value '商品名 .Cells(r_to, 20).Value = wsData.Cells(r, 6).Value '重量 .Cells(r_to, 24).Value = wsData.Cells(r, 7).Value ' 数量 .Cells(r_to, 28).Value = wsData.Cells(r, 8).Value '単価 r_to = r_to + 1 End With Next wsData.Cells(r2, 10).Value = "済" End Sub Sub Createlist_Riminder(r1, r2) '請求書の項目の部分のみ作成 For r = r1 To r2 With wsRiminder .Cells(r_to, 2).Value = wsData.Cells(r, 5).Value '商品名 .Cells(r_to, 20).Value = wsData.Cells(r, 6).Value '重量 .Cells(r_to, 24).Value = wsData.Cells(r, 7).Value ' 数量 .Cells(r_to, 28).Value = wsData.Cells(r, 8).Value '単価 r_to = r_to + 1 End With Next wsData.Cells(r2, 10).Value = "済" End Sub Sub Process_Riminder() Dim BlnRtn As Boolean Set wsData = ActiveWorkbook.Worksheets("納品一覧") Set wsSetting = ActiveWorkbook.Worksheets("Setting") Set wsRiminder = ActiveWorkbook.Worksheets("納品書雛形") RowsData = wsData.Cells(Rows.Count, 2).End(xlUp).Row 'リストの最終行番号を取得 NouhinNum = wsSetting.Cells(2, 1).Value 'for文用カウンターの定義（r1=2行目から始める,r2はリストの行数） r1 = wsSetting.Cells(2, 1).Value r2 = r1 + 1 Do While Len(Trim(wsData.Cells(r1, 4).Value)) <> 0 And wsData.Cells(r1, 9).Value <> "済" '会社名が空欄ではない場合ループする previousCilient = wsData.Cells(r1 - 1, 4).Value clientname = wsData.Cells(r1, 4).Value If wsData.Cells(r1, 9).Value <> "済" Then 'リストが作成済みになっていないもの '会社名によって初期設定される雛形シートが違う If wsData.Cells(r1, 1).Value <> wsData.Cells(r1 - 1, 1).Value Then '納品書番号が次の行と違うとき NouhinNum = wsData.Cells(r1, 1).Value For r = r1 To r2 - 1 Call clear_Sheet '雛形シートを初期化 現在の納品書の雛形ですと9品までしか表示できないので 9品以上ある場合は別途納品内訳書というシートを作成してそこに商品名、重量、数量、単価、金額を表示するようにしたいのですが、どのように組めばいいかイメージがわきません。 どうかお力添えいただけないでしょうか。

  • ズバリ見積・納品書・請求書の納品書作成について

    昨日「ズバリ見積・納品書・請求書」を使い始めたばかりです。 納品書を作成する時に名称・数量などを記入する空欄が20行程あり、使用するのは5行程度なので減らす事ができるのでしょうか？ また、テンプレートは色違いの3種類のみなのでしょうか？ ご回答お願い致します。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

  • 関数を使ってデータの抽出

    win　excel97を使用しています。 sheet1に下記のようなデータが3000件程度あります。 　 A　　　　　　　B　 　 　 会社名　　　取引先会社名 2 aaa 　　　○○ 3 aaa 　　　■■ 4 bbb　 　　　△△ 5 bbb 　　　◆◆ 6 bbb　 　　　●● 7 ccc 　　　×× sheet2のB～のセルに、sheet1の取引先会社名を列方向に 抽出させてたいのですがどうしたらよいでしょうか？ マクロやVBAは苦手なので関数で教えていただきたいです。 sheet2 　 A　 　　　　B　　　　　　　　C　　　　　　　D 会社名　取引先会社名1　　取引先会社名2　・・・ 2 aaa 　　○○　　　　　　■■　　　　　 3 bbb　　　△△　　　　　　◆◆　　　　　●●　　 4 ccc　　　××　　　　　　

  • エクセルで住所録を作成し、出納帳にそのデーターを使用したい。

    エクセルで住所録を作成し、出納帳にそのデーターを使用したい。 コードNOを入力すると指定位置へ会社名・住所などが自動的に入力できる方法があれば教えてください シート1に A3 コードno B3　会社名 C4　郵便番号 D4　住所　 E3 電話 F3　fax を入れ作成していきます シート2に出納帳を作成し B1 コードno B2 会社名 C3 〒番号 B4　電話 F5　fax の欄を作りました。住所録が200件ぐらいあるので各会社ごとにシートを作ると多くなってしまうので、住所録を作りデーターを飛ばすようになればと思います。出来ればコードno1つで他も飛ぶといいのですが よろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する