para çeviri hakkında

[feraset045]

Merhaba arkadaşlar öncelikle admin arkadaşlar kusura bakmayın kuralları okumamıştım şimdi tekrar yazıyorum
benim sorum şu iki farklı hücreye yazılan rakamları birinci hücredeki rakamı ytl ikinci hücredeki rakamı ykr olarak nasıl yazdırırız a1 de 1000 var a2 de 50 var bunu a3 hücresine BinYTL ElliYkr nasıl yazdırırız teşekkürler

 

[kulomer46]

Aşağıdaki fonksiyonları bir modüle yapıştır. sonra excel hücresinde"=ParaCevir1(A1;"YTL";"YKR")" yaz. (A1 yerine sen hangi hücreyi baz almak istiyorsan onu yazabilirsin.). Böylece A1 hücresine yazdığın sayı, yazıya çevrilmiş olacaktır..Başarılar..

Function ParaCevir1(Para, Optional PBirim = "Lira", Optional KBirim = "Kuruş")
Dim ParaStr As String
Dim Lira As String, Kurus As String

If Not IsNumeric(Para) Then
ParaCevir1 = "GİRİLEN DEĞER SAYI DEĞİL!"
Exit Function
End If

ParaStr = Format(Abs(Para), "0.00")

Lira = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)

ParaCevir1 = IIf(Para < 0, "Eksi ", "") & Cevir1(Lira) & " " & PBirim & " " & _
IIf(Val(Kurus) <> 0, Cevir1(Kurus) & " " & KBirim & " ", "")
End Function

Private Function Cevir1(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "&#252;&#231;", "d&#246;rt", "be&#351;", "alt&#305;", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "k&#305;rk", "elli", "altm&#305;&#351;", "yetmi&#351;", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "y&#252;z"
Else
e = Birler(c(1)) + "y&#252;z"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "S&#305;f&#305;r"

Cevir1 = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[alibaskan]

A1'de 1000, B1'de de 3 YKR yazd&#305;&#287;&#305;n&#305; varsayal&#305;m. C1'e yaz&#305;lacak a&#351;a&#287;&#305;daki form&#252;l sorunuza cevap olabilir.
=a1&" YTL "&B1&" YKR"

Ya pardon ben yanl&#305;&#351; anlad&#305;m soruyu