EXCEL2000の関数について

質問

A1セルに任意の数字を入力し、同じA1セルにその数値に0.9を乗じた数値を表示させるにはどのようにしたらよいのでしょうか？
他のセルに入力または表示ではなく、同一セルに入力し表示させたいのです。
よろしくお願いします。

回答No.4

KURUMITO

A1セルに数値を100と入力したとします。
その後に例えば関係のないE1セルに0.9を入力してそのセルをコピーします。
次にA1セルを選択して右クリックし「形式を選択して貼り付け」で「乗算」にチェックをして貼り付けます。
するとA1セルの値が90と変化します。
これを利用して例えばA1セルからA10セルまでに元の値を入力しておき、その後にE1セルを選択して「コピー」をし、その後にA1セルからA10セルを選択して右クリックし、「乗算」にチェックをして貼り付けることで元の値に0.9を乗じた値が表示されます。
なお、右クリックして「形式を選択して貼り付け」で「乗算」にチェックという操作はエクセル2000では確認しておりません。

回答No.3

tom04

こんばんは！
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target.Address = "$A$1" Then
If IsNumeric(Target) And Target <> "" Then
Application.EnableEvents = False
Target = Target * 0.9
Application.EnableEvents = True
End If
End If
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

回答No.2

WindFaller

ワークシートの関数では、無理なのですが、

ワークシートのタブを右クリックし、コードの表示から、画面が切り替わったら、以下のコードを貼り付けます。

'//
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address(0, 0) = "A1" Then 'A1を対象にします。
　　If VarType(Target.Value) = vbDouble Then
　　　Application.EnableEvents = False
　　　Target.Value = Target.Value * 0.9
　　　Application.EnableEvents = True
　　End If
　End If
End Sub

回答No.1

tga380

同じセルに、
「最初の任意の数＜値＞」と
「0.9を乗じる＜指示＞」
という2つの要素を組み込むことはできません。

他のセルに入力または表示させたくないなら、マクロを使うという手があります。
マクロは、プログラムのことです。

ツール→マクロ→visual　basic　editor
表示された画面に以下の3行を打ち込んでください。

sub aa()

cells(1,1)=cells(1,1)*0.9

end sub

ツール→マクロ→セキュリティー
というので、高中低3段階を選択する画面が出てくると思うので、
中を選択してください。

ここまでで準備完了です。

任意の数をA1に入力し、
ツール→マクロ　で小さなウィンドウを開き、
aaという部分をダブルクリックでA1の数字が変わるかと思います。

何分2000は使っていないもので、若干食い違っていたらごめんなさい。