• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

3521 gramı 3 kilo 521 gram olarak yazma

B

buggsbunny

Katılım
17 Mayıs 2012
Mesajlar
102
Excel Vers. ve Dili
Office 2019, Türkçe
Yaptığım bi liste var burada verileri kilo cinsinden yazıyorum ama müdür bunu aşağıda yazdığım şekilde istiyor nasıl yapabilirim.
3521 gram ==> 3 kilo 521 gram
 
İşte burada;

Kod: 
=BİRLEŞTİR(SOLDAN(A1;1);" ";"kilo";" ";SAĞDAN(A1;UZUNLUK(A1)-1);" ";"gram")
 
Eğer "gram" yazısı biçimlendime ile yazıldıysa aşağıdakini kullanabilirsiniz.
Kod: 
=BÖLÜM(A1;1000)&" kilo "&MOD(A1;1000)&" gram"

Hücre içinde "3251 gram" yazıyorsa da aşağıdakini kullanabilirsiniz.
Kod: 
=BÖLÜM(SOLDAN(A1;BUL(" ";A1)-1);1000)&" kilo "&MOD(SOLDAN(A1;BUL(" ";A1)-1);1000)&" gram"
 
Alternatif formül

A1 hücresine 3521 olarak kabul edersek

istenen hücreye şu formülü uygula

Kod: 
=TABANAYUVARLA(A1;1000)/1000&" Kilo "&A1-TABANAYUVARLA(A1;1000)&" Gram"
 
selam
=BİRLEŞTİR(SOLDAN(A1;1)&" "&"kilo"&" "&PARÇAAL(A1;2;3))&" "&PARÇAAL(A1;5;4)
 
Merhaba,
Altarnatif olsun.
Ali Bey'in daha önceki bir çözümü.
Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY("("&NSAT(A2/10^6)&") Ton 
"&"("&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&") Kilo "&"("&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&") Gram"&" ";"(0) Ton";"");"(0) Kilo";"");"(0) Gram";""))
 
Hücreleri Biçimlendirme'den bu şekilde yazarak deneyebilirsiniz.
Kod: 
0" Kilo "000 "Gram"
 
Mahir ÇÜMEN' Alıntı:
Merhaba,
Altarnatif olsun.
Ali Bey'in daha önceki bir çözümü.
Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY("("&NSAT(A2/10^6)&") Ton 
"&"("&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&") Kilo "&"("&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&") Gram"&" ";"(0) Ton";"");"(0) Kilo";"");"(0) Gram";""))
Genişletmek için tıkla ...
Öncelikle yardumlarınız için tşkler. İstediğime en yakını bu oldu ama parantezleri kaldırınca olmayan değerleri de sıfır gösteriyor bunu iptal edemez miyiz?
yani
1234567 yazdığımda (1)ton (234) kilo (567) gram çıkıyor. ya da
123 yazdığımda (123) gram yazıyor burada parantezleri iptal edemez miyiz? Ben denedim ancak öle olunca örneğin:
123 yazdığımda 0 ton 0 kilo 123 gram yazıyor. 0 olanların çıkmasını istemiyorum. direk 123 gram yazsın istiyorum
 
Mahir Bey'in verdiği formülü aşağıdaki şekilde değiştiriniz.
Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(NSAT(A2/10^6)&" Ton 
"&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&" Kilo "&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&" Gram"&" ";"0 Ton";"");"0 Kilo";"");"0 Gram";""))
 
Alternatif olarak KTF ile yapılmış kod

kullanışı
Kod: 
=kilo(A1)

kod

Kod: 
Function kilo(Sayi)

If IsNumeric(Sayi) = True Then
son = StrReverse(Sayi)
For i = 1 To Val(Len(son))
say = Mid(son, i, 1)
If i <= 3 Then
deg1 = say & deg1
ElseIf i >= 4 And i <= 6 Then
deg2 = say & deg2
ElseIf i >= 7 And i <= 9 Then
deg3 = say & deg3
ElseIf i >= 10 And i <= 12 Then
deg4 = say & deg4
ElseIf i >= 13 And i <= 25 Then
deg5 = say & deg5
End If
Next i

If deg1 <> "" Then deg1 = deg1 & " gram"
If deg2 <> "" Then deg2 = deg2 & " kilo "
If deg3 <> "" Then deg3 = deg3 & " ton "
If deg4 <> "" Then deg4 = deg4 & " kiloton "
If deg5 <> "" Then deg5 = deg5 & " megaton "

kilo = deg5 & deg4 & deg3 & deg2 & deg1
Else
kilo = ""
End If

End Function

ölçü birimleri
http://www.biriz.biz/ekstra/olcbirim.htm
 

Ekli dosyalar

mucit77' Alıntı:
Mahir Bey'in verdiği formülü aşağıdaki şekilde değiştiriniz.
Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(NSAT(A2/10^6)&" Ton 
"&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&" Kilo "&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&" Gram"&" ";"0 Ton";"");"0 Kilo";"");"0 Gram";""))
Genişletmek için tıkla ...

230 yazınca 23 yazıyor. 231 yazsam 231 gr yazıyor ama 230 yazınca olmuyor bununla
 
Alternatif;

Kod: 
=KIRP(EĞER(A1<1000;"";TAMSAYI(A1/1000)&EĞER(TAMSAYI(A1/1000)>9;" Ton";" Kilo"))&EĞER(MOD(A1;1000)>0;" "&MOD(A1;1000)&" Gram";""))
 
mucit77' Alıntı:
Mahir Bey'in verdiği formülü aşağıdaki şekilde değiştiriniz.
Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(NSAT(A2/10^6)&" Ton 
"&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&" Kilo "&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&" Gram"&" ";"0 Ton";"");"0 Kilo";"");"0 Gram";""))
Genişletmek için tıkla ...

yine aynısı oluyor. 123 yazarsam 123 gram yazıyor ancak 120 yazınca sadece 12 yazıyor :(
 
11 nolu mesajdaki Kullanıcı tanımlı Fonksiyon kodu işinizi görmüyormu
 
Bu şekilde deneyin.

Kod: 
=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(" "&NSAT(A2/10^6)&"  Ton "&" 
"&NSAT((A2/10^6-NSAT(A2/10^6))*1000)&"  Kilo "&" "&YUVARLA((A2/10^3-NSAT(A2
/10^3))*1000;2)&"  Gram"&" ";" 0  Ton";"");" 0  Kilo";"");" 0  Gram";""))
 
buggsbunny' Alıntı:
onu nasıl kullanacağımı bilemedim ki. makroları kurcalıyorum muhtemelen oraya yazıcam da yerini bulamadım
Genişletmek için tıkla ...

1-11 nolu mesajdaki kodu kopyala
2-Dosyanı aç
3-Alt +F11 tuşuna birlikte bas
4-Yukarıdaki menülerden İnsert seç ve açılan listeden Module yi seç (burası bir Modul oluşturuyor)
5-ctrl+V tuşuna bas (Yeni oluşturulan Modulün içine kod yapıştırılmış olacak)
6-dosyana dön ve aşağıdaki formülü B1 hücresine yapıştır.
7-A1 hücresine sayı yaz

kod:

Kod: 
=kilo(A1)
 
halit3' Alıntı:
1-11 nolu mesajdaki kodu kopyala
2-Dosyanı aç
3-Alt +F11 tuşuna birlikte bas
4-Yukarıdaki menülerden İnsert seç ve açılan listeden Module yi seç (burası bir Modul oluşturuyor)
5-ctrl+V tuşuna bas (Yeni oluşturulan Modulün içine kod yapıştırılmış olacak)
6-dosyana dön ve aşağıdaki formülü B1 hücresine yapıştır.
7-A1 hücresine sayı yaz

kod:

Kod: 
=kilo(A1)
Genişletmek için tıkla ...

çok tşk ederimmmm :)) sonunda oldu Allah razı olsun
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst