2017/12/21(Thu) 11:19:00 編集(管理者)
>B1セルに =IF(A1="A",1000,"") といった数式を入力することが考えられます。
ただし、Bを選択したときには空欄になりますので、手入力すればよいのですが、
そのあとに、Aを選択しても数式は手入力した値に代わっているので、1000に変化しません。
A1セルの値に応じて、B1セルが変化するようにするには、VBAを使うことも考えられます。
Changeイベント↓をご覧ください。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change
Sheet1に下記のようなコードを書きます。
A1とA2の値が変わった時に反応して、Aの時は1000、Bの時は隣のセルに”手入力しなさい"を返します。
(編集:1行追加しました & r が抜けていたのを修正)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
if Target.Value = "A" then target.offset(0,1).value=1000
if Target.Value <> "A" then target.offset(0,1).value="手入力しなさい"
Application.EnableEvents = True
End Sub