Hücrede İçerisinde Para Birimini Otomatik Olarak Algılayan Fonksiyon

[Erdem93]

Hücrede İçerisinde Para Birimini Otomatik Olarak Algılayan Fonksiyonun VBA kodu;

Kod;
Function ParaBirimi(r As Range)

ParaBirimi = Trim(Replace(r.Text, Format(r.Value, "#,##0.00"), ""))

End Function

Bu kod ile örneğin A1 hücresinin değeri "€ 10.000,00" biçimi € olarak belirlenmiş olsun;
Fonksiyonu B1 hücresinde uyguladığımızda B1 hücresinde "€" işaretinin çıktığı bir web sitesinde belirtilmiş.

Benim öğrenmek istediğim ise bu VBA koduna karşılık gelen yada aynı işlevi gören, kod kullanmadan bir formül yazılabilir mi? ve bu formül nedir?

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Yazdığınız zaten KTF (Kullanıcı Tanımlı Fonksiyon). KTF yi önce bir modüle koyunuz.
Örnek : A1 hücresine ₺32,00 yazınız, B1 hücresine de =ParaBirimi(A1) yazdığınızda B1 hücresinde ₺ görülecektir.
İyi çalışmalar

 

[Korhan Ayhan]

İstenen aynı işlemi excelin yerleşik işlevleri ile çözmek.

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Haklısınız, ben de sizin gibi düşünüyorum ama, belki arkadaşımız KTF hakkında yeterli bilgi sahibi değil diye yazmıştım ben.
Saygılarımla

 

[Haluk]

Alternatif;






.





.

 

[Haluk]

Ya da, aşağıdaki resimde belirtildiği gibi Excel4 makrosu kullanabilirsiniz;



.

 

[Erdem93]

Alternatif;






.





.

Hocam çok Teşekkür Ederim! Bu formülde metneçevir fonksiyonu içerisinde yer alan metin biçimini, otomatik olarak algılayabilen bir formül olabilir mi?

 

[Haluk]

Biçimlendirmede para birimi ile miktar arasında boşluk yoksa, aşağıdaki resimde belirtildiği gibi olabilir....

.



.

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

https://www.excelgurusu.com/doviz-sembolu-kodu-ile-bicimlendirilmis-hucreden-sembolu-kodu-almak/

.