次のような見積書フォームを作成することは可能でしょうか。

Question

よくある見積書の形式通りなのですが、明細行は内容・明細・数量・単位・単価・金額・備考の横並びセル群から成り、その明細行は下方へ適当回繰り返されて、最後にそれらを合算する小計行が来ます。

そこでご質問は、3行程度の明細行＋小計行の簡単なものを作っておいて、最初の一行を記入すれば自動的に4行目の空欄明細行が生成されて、小計行は計算結果を表示しつつ自動的に一行繰り下がる、というものは可能でしょうか。同様に2行目を記入すれば新しい明細行の5行目を小計行の一段上に生成したいのです。

エクセルで見積書を作ってあげるのですが、見積が大量になった時に明細行が不足するのを恐れてPC上でトイレットペーパーのように長大な見積用紙を用意した挙句にオートフィルタを使って短縮表示するという無駄と使いにくさを解消したいのです。

WWolf · Accepted Answer

No２です。
マクロはエクセルでＡｌｔ＋Ｆ１１でＶＢＡが出てきます。
左側にあるプロジェクトのSheet1を右クリックし、コードの表示を選択。
Sheet1(コード）という画面が出てきますのでそこに下記を貼り付けし。
Ｎｏ２で書いてあったように
１．A2～G2まで適当なデータを入力。
２．H2をクリックするとA5～G2に転記される。
３．I2をクリックすると新規見積書というメッセージボックスが表示。

練習としてやってみて下さい。ＶＢＡの楽しさも分ると思いますし、質問者さんのしたいことも、イメージとして出来てくると思います。
頑張ってください。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Worksheets(1)
La = .Range("a65536").End(xlUp).Row
If La = 2 Then La = 5
Select Case Target.Column & Target.Row
Case "82"
For i = 1 To 7
.Cells(La + 1, i).Value = .Cells(2, i).Value
Next
Case "92"
MsgBox "新規見積書作成"
End Select
End With

End Sub

noname#11841 · Answer

＃１です。
＞仰ることはNo2のWWolfさんのご回答と同じ内容なのでしょうか。

　いえ、違います。

＞本とそのどこを読めばよいかをお教え頂けませんか。

　ボタンにマクロを登録するやり方が、参考URLにありますので、ご覧になってはいかがでしょうか。

参考URL：http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_01.html

imogasi · Answer

前の質問の続きでしょうが、質問表現が前と変わらない（あまりわかりやすくなっていない）ようですね。
（１）1つは元データがどういう状態（どういう入力を、どこにするのか）なのか書いてないのですが、直接見積書に人手で見積もりデータを入れて行くのでしょうか。それではワープロで清書するのとあまり変わりませんが。
（２）仕事で他の担当者が１行１品目の売り上げデータが多数行連なっているのでしょうか。並び順は。連番とかは。
これらのことが処理する上で肝心です。
（３）どうせいくら見積書の行を増やしても、その限度を超える場合が出る可能性あり。
この件などのため、本件はＶＢＡを使えるか、その覚悟がないと難しいでしょう。
本番の仕事をコンピュターで処理するにはエクセルならＶＢＡを使わないとできないと個人的に思っています。
印刷の自動化もありますのでね。
＞挙句にオートフィルタを使って短縮表示するという無駄と使いにくさを解消したいのです・・・
私なら、オートフィルタでなく、少ないときは小計・合計を上に上げ、罫線もそのようにする。
オーバーしたときは、明細は別シートに繰越し、宛名など上部をコピーした形で自動的に作るとか、ＶＢＡで処理しますね。

noname#11836 · Answer

私の場合（請求書ですが）明細入力は別シートにしています。

請求書は、印刷する形式にしていて、
請求書の明細は、別シートから転記しています。
転記する明細がなくなったときに合計（質問者様の言う小計？）を書いています。

逆の操作になりますが、
これでよいのではないかと思います。

WWolf · Answer

質問者さんの仰っていることは、
１．シート２にデーターベース的な物を作り、シート１に印刷用フォーマットを作成しておきそこに出るようにしたい。
２．シート２の追記方法として、質問内容に書いてある仕様でしたい。
この二点ですか？
Ｑ1
フォームとはＶＢＡで言うＦｏｒｍではないと捕らえて良いのでしょうか？
Ｑ2
データーは蓄積させるべきですか？

その辺は補足をお願いすることとして・・・

可能　Ｏｒ　不可能で言えば、細かい仕様がわかりませんが、”可能”であると思います。
質問者さんのマクロに対しての知識が必要ではありますが、この質問ではどこまでが質問者さんの求めていることかが把握できません。

下記は参考までに・・・
シート１の1行目のセル毎にＡ1＝”内容”、Ｂ1＝”明細”、Ｃ1＝”数量”、Ｄ1＝”単位”、Ｅ1＝”単価”、Ｆ1＝”金額”、Ｇ1＝”備考”を入力し
シート１の２行目に各々データを入力後、Ｈ2をクリックまたは選択するとシート1の5行目以降に追加していくマクロを記述しておきます。
シート１のコードに下記をCopy&Paste

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Worksheets(1)
    La = .Range("a65536").End(xlUp).Row
    If La = 2 Then La = 5
        If Target.Column = 8 Then
            For i = 1 To 7
                .Cells(La + 1, i).Value = .Cells(2, i).Value
            Next
        End If
End With

End Sub

noname#11841 · Answer

ボタンを押すのはだめですか？
　ボタンを押すと、小計行のすぐ上の行を行選択し、「編集」→「コピー」そして、「挿入」→「コピーしたセル」を実行するマクロを組めばよいのでは？

次のような見積書フォームを作成することは可能でしょうか。

No２です。

＃１です。

前の質問の続きでしょうが、質問表現が前と変わらない（あまりわかりやすくなっていない）ようですね。

私の場合（請求書ですが）明細入力は別シートにしています。

この回答への補足

質問者さんの仰っていることは、

この回答への補足

ボタンを押すのはだめですか？

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　ボタンを押すのはだめですか？