Excelde Kilo Gram Yazdırma

[buggsbunny]

İyi günler herkese. Sorum şu örneğin bi hücredeki 34.023 gramı 34 kilo 23 gram olarak yazdırmak istiyorum. Aşağıdaki kod ile yapabiliyorum ancak 34000 gram diye yazarsam 34 kilo 000 gram yazıyor normalde 34 kilogram yazmasını istiyorum. Bu konuda yardımcı olabilecek var mı?

Alternatif olarak KTF ile yapılmış kod
kullanışı

=kilo(A1)

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

 

[PLİNT]

İyi günler herkese. Sorum şu örneğin bi hücredeki 34.023 gramı 34 kilo 23 gram olarak yazdırmak istiyorum. Aşağıdaki kod ile yapabiliyorum ancak 34000 gram diye yazarsam 34 kilo 000 gram yazıyor normalde 34 kilogram yazmasını istiyorum. Bu konuda yardımcı olabilecek var mı?

Merhaba
Yukarıdaki kodlarınızı aşağıdaki gibi değiştirip deneyin.

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 Left(deg1, 3) = "000" Then deg1 = ""
If deg1 <> "" Then deg1 = Val(deg1) & " gram"
If Left(deg2, 3) = "000" Then deg2 = ""
If deg2 <> "" Then deg2 = Val(deg2) & " kilo "
If deg2 <> "" And deg1 = "" Then deg2 = Trim(deg2) & "gram "
If Left(deg3, 3) = "000" Then deg3 = ""
If deg3 <> "" Then deg3 = Val(deg3) & " ton "
If Left(deg4, 3) = "000" Then deg4 = ""
If deg4 <> "" Then deg4 = Val(deg4) & " kiloton "
If Left(deg5, 3) = "000" Then deg5 = ""
If deg5 <> "" Then deg5 = Val(deg5) & " megaton "
kilo = deg5 & deg4 & deg3 & deg2 & deg1
Else
kilo = ""
End If
End Function

 

[ertmer]

bu kodu nasıl kullanacağız modülde makro olarak görülmüyor. F( ilede adımlamıyor.

 

[PLİNT]

bu kodu nasıl kullanacağız modülde makro olarak görülmüyor. F( ilede adımlamıyor.

Yukarıdaki kod Kullanıcı Tanımlı Fonksiyon dur. Modüle ekleyip,formül olarak

=kilo(A11)

şeklinde kullanabilirsiniz.
http://www.upturkey.com/download.php?file=66gram.xls

Ayrıca değiştirilerek kodlarada uyarlanabilir.

 

[buggsbunny]

Öncelikle ilginiz için tşk ederim. Bu hali de işimi görür ama eğer uğraştırmayacak birşeyse mesela 31002 diye yazdığımda 31 kilo 002 gram diye yazıyor, bunu 31 kilo 2 gram diye yazdırabiliyor muyuz? birde 31000 yazınca 31 kilo yazıyor 31 kilogram diye yazdırabiliyor muyuz?

Merhaba
Yukarıdaki kodlarınızı aşağıdaki gibi değiştirip deneyin.

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 Left(deg1, 3) = "000" Then deg1 = ""
If deg2 <> "" Then deg2 = deg2 & " kilo "
If Left(deg2, 3) = "000" Then deg2 = ""
If deg3 <> "" Then deg3 = deg3 & " ton "
If Left(deg3, 3) = "000" Then deg3 = ""
If deg4 <> "" Then deg4 = deg4 & " kiloton "
If Left(deg4, 3) = "000" Then deg4 = ""
If deg5 <> "" Then deg5 = deg5 & " megaton "
If Left(deg5, 3) = "000" Then deg5 = ""
kilo = deg5 & deg4 & deg3 & deg2 & deg1
Else
kilo = ""
End If
End Function

 

[PLİNT]

Öncelikle ilginiz için tşk ederim. Bu hali de işimi görür ama eğer uğraştırmayacak birşeyse mesela 31002 diye yazdığımda 31 kilo 002 gram diye yazıyor, bunu 31 kilo 2 gram diye yazdırabiliyor muyuz? birde 31000 yazınca 31 kilo yazıyor 31 kilogram diye yazdırabiliyor muyuz?

Merhaba
Yukarıda 2 nolu mesajdaki kodlar değişti; deneyin.

 

[buggsbunny]

Merhaba
Yukarıda 2 nolu mesajdaki kodlar değişti; deneyin.

Bu şekildeydi istediğim. Çok teşekkür ederim ilginiz için. Allah razı olsun