PARA BİRİMLERİNİN BİRİM SEMBOLLERİNİ AYRI HÜCREDE YAZMAK VE TOPLAM ALMAK
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