Çözüldü Türk lirası simgesi

[k0081]

Merhaba arkadaşlar;

Türk lirası simgesini mesaj kutusuna nasıl yazabiliriz ? ( "₺" )

MsgBox "Gram Altın Satış Fiyatı: " & gramAltin & "TL" & vbCrLf & _
               "Dolar Satış Fiyatı: " & dolar & "TL" & vbCrLf & _
               "Euro Satış Fiyatı: " & euro & "TL"

yardımcı arkadaşıma şimdiden teşekkürler.

 

[muhasebeciyiz]

Sub GosterFiyatlar()
Dim gramAltin As Double
Dim dolar As Double
Dim euro As Double

gramAltin = 400
dolar = 8.5
euro = 10.2

MsgBox "Gram Altın Satış Fiyatı: " & gramAltin & "TL" & vbCrLf & _
"Dolar Satış Fiyatı: " & dolar & "TL" & vbCrLf & _
"Euro Satış Fiyatı: " & euro & "TL"
End Sub


Bu şekilde, Türk lirası simgesi yerine "TL" harfleri kullanılır ve bu şekilde MsgBox kutusu doğru şekilde görüntülenir.

Bu nedenle, Türk lirası simgesi yerine alternatif bir yaklaşım olarak "TL" harflerini kullanmak en iyi seçenektir. Bu şekilde, kullanıcılar doğru anlamayı elde ederler ve işlevselliği sağlamış olursunuz.

 

[Zeki Gürsoy]

FormatCurrency fonksiyonu bu simgeyi ekleyecektir.

 

[muhasebeciyiz]

FormatCurrency fonksiyonu bu simgeyi ekleyecektir.

MsgBox "Gram Altın Satış Fiyatı: " & FormatCurrency(gramAltin, , , , "₺") & vbCrLf & _
"Dolar Satış Fiyatı: " & FormatCurrency(dolar, , , , "₺") & vbCrLf & _
"Euro Satış Fiyatı: " & FormatCurrency(euro, , , , "₺") bu şekilde denedim olmadı

Hocam bunu ancak siz çözersiniz Saygılarımla.

 

[ÖmerBey]

Merhaba,
Alternatif olarak ChrW(8378) TL simgesinin karşılığı olabilir. Ama mesaj kutusunda görüntülenir mi denemek gerek.

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Sub Test()
    Dim X As Double
  
    X = 123456.78
  
    MsgBox FormatCurrency(X, 2)
End Sub

Option Explicit

Sub Test()
    Dim X As Double
   
    X = 123456.78
   
    MsgBox Format(X, "#,##0.00") & " " & ChrW(8378)
End Sub

 

[muhasebeciyiz]

Hocam denediğimde TL simgesi yerine soru işareti çıkmaktadır

 

[Zeki Gürsoy]

...Hocam bunu ancak siz çözersiniz Saygılarımla.

Beni zan altında bırakmayın...

Ref: https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-messageboxw

Edit Bilgi:
VBE, yapısı gereği endfix (son eki) "A" olan fonksiyonları doğrudan string olarak geçirebilir. Bir Unicode karakter söz konusu olduğunda ise, son eki "W" olan WinApi fonksiyonları kullanmak faydalıdır. Ancak, StrConv fonksiyonu ile ilave çevrim gereklidir.

#If Win64 Then
    Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As LongLong, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#Else
    Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As Long, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#End If

Sub test()
    MessageBox 0, StrConv(FormatCurrency(10.25), vbUnicode), StrConv("::.. Zeki Gürsoy ..::", vbUnicode), &H40
End Sub

 

[Haluk]

Beni zan altında bırakmayın...

Sabah sabah çok güldürdün beni..... çok yaşa sen

.

 

[Zeki Gürsoy]

VB Editörünün ANSI string metotları desteklediğini unutup telefondan salladım tutmadı. Mesaj bana dönünce PC başına geçip şu işi bi düzelteyim dedim.

.

 

[k0081]

@Zeki Gürsoy

Çok teşekkür ediyorum. Tamamdır. elinize sağlık.

**********************************************************

Simgeyi sağ tarafa aldım.

#If Win64 Then
    Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As LongLong, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#Else
    Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As Long, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#End If

Sub test()
Dim message As String
  message = StrConv((10.25) & " " & ChrW(8378), vbUnicode)
  MessageBox 0, message, StrConv("::.. Zeki Gürsoy ..::", vbUnicode), &H50
End Sub

 

[k0081]

@Korhan Ayhan

Evet. soru işareti çıkmaktadır. test ettim.

 

[muratgunay48]

Beni zan altında bırakmayın...

Ref: https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-messageboxw

Edit Bilgi:
VBE, yapısı gereği endfix (son eki) "A" olan fonksiyonları doğrudan string olarak geçirebilir. Bir Unicode karakter söz konusu olduğunda ise, son eki "W" olan WinApi fonksiyonları kullanmak faydalıdır. Ancak, StrConv fonksiyonu ile ilave çevrim gereklidir.


Ekli dosyayı görüntüle 251340

#If Win64 Then
    Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As LongLong, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#Else
    Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hWnd As Long, ByVal lpText As String, _
                                                                                ByVal lpCaption As String, ByVal uType As Long) As Long
#End If

Sub test()
    MessageBox 0, StrConv(FormatCurrency(10.25), vbUnicode), StrConv("::.. Zeki Gürsoy ..::", vbUnicode), &H40
End Sub

Hocam emeğinize sağlık, 2. Satıra geçmek istesek nasıl geçeceğiz sonuna & Chr(10) & _ yazıyorum hata veriyor.

 

[Zeki Gürsoy]

Alt satıra geçmek için vbCrlf kullanmak aynı şeydir ve kestirme yoldur.

Şimdi deneme imkanım yok ama aldığınız hata runtime değil, syntax hatası olsa gerek.

 

[k0081]

Sub test()
Dim message1 As String
Dim message2 As String
Dim birlestir As String

    
    mesaj = StrConv((10.85) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj1 = StrConv((10.95) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj2 = StrConv((10.65) & " " & ChrW(8378), vbUnicode)
    

birlestir = mesaj & mesaj1 & mesaj2
MessageBox 0, birlestir, StrConv("::.. Zeki Gürsoy ..::", vbUnicode), &H50
End Sub

 

[assenucler]

Sayın k0081,

Rica etsem, dosyayı paylaşmanız mümkün mü?

 

[muratgunay48]

Alt satıra geçmek için vbCrlf kullanmak aynı şeydir ve kestirme yoldur.

Şimdi deneme imkanım yok ama aldığınız hata runtime değil, syntax hatası olsa gerek.

Evet hocam syntax hatası

 

[muratgunay48]

Sub test()
Dim message1 As String
Dim message2 As String
Dim birlestir As String

   
    mesaj = StrConv((10.85) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj1 = StrConv((10.95) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj2 = StrConv((10.65) & " " & ChrW(8378), vbUnicode)
   

birlestir = mesaj & mesaj1 & mesaj2
MessageBox 0, birlestir, StrConv("::.. Zeki Gürsoy ..::", vbUnicode), &H50
End Sub

Hocam emeğinize sağlık ama 3'ünde de aynı değer yazıyor. ilk satıra "merhaba" yazsak.

 

[Haluk]

    mesaj = StrConv("Merhaba" & vbCrLf & vbCrLf, vbUnicode)
    mesaj1 = StrConv((10000000.95) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj2 = StrConv((10.65) & " " & ChrW(8378), vbUnicode)

.

 

[muratgunay48]

    mesaj = StrConv("Merhaba" & vbCrLf & vbCrLf, vbUnicode)
    mesaj1 = StrConv((10000000.95) & " " & ChrW(8378) & vbCrLf & "" & vbCrLf, vbUnicode)
    mesaj2 = StrConv((10.65) & " " & ChrW(8378), vbUnicode)

.

Çok teşekkür ederim Haluk hocam.