Bir sayıyı belli aralıklara çevirmek

[Cydoliznia]

Mesela 0-20 arası 0, 20-40 arası 1, 40-80 arası 2, 80-120 arası 3 olacak şekilde nasıl yapabilirim?

 

[turist]

Cevap bu sayı aralıklarını nerede kullanacağınıza bağlı olarak değişebilir.
"Mesela" diye sorunuza "mesela" diye cevap alabilirsiniz.
Sorunuzu daha NET şekilde sorunuz.

Not: 0-20 arası 0 olacaksa 20-40 arası 1 olamaz. Ya 21-40 arası 1 olur, ya da 0-19 arası 0 olur. 20 ORTAK değer olarak kullanılamaz.

 

[mustafa1205]

=eğer(VE(A1>0;A1<20);0;EĞER(VE(A1>20;A1<40);2;EĞER(VEA1>80;A1<120);3
Bu formülü A1 Hücresine göre dener misiniz?

 

[Mahir64]

Merhaba,

=ARA(A1;({0;20;40;80;120});({0;1;2;3}))

 

[Cydoliznia]

@turist
Özür dilerim bundan sonra daha net soracağım soruları
@mustafa1205
Malesef hata veriyor.
@Mahir ÇÜMEN
Teşekkür ederim ama tam olarak işime yaramıyor.

 

[Cydoliznia]

=eğer(VE(A1>0;A1<20);0;EĞER(VE(A1>20;A1<40);2;EĞER(VEA1>80;A1<120);3
Bu formülü A1 Hücresine göre dener misiniz?

Sizin dediğinizden biraz yararlanarak şöyle bir şey yaptım fakat enter tuşuna bastığımda düz yazı gibi formülü gösteriyor sadece, yardımcı olur musunuz?

=EĞER(VE(E2>0;E2<30);0;"EĞER(VE(E2>30;E2<45);1;EĞER(VE(E2>45;E2<55);2;EĞER(VE(E2>55;E2<70);3;EĞER(VE(E2>70;E2<84);EĞER(VE(E2>84;E2<101);5))))")

 

[Mahir64]

İşinizi görmeyen kısmı hakkında açıklama yapabilir misiniz?

--

 

[Cydoliznia]

İşinizi görmeyen kısmı hakkında açıklama yapabilir misiniz?

--

İlk mesajımda belirtmeyi unutmuşum eğer komutlu olması gerekiyor, başka bir şekilde de olmaz sanıyordum. Ama varmış üzgünüm.

 

[ExcelF1]

Hücreye bir sayı girdiğinizde, belirttiğiniz aralığa göre sayıyı dönüştürür.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target >= 0 And Target <= 20 Then Target = 0
If Target >= 21 And Target <= 40 Then Target = 1
If Target >= 41 And Target <= 80 Then Target = 2
If Target >= 81 And Target <= 120 Then Target = 3
Application.EnableEvents = True
End Sub

 

[Mahir64]

İlk mesajımda belirtmeyi unutmuşum eğer komutlu olması gerekiyor, başka bir şekilde de olmaz sanıyordum. Ama varmış üzgünüm.

Ödev mi?

--

 

[ExcelF1]

Veya...

Sayı girilen hücrenin 1 sağına aralık değerini yazdırır.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target >= 0 And Target <= 20 Then Target.Offset(0, 1) = 0
If Target >= 21 And Target <= 40 Then Target.Offset(0, 1) = 1
If Target >= 41 And Target <= 80 Then Target.Offset(0, 1) = 2
If Target >= 81 And Target <= 120 Then Target.Offset(0, 1) = 3
Application.EnableEvents = True
End Sub

 

[Cydoliznia]

Yardım eden herkese teşekkürler. Sonunda bitirdim.

=EĞER(D2<25;0;EĞER(D2<45;1;EĞER(D2<55;2;EĞER(D2<70;3;EĞER(D2 <85;4;5)))))

Böyle basit bir komutla oluyormuş

 

[ExcelF1]

Verdiğimiz kodların işe yaramamasına üzüldüm.