同一セル内に計算結果を入れたいんですが、教えて下さい。

質問

初心者で面倒かけます・・・。

同一セル内に計算結果（割り算）を入力したいのですが、
消費税を求めるマクロを見つけて、編集（掛け算を割り算にしただけ・・・・）したのですが、少数点以下が消えてしまいます。
書式のユーザー設定を変えても少数点以下は「０」表示になってしまいます。

↓↓見つけたマクロ↓↓（１９で割る計算に変えてあります。）

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Range(Target.Address).Column = 1 Then
Range(Target.Address).Value = _
Int(Range(Target.Address).Value / 19)
End If
Application.EnableEvents = True
End Sub

ちゃんと理解していないのにマクロに手だしてスミマセン。。
ヨロシクおねがいします。

回答No.1

n-jun · ベストアンサー

＞Int(Range(Target.Address).Value / 19)

ヘルプより～
Int、Fix 関数
Int(number)
解説
Int 関数と Fix 関数は、どちらも引数 number の小数部分を取り除いた整数値を返します。

と言う事ですから
Range(Target.Address).Value = _
Range(Target.Address).Value / 19
でしょうかね。

お礼

すばやい回答ありがとうございます。
さっそく試してみました。これだけでよかったとは・・・・。
n-junさんのように早くマクロを理解したいものです。
ど素人に付き合っていただきありがとうございました。