エクセルで見積書

質問

エクセルで見積書を作っていたのですが途中で単価が変わって全部9掛けの金額にしなければならなくなりました。もうすでにセルに入っている金額全てを9掛けの金額に一度にする方法はありますでしょうか？
宜しくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

本来は、単価をどこかのセルに入力しておき、金額の欄には、

=単価×個数

のような数式を入れておくものですが・・・
金額欄には直接数値が入力されている場合に9掛け（×0.9）する方法は以下の通り

・どこか関係ないセルに「0.9」と入力し、そのセルをコピーする
・9掛けしたいセルを、[Ctrl]や[Shift]を利用して全部選択する（何回かに分けてもいいけど）
・メニューの[編集]→[形式を選択して貼り付け]で、
　[貼り付け]：[値]にチェック
　[演算]：[乗算]にチェック
　と設定して、[OK]する
・全て終わったら、最初に「0.9」と入力したセルの内容は消去しても構わない

以上で出来ます。

お礼

遅くなって申し訳ございません。
簡単にすぐできました。ありがとうございました！

回答No.4

gutugutu

ワークシートをコピーし新しく出来たワークシートの答えに９掛けすればどうですか？
現在の見積りのワークシートがsｈeet1だったらsｈeet1　にマウスポイントを持っていき→右クリック→移動またはコピーを選択→コピーを作成するにチェック→ＯＫをクリック→sｈeet２が出来ます。
Sｈeet１の内容がそっくりコピー出来た筈ですので９掛したいセルの編集行で＊0.9と入力し、下（右）にコピーするだけです。
もし9掛けがまた変更になる可能性があるようなら、関係のないセルにとりあえず0.9と入力しておいて９掛したいセルの編集行で＊セル番地（とりあえず0.9と入力した番地）を絶対参照させておいて（セル番地入力後　ｆ４キーをす）
こうしておけば仮に８掛けになったら0.9のところを0.8と入力するだけで一発でかわります。へたくそな説明でお分かりになりにくいかと思いますが・・・・・

お礼

ありがとうございました。ちょっと使いにくかったです…すいません…

回答No.3

Futosi

マクロを使えばよいと思います。

マクロ画面を開いて、
For I = 1 To YY '(YY = 対象の最後のセルまで)
Cells(I,XX)=val(Cells(I,XX)) * 9 '(XX = 対象セルの横向きの場所)
Next
と入力すればいいと思いますよ。

例えばセル1Bから16Bまでのデータを加算したいなら
For I = 1 To 16
Cells(I,2) = val(Cells(I,2)) * 9
Next
になります。
Office2000ならこれでいいはずですが、OfficeXPにも同じ構文で利用できるかは当方分かりかねます・・・。
近くにマクロが多少でも使える人がいれば聞いてみればどうでしょう。

お礼

ありがとうございます。しかし私あまりマクロがわからないものでわかりませんでした(*_*)

回答No.2

p-21

見積書がどのような形式で作成されているかによって
簡単に出来るかどうかはわかりませんがワタシはこうやっていました
A列に元ネタがあったとして、
これを全てB列へコピーします
そしてA列の一番最初の行へ
B列のやはり同じ行のデーターを
0.9掛けてやります
例えばA1がそのセルだとすれば
「＝B1*0.9」と入れます
あとはA1セルから最後のセルまでドラッグすればOKです
如何でしょうか？

これをやってから現在は掛け率等に対応できるように
あらかじめ設定を設けるようにしました

お礼

No1の方のようにしていましたのでちょっとこの方法は使いにくかったです…
でもありがとうございました。