EĞER li uzun formülün alternatifi

[modoste]

merhaba sayın hocalarım
arkadaşımın bir sorusunu size göndermek istiyorum
EĞER ile yaptığı
"=EĞER(CF3045<5;CF3045;EĞER(VE(CF3045<=9,55;CF3045>5);CF3045+0,45;EĞER(VE(CF3045<=14,1;CF3045>9,55);CF3045+2*0,45;EĞER(VE(CF3045<=18,65;CF3045>14,1);CF3045+3*0,45;EĞER(VE(CF3045<=23,2;CF3045>18,65);CF3045+4*0,45)))))
bu formülün alternatifini yazabilirmiyiz

 

[antonio]

merhaba sayın hocalarım
arkadaşımın bir sorusunu size göndermek istiyorum
EĞER ile yaptığı
"=EĞER(CF3045<5;CF3045;EĞER(VE(CF3045<=9,55;CF3045>5);CF3045+0,45;EĞER(VE(CF3045<=14,1;CF3045>9,55);CF3045+2*0,45;EĞER(VE(CF3045<=18,65;CF3045>14,1);CF3045+3*0,45;EĞER(VE(CF3045<=23,2;CF3045>18,65);CF3045+4*0,45)))))
bu formülün alternatifini yazabilirmiyiz

Sub kestirmeden()
    Dim karar, kaynak
    kaynak = Range("CF3045").Value
Select Case kaynak
    Case 0 To 4.99
        karar = kaynak
    Case 5 To 9.55
        karar = kaynak + 0.45
    Case 9.56 To 14.01
        karar = kaynak + 2 * 0.45
    Case 14.02 To 18.65
        karar = kaynak + 3 * 0.45
    Case 18.66 To 23.2
        karar = kaynak + 4 * 0.45
End Select
MsgBox karar
End Sub

 

[Merhum İdris SERDAR]

.

Şeklinde deneyin.

=LOOKUP(CF3405;{0;5;9,55;14,01;18,65;23,2};{1;2;3;4})*(CF3045+0,45)

=ARA(CF3405;{0;5;9,55;14,01;18,65;23,2};{1;2;3;4})*(CF3045+0,45)

.

 

[modoste]

çözümler için teşekkür ederim
yurttaş hocamın formülünü birazdan deneyecem.