[[20150404083634]]　『税抜価格を入力したら税込み価格に変更したい』（新入社員）　ページの最後に飛ぶ

『税抜価格を入力したら税込み価格に変更したい』（新入社員）

初めまして!!
早速ですがA3:L33のセルに税抜の価格を入力すると税込み価格になるようにしたいのですが??????です。
どなたか教えていただけません?

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 もし、特定のシートだけであればそのシートモジュールに

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WK_RANGE    As Range
    Dim ZEI         As Currency

    ZEI = 1.08

    If Intersect(Target, Range("A3:L33")) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each WK_RANGE In Target
        If IsNumeric(WK_RANGE.Value) Then
            WK_RANGE.Value = Round(WK_RANGE * ZEI)
        End If
    Next
    Application.EnableEvents = True
 End Sub

 全てのシートであればThisWorkbookモジュールに
 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim WK_RANGE    As Range
    Dim ZEI         As Currency

    ZEI = 1.08

    If Intersect(Target, Sh.Range("A3:L33")) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each WK_RANGE In Target
        If IsNumeric(WK_RANGE.Value) Then
            WK_RANGE.Value = Round(WK_RANGE * ZEI)
        End If
    Next
    Application.EnableEvents = True

 End Sub
 としてみてくれ。

（ねむねむ） 2015/04/04(土) 09:38

わざわざマクロでやらなくてもいいのでは？

A35～L65にそれぞれ、例えばA35に、=A3×1.08
A36に、=A4×1.08、A37に、A5×1.08、の繰り返しはダメなのでしょうか？

もし、これからの増税に備えるのであれば、1.08をどこかのセルを完全に固定参照する設定を行い、増税したときにそこを変更するだけで対応が完了します。わざわざマクロを使う必要はないと思うのですが。
（スズメ） 2015/04/04(土) 09:56

 マクロを使えばわざわざ入力と表示を別のセルにする必要はないですよね。

 ＃私だったら「入力と表示を別のセルにしていいのであれば」とかせつめいするだろうな。ほかの書き込みなんかから見てスズメさんらしいかきこみだと思うが。
　
（ねむねむ） 2015/04/04(土) 10:03

 数式でやるのなら、式を一つ書けば後は式のコピーで行けます。
（カリーニン） 2015/04/04(土) 10:46

 税率をセル参照して設定する場合は税率変更前と変更後のデータが混在する場合は
 注意が必要です。

 税率を入力したセルを書き換えたら変更前のデータもすべて税率が変わってしまいます。

 そんな場合は変更前のデータを「値」で貼り付け直す、データの日付によって税率を参照
 するセルを条件分岐する、あるいは税率を数式内にハードコーディングして条件分岐する、
 などの対処が必要です。
（カリーニン） 2015/04/04(土) 10:53

 >あるいは税率を数式内にハードコーディングして条件分岐する

 たとえば 1.08 や 1.10 をいれたセルに名前をつけておき、数式内の税率としては、セルの名前を参照。
 税率を変更したい部分のセルを選択して、旧の名前->新しい名前　に置き換えるということもできそうですね。

（β） 2015/04/04(土) 11:00

ねむねむ様
おかげさまで快適に入力作業が進みます。
スズメ様もありがとうございました。

（新入社員） 2015/04/04(土) 14:48

コメント返信：

[ 一覧(最新更新順) ]

[[20150404083634]] 『税抜価格を入力したら税込み価格に変更したい』（新入社員） ページの最後に飛ぶ

[[20150404083634]]　『税抜価格を入力したら税込み価格に変更したい』（新入社員）　ページの最後に飛ぶ