sayı ayırma!

[tazarru]

A1 de 23,4321 değeri var. B1 de 23 B2 de 4321 olsun.Ama virgülün yeri başka değerlerde yer değiştiriyor.ÖRN: 0,241 527,1 vb...nasıl bir formül yazabilirim?

 

[muygun]

Merhaba;

B1=EĞER(A1="";"";TAMSAYI(A1))

B2=EĞER(A1="";"";EĞER(EHATALIYSA(MBUL(",";A1;1));0;PARÇAAL(A1;MBUL(",";A1;1)+1;UZUNLUK(A1))))
Formüllerini uygulayın.
İyi çalışmalar.

 

[Ali]

B1 hücresine

=TAMSAYI(A1)

B2 hücresine

=YERİNEKOY(A1;NSAT(A1)&",";"")+0

 

[Orion1]

Bende kod yazayım bari.

Sub virgul_ayir()
Dim deg As String, a As Byte
deg = Cells(1, "A").Value
a = InStr(1, deg, ",")
Cells(1, "B").Value = Left(deg, a - 1)
Cells(2, "B").Value = Right(deg, Len(deg) - a)
End Sub

 

[uzmanamele]

merhaba

her ne kadar sağ kulağı sol elle tutmak gibi olsa da alternatif alternatifdir

B1'e

=TAMSAYI(A1)

B2'ye

=EĞER(EHATALIYSA(BUL(",";A1));0;SAĞDAN(A1;UZUNLUK(A1)-BUL(",";A1))+0)

veya

=YUVARLA((A1-TAMSAYI(A1));(UZUNLUK(A1)-UZUNLUK(B1)-1))*10^(UZUNLUK(A1)-UZUNLUK(B1)-1)

veya

=MOD(A1;B1)

 

[Orion1]

Bende kendi koduma alternatif bir kod yazayım bari.

Sub virgul()
Dim deg, i As Integer
deg = Split(Cells(1, "A").Value, ",")
For i = 0 To UBound(deg)
    Cells(i + 1, "B").Value = deg(i)
Next i
End Sub

 

[falkan]

bu kod calismadi bende nerede yanlis yapmis olabilirim arkadaslar

 

[Orion1]

bu kod calismadi bende nerede yanlis yapmis olabilirim arkadaslar

Değeriniz a1 hücresinde olmalıdır.

 

[musty98]

bu konu başlığı değişmeli

Kodlar savaşı
Kodlar çarpışıyor
Çılgın kodlar
süperkodun dönüşü
örümcekkod
kodavcıları
vs.vs.vs. isimler konulabilir.

nacizhane esprimdir kimse alınıp gücenmesinde formumuzun maşallahı var gerçekten hiçbir konu havada kalmıyor anında pata küte kesin cevaplar geliyor. yalakalıkla mükellef olmayalım ama teşekkürler excel.web.tr ailesi

 

[Necdet]

Bir örnekte benden olsun

A1 : Sayı
B1 : Tamsayı
C1 : Kusurat


B1

=TAMSAYI(A1)
=INT(A1)

C1

=SAĞDAN(A1;UZUNLUK(A1)-UZUNLUK(TAMSAYI(A1))-1)+0
=RIGHT(A1;LEN(A1)-LEN(INT(A1))-1)+0