- ベストアンサー
エクセルで作る見積表の抽出印刷方法？？
noname#4117の回答
これでどうでしょうか・・・ １：見積表書式を作成する（これを見積表シートとする） ２：見積表シートをシートコピーし、印刷シートを作成する ３：見積表シートに入力したら印刷シートへ反映するようにセルをコピーする。 （相手会社名・日付・個数等、営業の人が入力するであろう箇所をコピー） ４：印刷用マクロを作成する a まず納品書シートに画面を戻し、個数欄に例として数を入力しておく b 「ツール」→「マクロ」→「新しいマクロの記録」→マクロ名「印刷」・マクロの保存先「作業中のブック」→ ＯＫ（ここからマクロの登録開始） c 印刷用シートに画面を写す→「データ」→「フィルタ」→「オートフィルタ」→「オプション」→ 抽出条件の指定「0と等しくない」→ＯＫ→記録終了 ５：営業さんに分かりやすいように印刷ボタンを作る a 「表示」→「ツールバー」→「フォーム」 b 「ボタン」→ボタンを作る→マクロの登録「印刷」を選択→OK c 作ったボタンを右クリックし、「テキストの編集」で名前を「印刷」に変える ４・５と同様の手順で「クリア（消去）」を作ったり、 営業の人が入力する箇所に「塗りつぶし」を作っておくと親切でしょうね。
関連するQ&A
- エクセル２０００で見積書の印刷
エクセル２０００で作成した見積書があるのですが、内訳の中で、例えば 品名、 規格、単位、数量、単価、金額 の欄があり 金額の欄のセル内に＝数量*単価の計算式が入っています。 項目の内、数量が１個、とか１式の場合に限り、印刷の時に単価の金額だけを空白で印刷したいのです。（今までは全て印刷していました。） もちろん金額の欄に直接入力しちゃえば良いのですが、金額欄のセル内の計算式はいじりたくないのです。ＶＢＡが今ひとつわからず悩んでいます。 わかり難かったら補足いたしますのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで作る見積表の抽出方法（ゼロ入力でも抽出したい！）
OSはWindowsNT、Excel97です。 こんにちは。以前こちらで「見積表の抽出方法」をお聞きして素晴らしい見積表を作らせて頂きました。あの時は、数量欄に数字を入れた行のみ抽出し、さらに元に戻す事も出来るという、以下の2つの構文を教えて頂きました。 Private Sub CommandButton1_Click() ActiveSheet.Unprotect Dim i As Integer i = 2 Do Until i = -1 If Worksheets("単価表").Cells(i, 6).Value = "" Then i = -1 Else If Worksheets("単価表").Cells(i, 6).Text = 0 Or _ Worksheets("単価表").Cells(i, 6).Text = "" Then Worksheets("単価表").Rows(i).Select Selection.EntireRow.Hidden = True End If i = i + 1 End If Loop ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Private Sub CommandButton2_Click() ActiveSheet.Unprotect Worksheets("単価表").Cells.Select Selection.Rows.Hidden = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub それでもう1つ質問なのですが、 この構文では、数量欄にゼロ（０）を入れると抽出出来ません。できればゼロを入れた時も抽出されるようにしたいのです。 つまり数量欄が空欄以外はすべて抽出されるようにしたいのです。 説明不足でしたら補足致しますので、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル 表の自動追加
エクセルで見積書を作成しています。 単純化して書きますと Ａ Ｂ Ｃ Ｄ Ｅ １ 商品コード 商品名 単価 数量 金額 合計￥～～ vlookup関数を使ってＡ列に商品コードを入力Ｂ列に商品名、Ｃ列に単価が引用され、後はＤ列の数量を入力すればＥ列の金額および合計金額が出るというようにしているのですが、 Ａ～Ｅが埋まれば自動的に２行目が合計との間に挿入されるような関数？などはあるのでしょうか。現在では15行程度の表があるのですが、もっと数が増えたときや、数が少ないときに〆の線を引くのが面倒なのです。 私自身はエクセルはネットで独学程度で学んでいるので詳しくありません。自分でいろいろ調べたのですが（と言ってもネットで調べただけですが）ＶＢＡを使用しなければ難しいでしょうか？ 拙い文章で申し訳ありませんが、ご教授のほどよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel別シートに同じ値を反映させたい
初めて質問いたします。 EXCELで見積書と別シートに商品一覧を作成しております。 商品一覧には単価、数量、合計金額で計算式を組んでおります。 商品一覧中数量を入力したものを商品名、単価、数量、合計金額として見積書に反映させたいと思っております。 同座標へは反映できるのですが、商品が数十種ある為、例えば行１と行５で数量入力した場合、見積書には行２～行４までは空白になってしまいます。この間隔を空けずに見積書に反映させることは出来るのでしょうか？ ご教授いただきたくお願い申し上げます。
- ベストアンサー
- Excel（エクセル）
- エクセルで複数シートを一覧表にするには？
教えてください。エクセルで複数シートを自動で別のシートに転記したいのですが、 やり方がわかりません。 各シートの空白部分を除いてデーターがある分だけを取り出して、金額に数式を入れて 合計金額を追加したいのですが・・・・・。 下記のような感じでできますか？ 宜しくお願いいたします。 Sheet1 商品名 単価 数量 **** ０００ ０００ **** ００ ００ Sheet２ 商品名 単価 数量 **** ０００ ０００ **** ００ ００ Sheet３ 商品名 単価 数量 **** ０００ ０００ **** ００ ００ をSheet4に シート名 商品名 単価 数量 金額 Sheet1 **** ０００ ０００ ００００（単価×数量) **** ００ ００ ００００（単価×数量) 合計金額 ０００ Sheet２ 商品名 単価 数量 金額 **** ０００ ０００ ００００（単価×数量) **** ００ ００ ００００（単価×数量) 合計金額 ０００ Sheet３ 商品名 単価 数量 金額 **** ０００ ０００ ００００（単価×数量) **** ００ ００ ００００（単価×数量) 合計金額 ０００
- 締切済み
- オフィス系ソフト
- エクセル 計算が自動的に切り替わらない
こんにちわ お願いします。 会社で見積書を作成してます。 エクセルで見積書作成したファイルを基にコピーし、数量、単価だけを変更、別見積書作成しました。その際自動的に合計数量が計算されません。(計算される時もあります。) 計算方法は、基の見積表：数量ｘ単価＝合計金額 総合計はｚで入力して見積書作成しています。 前に作成した。見積書をコピーして数量などを変更して出したいのです。 良いファイルの作成方法があれば教えて下さい。 よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセ表の印刷方法について
エクセルで棚卸表を作成しましたが、合計重量又は合計金額が0の場合、その行は印刷しないようにしたいのですがどの様な方法があるのでしょうか。 取扱品目が500品目あり商品は当初から全て表示されています。 要するに、合計欄の重量、金額が0の場合は印刷から除外することにより印刷枚数を減らすのが目的です。 サンプルとして画像を添付します。
- ベストアンサー
- Excel（エクセル）
- エクセル・見積表の抽出印刷方法？その３
先日（No．130709とNo．130958）、エクセルで作成した見積表の数量を入力した行のみを印刷したいとお聞きした者です。その際は、多くの方に回答を頂き、誠にありがとうございました。おかげさまで完成間近ですが、もう1つ問題が出てきてしまいました。宜しくお願いします。 商品によっては、行を追加し手で入力しなくてはならないものがあるので、あらかじめ空白行（金額列には０が入っています）を設けておきたいのですが、そうすると抽出した際、空白行も一緒に抽出されてしまいます。空白行がある場合は、下記の構文のやり方では無理なのでしょうか？空白行も非表示にしたいのです。 Private Sub CommandButton1_Click() Dim i As Integer i=2 Do Until i=-1 If Worksheets("Sheet1").Cells(i,1).Value=""Then i=-1 Else If Worksheets("Sheet1").Cells(i,6).Text=0Or_ Worksheets("Sheet1").Cells(i,6).Text=""Then Worksheets("Sheet1").Rows(i).Select Selection.EntireRow.Hidden=True End If i=i+1 End If Loop End Sub Private Sub CommandButton2_Click() Worksheets("Sheet1").Cells.Select Selection.Rows.Hidden=False End Sub 以上です。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 表の中だけ詰めたい
エクセルで見積を作成しています。ほぼ初心者です。 名称と金額はあらかじめ入力しておいて数量だけを入れるような 書式を作っています。 数量がゼロの項目があった場合、見積の表の行数はそのままで、ゼロの 行だけ詰めたいのですが、何か方法があるのでしょうか。 教えてください。
- 締切済み
- オフィス系ソフト
- Excelで見積書を作成したいのですが・・・(T-T)
Excelで見積書を作成しています。 C16～C35までを商品名にしてE16～E35までを数量、F16～F35までを 単位、G16～G35までを単価、H16～H35までを数量×単価の金額に にしています。 1社へ出す見積りであれば問題ないのですが、同じ商品、数量、単位 なのにグループ会社（約100社）へ同時に出す場合があるのですが、商品、数量まで同じなのですが、単価だけが掛け率が違うのです。 グループ会社のA社へは15％（原価÷0.85）で、B社へは20％ （原価÷0.80）になったりします。 どこかのセルに掛け率を入力 すれば単価だけ入力した掛け率によって自動的に変わらないでしょうか？ そうすれば宛先の社名を入れ替えるだけで簡単に出来ると 思っています。 100社全ての単価を電卓で掛け率を計算して入力するのは大変です。(^_^;)どなたか詳しい方助けて下さい。 OSはwindowsXPでExcelはOffice２００３を使用しています。
- ベストアンサー
- オフィス系ソフト
補足
お返事ありがとうございます。 分からない点がありましたので、教えてください。 この方法だと、数量を入れ終わった後に訂正をしたい場合、もとの見積表シートを修正しても、自動的には印刷用シートに反映されませんでした。フィルタの逆三角マークを押して、「すべて」にすればでましたが・・・。どうしてでしょうか？やりかたが違うのでしょうか？ また、印刷ボタンですが、出来る事は出来ましたが、これを押すと印刷できるのですか？私が作ったボタンでは、表が範囲指定されるだけで印刷までは出来ませんが、そういったものなんでしょうか？宜しくお願いします。