[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『同一セルで定価の80%を自動計算』(ひろりみ)
こんにちは
A1のセルに10000(定価)と入力した場合自動的にA1のセルに
定価*80%の8000が出るようにしたいのですが、
どなたかよろしくお願いします。
本来なら別のセルに、例えばA1に10000としてB1に=A1*0.8などとした方がいいような気がします。 (少数点以下の処理は考えていません。) お望み通りならVBAでの処理になります。 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value * 0.8
Application.EnableEvents = True
End Sub こんな感じです。(ケン)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.