Sayının bölüntü, çözünürlük değerini bulma

[wellhangman]

A sütununda ki rakam ne olursa olsun B sütununda sadece birli değer bulunacak. Ben B sutununu buradaki örnekte elle yazdım onun A sütununa göre otomatik oluşmasını istiyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[turist]

Eklediğiniz resim görüntülenemiyor.
Örnek excel dosyanızı, GOOGLE DRIVE, YANDEX DISK, DOCYA.TC ,DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

 

[wellhangman]

Düzenledim. Teşekkürler.

 

[turist]

B1 hücresine:

=EĞERHATA(EĞER(TAMSAYI(A1)=0;("0,"&YİNELE(0;UZUNLUK(YERİNEKOY(A1;",";""))-2)&1)*1;YİNELE(1;UZUNLUK(A1)))*1;"")

formülünü uygulayın, kopyalayıp aşağıya kadar yapıştırın.

 

[Merhum İdris SERDAR]

,


B1 hücresine;

=IF(A1="";"";IFERROR(0&","&REPT(0;LEN(RIGHT(A1;LEN(A1)-FIND(",";A1))))&1;1))

=EĞER(A1="";"";EĞERHATA(0&","&YİNELE(0;UZUNLUK(SAĞDAN(A1;UZUNLUK(A1)-BUL(",";A1))))&1;1))

yazıp aşağıya doğru kopyalayın.


.

 

[wellhangman]

turist verdiğin formül 1 ve küçük değerlerler için tam istediğim gibidir ama 1'den büyük değerlerde farklı sonuç veriyor. Resimde 1'den büyük bir örnek koymamışım benim eksik bilgi vermemden kaynaklanıyor sanırım. 1'den büyük değerlerde ise;
10,002 -----> 0,001
142,1 ------> 0,1

gibi bir yapının olması gerek. Sizin formülünüz de şöyle oluyor;

10,002 -----> 111111
142,1 ------> 11111

İdris SERDAR bey ilk formülünüz hata veriyor. İkinci formül çalışıyor istediğim gibi de fakat bir basamak fazladan değer veriyor. Ben çarpı 10 yaparak o basamak sorununu çözdüm.

Önemli : Ayrıca örnek için genel olarak şöyle de bir sıkıntı var: Örneklerde hep sonda bir sayı var. Şu durumda

10,000
0,20 formüller genelde hata veriyor. Diyebilirsiniz matematiksel olarak virgül sonrası sıfırın önemi yoktur diye, benim örneğimde işler biraz farklı yürüyor. Çünkü bir ölçüm cihazının virgül sonrası değerleri benim için sıfır olsa da önemli.

10,000 ------> 0,001
0,20 --------> 0,01 olarak görmeli.


turist ve İdris SERDAR teşekkür ederim.

 

[mersilen]

Merhaba alternatif olsun

=KUVVET(0,1;UZUNLUK(A1)-BUL(",";A1;1))

 

[wellhangman]

Merhaba alternatif olsun

=KUVVET(0,1;UZUNLUK(A1)-BUL(",";A1;1))

Verdiğiniz formül de beni sonuca götürüyor fakat diğer formüller gibi aynı noktada tıkanıyor.

0,02
0,0200 evet sayının gücü anlamında bu ikisi eşit ama benim örneğimde eşit olamıyorlar.

0,02 ------> 0,01
0,0200 ------> 0,0001 olarak görülmeli.

 

[mersilen]

0,0200 ------> 0,0001 olarak görülmeli.

Kullandığınız datada
0,0200 hücrede uzunluk olarak hesaplattığınızda kaç hane veriyor.
Normalde 6 çıkması lazım, virgülden sonrada 4 hane olduğuna göre 0.0001 sonucu döndürmesi lazım.
0,0200 sayı biçiminde ise hücrede 0.02 gözükür

 

[wellhangman]

Kullandığınız datada
0,0200 hücrede uzunluk olarak hesaplattığınızda kaç hane veriyor.
Normalde 6 çıkması lazım, virgülden sonrada 4 hane olduğuna göre 0.0001 sonucu döndürmesi lazım.
0,0200 sayı biçiminde ise hücrede 0.02 gözükür

Hatayı şöyle göstermiş olayım.

kırmızı ile olanlar hatalı olanlardır. Yanda uyguladığım formülü de gösterdim.
* Virgülden sonra sayının sağındaki rakamları saymıyor. Hata bundan oluşuyor.

 

[mersilen]

Eklediğim tabloyu inceleyin
Boş yerlere verinizi girerek deneme yapın
OLmazsa kendi dosyanızın resmini değil, dosyayı ekleyin.

 

[wellhangman]

Dosyayı ekledim :
http://s3.dosya.tc/server26/CDelya/_rnek.xlsx.html

 

[mersilen]

Dosyanız ekte
Sorun hücre biçimlendirme şeklinizden kaynaklanıyormuş.

Private Sub CommandButton1_Click()
For i = 1 To 10
    a = Cells(i, 1).NumberFormat
    aa = InStr(1, a, " ", 1) - 3
     Cells(i, 4) = 0.1 ^ aa
  
 Next i
End Sub

 

[wellhangman]

Dosyanız ekte
Sorun hücre biçimlendirme şeklinizden kaynaklanıyormuş.

Private Sub CommandButton1_Click()
For i = 1 To 10
    a = Cells(i, 1).NumberFormat
    aa = InStr(1, a, " ", 1) - 3
     Cells(i, 4) = 0.1 ^ aa
  
 Next i
End Sub

Çalışmanız için çok teşekkür ederim fakat altın üyeliğim olmadığı için dosyayı indiremiyorum. Bir alternatif sunma şansınız var mı acaba?

 

[mersilen]

Çalışmanız için çok teşekkür ederim fakat altın üyeliğim olmadığı için dosyayı indiremiyorum. Bir alternatif sunma şansınız var mı acaba?

Aşağıdaki linkten indirebilirsiniz.
İndirdikten sonra linki sileceğim.

https://yadi.sk/i/IYYIAGg2XJHpz