[[20030306153207]]　『ある列に税抜き金額入力で税込み価格表示』（名無し１５５）　ページの最後に飛ぶ

『ある列に税抜き金額入力で税込み価格表示』（名無し１５５）

一つの列に税抜きの金額を打ち込むだけで税込み価格に表示させる方法はあるのでしょうか？

税込み価格は税を5%とすれば，1.05をかけるだけではないでしょうか。

  表示させるセルに   =1.05*（元のセル）   と入力します。例   =1.05*A1

   各行に記載するのが面倒なら，コピー貼り付けします。

 但し，データが未入力の場合  0 表示になります。（なお）

（なお）様、ご回答ありがとうございます。

質問の内容が悪かったようで・・・すみません。

１つのセルに金額を打ち込むだけで自動的に消費税計算にするように

したいのですが・・・上記の方法ではだめでした。よろしくお願いいたします。

「なお」です。・・・・・・・・・・「・はだめでした。」ということですが，別のセル(たとえば隣とか）に希望の値が表示されない

                                        ということでしょうか。

                                     それとも，このように別のセルに表示するのではなく，同じセルに表示し直すようにしたいと

                                     いうことでしょうか。そういうことであればVBAマクロを使っていますが，下記でどうでしょうか。

                                     ２個作ってみました。ただし，データ入力後セルが下に移動する設定となっている場合です。

                                       上は

                                           このコードを希望のシートモジュールに書いてください。

                                            そのシートに数値をいれると，入れたセルの値が 消費税計算されて表示されます。

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 iv = Target.Offset(-1, 0).Cells.Value

 Target.Offset(-1, 0).Cells.Value = iv * 1.05

 End Sub

－－－－－－－－－－－－－－－－－－－－－－－－

          下は，標準モジュールに書いてください。どのシートでも機能します。

               一旦データ入力後，マクロを実行すると，そのデータが 消費税計算されて表示されます。

   Sub test()

 iv = ActiveCell.Offset(-1, 0).Cells.Value

 ActiveCell.Offset(-1, 0).Cells.Value = iv * 1.05

 End Sub

マクロを使わない方法もあるのでしょうが，よくわかりません。

コメント返信：