[[20070627113414]]　『5％引きの計算』（りょーま）　ページの最後に飛ぶ

『5％引きの計算』（りょーま）

￥1.000と打ち込んで5％引きの￥950と表示されるように自動計算
出来るでしょうか？
宜しくお願いいたします。

 同一セル内　ということですか？
 シートモジュールへ

 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0,0) <> "A1" Then Exit Sub
 With Application
      .EnableEvents = False
      Target.Value = Fix(Val(Target.Value) * 0.95)
      .EnableEvents = True
 End With
 End Sub
 (seiya)

 5％引きということは
元値に0.95をかければ算出されますので，
 式でどこかのセルにに 0.95をかけて記載すればOKかと。
（95％）

 =A1*0.95
 のようなこと....?
   (SS)

コメント返信：

[ 一覧(最新更新順) ]

[[20070627113414]] 『5％引きの計算』（りょーま） ページの最後に飛ぶ

[[20070627113414]]　『5％引きの計算』（りょーま）　ページの最後に飛ぶ