[[20040609110342]] 『同一セルで定価の80%を自動計算』(ひろりみ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『同一セルで定価の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.