エクセル・見積表の抽出印刷方法
- エクセルで見積表を作成する際、項目が増えるとエラーになる問題が発生しました。項目が増えても正常に動作する式（構文）を教えてください。
- 素人の私にはエクセルの構文が理解できず、見積表のアレンジができません。プロの方に助けていただきたいです。
- 先程の質問（No.130709）で頂いたご回答に感謝しています。同じ内容で追加の質問をさせてください。
- ベストアンサー
エクセル・見積表の抽出印刷方法？？？その２
先程（No.130709）は、沢山の方にご回答頂き、本当にありがとうございました。 同じ内容で更にお聞きしたい事があり、もう1度質問させてくださいっ！なお、この質問が終わり次第、先ほどの質問と併せて締め切らせて頂くつもりでおります。 先程、kukkychanさんにご回答頂いた内容で作成してみたところ、思い通りの表ができたのですが、項目が増えるとあの式ではエラーになってしまいました。そこで大変、あつかましいお願いなのですが、項目が下記の場合の式（構文）を教えて頂けないでしょうか？もし他にお分かりになる方がいらっしゃいましたら宜しくお願いします。 Ａ列＝商品名、Ｂ＝摘要、Ｃ＝数量、Ｄ＝単位、Ｅ＝単価、Ｆ＝金額、Ｇ＝備考 以上です。 素人の私には、あの構文はチンプンカンプンでアレンジの仕様もありません。トホホ。（悲）プロの方、宜しくお願い致します！！
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
完成近しですね！ 上手くいっているのなら kukkychanさまの回答をそのまま一部変更でできるはず 変更点のみあげておきます (4)メニューバーのファイルより 印刷範囲の設定を行なう （Ａ列～Ｇ列を印刷） 作成手順： （以下略） Else If Worksheets("Sheet1").Cells(i, 4).Text = 0 Or _ Worksheets("Sheet1").Cells(i, 4).Text = "" Then の部分を If Worksheets("Sheet1").Cells(i, 6).Text = 0 Or _ Worksheets("Sheet1").Cells(i, 6).Text = "" Then に変更すればOKのはずです（変更は要は４が６になっただけ、 合計金額のセル位置の変更を反映させるだけ） 頑張ってくださいね
関連する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つ質問なのですが、 この構文では、数量欄にゼロ（０）を入れると抽出出来ません。できればゼロを入れた時も抽出されるようにしたいのです。 つまり数量欄が空欄以外はすべて抽出されるようにしたいのです。 説明不足でしたら補足致しますので、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで見積を作ってるのですが…
今日の17時までに見積を訂正しないといけないのです。 既にできあがってる見積金額の約80％の金額にしたいのです。 見積は単価の列と数量の列をかけて、金額を出し金額の列を『sum関数」で合計を出しています。 『列』或いは『行全体』に一括で0.8かけるという式はどうすれば良いのでしょうか？ ※うまく伝えられてナイかもしれないですが、たとえば230万の見積を190万にする為に小項目全てを変更しないといけない場合どうすれば一番簡単か？を聞きたいのですが…
- ベストアンサー
- オフィス系ソフト
- accessのレポートで重複データに〃を印刷する方法は？
アクセスを使って納品書を印刷しています。 レポートの内容が現在、 日付 商品 数量 単価 金額 備考 1/1 A 1 10 10 い 1/1 B 2 20 40 ろ 1/5 A 2 10 20 ろ このように印刷されているのですが、 これを、 日付 商品 数量 単価 金額 備考 1/1 A 1 10 10 い 〃 B 2 20 40 ろ 1/5 A 2 10 20 〃 このように、上のデータと重複するデータがあった場合に、 〃 ←この同じという記号を印刷するには どうしたらよいのでしょうか？ 今の所、日付と備考欄でこの記号が印刷できればよいのですが。 アクセスはまだまだ初心者です。 よきアドバイスありましたら宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル・見積表の抽出印刷方法？その３
先日（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 以上です。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 外構工事の見積は妥当ですか？
現在、地元の工務店で新築建設中です。 外構工事は下請け業者に発注をするそうです。 外構工事の金額が妥当か判断をお願いいたします。 項目 形状・摘要 数量・単位 見積単価（円） 見積金額（円） やり方 １式 \１２５００ \１２５００ コンクリートタタキ 鉄筋＋ｔ＝１５０ １３８m2 \１２５００ \１７２５０００ 掘削積込み ５５m3 \２５００ \１３７５００ 残土処理 ５５m3 \５０００ \２７５０００ ゜ 目地切り ３０ｍ \２５００ \７５０００ 歩車道ブロック １６ｍ \５６３０ \９００８０ 重機運搬費 １式 \３７５００ \３７５００ 諸費用等 １式 \２１７９００ \２１７９００ 宜しくお願い致します。
- ベストアンサー
- 新築一戸建て
- 「摘要」について教えてください
「摘要」について教えてください。見積書などの一番上の欄には普通「日付、商品名、数量、単位、単価・・・」などと書かれていますが、その中の「商品名」欄の名称が「摘要」になっているのは正しいのでしょうか？「備考」欄が「摘要」ならわかる気がするのですがどうでしょうか？
- ベストアンサー
- その他（税金）
- 相見積
これの相見積はリフォーム業者ですか？水道屋さんですか？給湯器屋さんですか 見積書 内外装工事一式 （株）＊藤製畳店リフォーム事業部 480-1142 愛知県長久手市蟹原７０４ 合計金額￥ 648,000 - 品名、仕様 数量 単位 単価 合計 摘要 給水工事 0 給水配管更新工事 0 架橋ポリエチレン管 1 巻 38,000 38,000 同上継手接合剤 1 式 45,000 45,000 ストップ弁 1 式 2,500 2,500 消耗品雑工事 1 式 20,000 20,000 穴あけ工賃 1 式 50,000 50,000 支持金物費 1 式 70,000 70,000 配管工費 1 式 200,000 200,000 屋外保温工費 1 式 18,000 18,000 試運転調整費 1 式 15,000 15,000 雑工事 1 式 45,000 45,000 交通運搬費 1 式 20,000 20,000 風呂釜脱着費 1 式 50,000 50,000 諸経費 1 式 45,000 45,000 0 0 値引き 1 式 合計金額 （消費税抜き） 600,000 備考 消費税 48,000 税込金額 648,000
- ベストアンサー
- リフォーム・リノベーション
- 駐車場の見積り。。
建売を購入しました。 駐車場１台は無料です。２台目からは有料ということで、業者さんより頂いた見積もり内容です。 前回、お伺いしたとき、1平米１万円は高いと言う事でした。 実際の見積り内容を記載してみました。 指摘を頂いても宜しいでしょうか？ 摘要 ・ 数量 ・ 単価 ・ 金額 1 再生砂利・・・ 4立方メートル×3,700 ＝ 14,800 2 運賃/２トン車 ・・・ 2台× 8,000 ＝ 16,000 3 ワイヤーメッシュ/鉄筋 ・・・30m2× 1,800＝ 54,000 4 路盤下地整地工事/重機械共・・・ 1 式× 38,000＝ 38,000 5 生コンクリート工事/2トン車・・・4立方メートル× 21,000＝ 84,000 6 打設工事手間・・・ 3人× 18,000＝ 54,000 7 左官仕上げ工事・・・ 1式× 45,000＝ 45,000 8 現場管理費/諸経費・・・ 1式× 20,000＝ 20,000 消費税 16,290 合計 342,090 宜しくお願いします。。。
- 締切済み
- 新築一戸建て
- Excelの計算式
検索してもわからなかったので質問失礼いたします。 Excelで月別の単価×数量の計算をしたいのですが、単価は固定、数量は毎月違います。 単価×1月分数量、単価×2月分数量といった形の表としてまとめたいのですが良い方法はないでしょうか。 質問がわかりにくくて申し訳ありません。 今現在は単価がA1、数量がC１～F１に入力されているので、 【=A1*C1+A1*D1+A1*E1+A1*F1】といった計算式で計算しているのですが、 この計算だとエラーも出ますし式もごちゃごちゃとしてしまうので整理したいのです。 回答宜しくお願いします。
- ベストアンサー
- その他MS Office製品
