>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