Rakamı başka rakama eşitleme

[jraujr]

Merhaba arkadaşlar..
A1 hücresine değişken rakamlar gireceğim. Girdiğim rakama göre bir rakam çıksın istiyorum.
Örnek eşitlemek istediklerim
A1 hücresine
3 rakamı girildiğinde 0,5 çıksın
5 girdiğimde 0,98 çıksın
10 girdiğimde 8987 çıksın
bu rakamları nasıl eşitlerim bu göstermek istediklerime?
Teşekkürler.
Yani kısaca a1 hücresine 3 girdiğimde exel 3 rakamının 0,5 olduğunu bilsin

 

[vkonca]

Aşağıdaki kodu sheet1'e yapıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then Degerler
End Sub

Değerler fonksiyonundan if elseif leri kendine göre ayarla aklıma bu geldi

Function Degerler()
    If Range("A1") = 3 Then
        Range("A1") = 0.5
    ElseIf Range("A1") = 5 Then
        Range("A1") = 0.9
    End If
End Function