Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3692 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60681】見積書のひな型を作っています しんじ 09/3/8(日) 0:48 質問[未読]
【60688】Re:見積書のひな型を作っています ichinose 09/3/9(月) 7:59 発言[未読]
【60681】見積書のひな型を作っています
質問  しんじ  - 09/3/8(日) 0:48 -
引用なし
パスワード
   始めまして、現在エクセルで見積書の雛形を作っています

A　　　B　　　C　　　 D　　 E　　　　　　　F　　　　　　 G
1　　　　　　　　　　　　　　税抜合計　　　 消費税　　　　税込合計金額
2　　　　　　　　　　　　　　＝SUM(D5:D20)　＝E2*0.05　　 ＝E2*1.05
3
4品名　 数量　 単価　　金額
5　　　　　　　　　　　　=B*C
6　　　　　　　　　　　　=B*C
7　　　　　　　　　　　　=B*C
8　　　　　　　　　　　　=B*C
9　　　　　　　　　　　　=B*C
・　　　　　　　　　　　　・
・　　　　　　　　　　　　・
・　　　　　　　　　　　　・
20　　　　　　　　　　　 =B*C

こんな感じで、式を入れたのですが
行の途中（A8など）に小計を入れる方法を教えていただけませんか。

以前ネットで、調べてVBAで
小計を入れて、計算ができるようになったのですが、
小計を消して　ほかの商品名などを入れても　元の計算式に戻りません
小計の区切りが、見積の中で結構出てくるので書き直しができる状態にできればと思います

VBAは、初心者で意味もわからず　コピー　貼り付けでがんばっている状態です
できれば、コピー　貼り付けできる状態で回答いただければと思います
よろしくお願いします
【60688】Re:見積書のひな型を作っています
発言  ichinose  - 09/3/9(月) 7:59 -
引用なし
パスワード
   ▼しんじ さん：
おはようございます。

>始めまして、現在エクセルで見積書の雛形を作っています
>
> A　　　B　　　C　　　 D　　 E　　　　　　　F　　　　　　 G
>1　　　　　　　　　　　　　　税抜合計　　　 消費税　　　　税込合計金額
>2　　　　　　　　　　　　　　＝SUM(D5:D20)　＝E2*0.05　　 ＝E2*1.05
>3
>4品名　 数量　 単価　　金額
>5　　　　　　　　　　　　=B*C
>6　　　　　　　　　　　　=B*C
>7　　　　　　　　　　　　=B*C
>8　　　　　　　　　　　　=B*C
>9　　　　　　　　　　　　=B*C
>・　　　　　　　　　　　　・
>・　　　　　　　　　　　　・
>・　　　　　　　　　　　　・
>20　　　　　　　　　　　 =B*C
>
>こんな感じで、式を入れたのですが
>行の途中（A8など）に小計を入れる方法を教えていただけませんか。

私なら、品名の前の列に区分という項目を増やしますね
この区分に入力した値によって、行う処理を区別します。

例　

区分
　　0：通常の見積行
　　3：小計行
　　9：削除指示

等という仕様にして、
後は、

シートモジュールの

Worksheet_Changeイベントプロシジャーにて
区分項目に入力された値によって、

金額項目に設定する数式を区別する

という方法です。

検討してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3692 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free