PARA BİRİMLERİNİN BİRİM SEMBOLLERİNİ AYRI HÜCREDE YAZMAK VE TOPLAM ALMAK
Aşağıdaki şekildeki paraların sembollerini ayrı hücrelere yazdırmak için Excel’in yerleşik işlevi yoktur.
100,00 ₺
112,00 ₺
£124,00
136,00 ₽
$148,00
¥160,00
€ 172,00
184,00 €
196,00 TRL
208,00 EUR
220,00 USD
100,00 ₺
112,00 ₺
£124,00
136,00 ₽
$148,00
¥160,00
€ 172,00
184,00 €
196,00 TRL
208,00 EUR
¥160,00
€ 172,00
184,00 €
196,00 TRL
208,00 EUR
Bunu için Kullanıcı Tanımlı Fonksiyon yazmak gerekir.
Yazdığım fonksiyonun kodları aşağıdaki şekildedir.
Function Para_Birimi(Hcr As Range) As String
Dim Veri As String, X As Byte
Application.Volatile True
Veri = Replace(Replace(Hcr.Text, “,”, “”), “.”, “”)
For X = 0 To 9
Veri = Replace(Veri, X, “”)
Next
Para_Birimi = Veri
End Function
Bu fonksiyon yardımı ile para sembollerini ayrı hücrelere yazdırırken, para cinslerine göre toplam almakta mümkün olmaktadır.
Dosya:
Son Yorumlar