Para birimi gösterim makrosu revize telebi

[altan888]

Merhabalar,
Aşağıdaki makroyu bir yerden buldum ancak para birimi gösterim şekillerini aşağıdaki şekilde değiştirip işyerinde kullanmak istiyorum, acil yardımlarınızı rica ederim, şimdiden çok teşekkürler.

Aşağıdaki Makroda;
TL para birimini, ₺ simgesi olarak kullanmak istiyorum
USD para birimini, $ simgesi olarak kullanmak istiyorum
EUR para birimini, € simgesi olarak kullanmak istiyorum
GBP para birimini, ₤ simgesi olarak kullanmak istiyorum


Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+shift+t
'
Selection.Style = "Currency"
End Sub
'
Sub Format_USD()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+shift+d
'
Selection.NumberFormat = "#,##0.00 [$USD]"
End Sub
'
Sub Format_EUR()
'
' Format_EUR Macro
'
' Keyboard Shortcut: Ctrl+shift+e
'
Selection.NumberFormat = "#,##0.00 [$EUR]"
End Sub
'
Sub Format_GBP()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+shift+p
'
Selection.NumberFormat = "#,##0.00 [$GBP]"
End Sub

Sub Autpen()
Application.OnKey "+^t", "Format_TL"
Application.OnKey "+^d", "Format_USD"
Application.OnKey "+^e", "Format_EUR"
Application.OnKey "+^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
Application.OnKey "+^t", ""
Application.OnKey "+^d", ""
Application.OnKey "+^e", ""
Application.OnKey "+^p", ""
End Sub

 

[altan888]

Kendim deneme yanılma ile çözdüm, ihtiyacı olan kullanabilsin diye son halini aşağıya bırakıyorum.

Sub Format_TL()

'

' Format_TL Macro

'

' Keyboard Shortcut: Ctrl+Shift+t

'

Selection.Style = "Currency"

End Sub

'

Sub Format_USD()

'

' Format_USD Macro

'

' Keyboard Shortcut: Ctrl+Shift+^d

'

Selection.NumberFormat = "#,##0.00 [$$]"

End Sub

'

Sub Format_EUR()

'

' Format_EUR Macro

'

' Keyboard Shortcut: Ctrl+Shift+^e

'

Selection.NumberFormat = "#,##0.00 [$€]"

End Sub

'

Sub Format_GBP()

'

' Format_GBP Macro

'

' Keyboard Shortcut: Ctrl+Shift+^p

'

Selection.NumberFormat = "#,##0.00 [$£]"

End Sub

Sub Autpen()

Application.OnKey "+^t", "Format_TL"

Application.OnKey "+^d", "Format_USD"

Application.OnKey "+^e", "Format_EUR"

Application.OnKey "+^p", "Format_GBP"

End Sub

'

Sub Auto_Close()

Application.OnKey "+^t", ""

Application.OnKey "+^d", ""

Application.OnKey "+^e", ""

Application.OnKey "+^p", ""

End Sub

Merhabalar,
Aşağıdaki makroyu bir yerden buldum ancak para birimi gösterim şekillerini aşağıdaki şekilde değiştirip işyerinde kullanmak istiyorum, acil yardımlarınızı rica ederim, şimdiden çok teşekkürler.

Aşağıdaki Makroda;
TL para birimini, ₺ simgesi olarak kullanmak istiyorum
USD para birimini, $ simgesi olarak kullanmak istiyorum
EUR para birimini, € simgesi olarak kullanmak istiyorum
GBP para birimini, ₤ simgesi olarak kullanmak istiyorum


Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+shift+t
'
Selection.Style = "Currency"
End Sub
'
Sub Format_USD()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+shift+d
'
Selection.NumberFormat = "#,##0.00 [$USD]"
End Sub
'
Sub Format_EUR()
'
' Format_EUR Macro
'
' Keyboard Shortcut: Ctrl+shift+e
'
Selection.NumberFormat = "#,##0.00 [$EUR]"
End Sub
'
Sub Format_GBP()
'
' Format_USD Macro
'
' Keyboard Shortcut: Ctrl+shift+p
'
Selection.NumberFormat = "#,##0.00 [$GBP]"
End Sub

Sub Autpen()
Application.OnKey "+^t", "Format_TL"
Application.OnKey "+^d", "Format_USD"
Application.OnKey "+^e", "Format_EUR"
Application.OnKey "+^p", "Format_GBP"
End Sub
'
Sub Auto_Close()
Application.OnKey "+^t", ""
Application.OnKey "+^d", ""
Application.OnKey "+^e", ""
Application.OnKey "+^p", ""
End Sub

 

[Haluk]

Merhabalar,
Aşağıdaki makroyu bir yerden buldum ancak .............

Bir yerden buldum dediğiniz makroyu yaklaşık 1 yıl önce yine size ben vermiştim.

https://www.excel.web.tr/threads/para-birimi-makrosuna-ilave-eklenti.175869

.

 

[altan888]

Bir yerden buldum dediğiniz makroyu yaklaşık 1 yıl önce yine size ben vermiştim.

https://www.excel.web.tr/threads/para-birimi-makrosuna-ilave-eklenti.175869

.

Haluk Bey, merhabalar evet doğrudur siz vermiştiniz ve kodu kaybederim diye word e kaydetmisim işyerinde yoğunluktan ancak nerden bulduğumu çok hatırlayamadım o esnada. Sonra işin aciliyetinden aklıma foruma yazmak geldi. Tekrar teşekkürler...

 

[altan888]

Haluk Bey, merhabalar evet doğrudur siz vermiştiniz ve kodu kaybederim diye word e kaydetmisim işyerinde yoğunluktan ancak nerden bulduğumu çok hatırlayamadım o esnada. Sonra işin aciliyetinden aklıma foruma yazmak geldi. Tekrar teşekkürler...

Haluk Bey
Merhabalar

Sizden bir ricam olacak, yardımcı olursanız sevinirim,
Sizin yazmış olduğunuz aşağıdaki makro ifadesini bir örnekte çalıştırdığımda Ctrl+Shift+t olarak ₺ para simgesi çıkıyor ancak ₺4.251,90 örneğinde görüleceği üzere rakamın solunda çıkıyor, ben para simgesinin rakamın sağında 4.251,90 ₺ şeklinde simgesi çıksın istiyorum. Makrodaki diğer para birimleri rakamın sağında çıkıyor bu ₺ simgesi sağında çıkıyor, Yardımlarınızı rica ederim. Şimdiden çok teşekkürler...


Sub Format_TL()

'

' Format_TL Macro

'

' Keyboard Shortcut: Ctrl+Shift+t

'

Selection.Style = "Currency"

End Sub

'

Sub Format_USD()

'

' Format_USD Macro

'

' Keyboard Shortcut: Ctrl+Shift+^d

'

Selection.NumberFormat = "#,##0.00 [$$]"

End Sub

'

Sub Format_EUR()

'

' Format_EUR Macro

'

' Keyboard Shortcut: Ctrl+Shift+^e

'

Selection.NumberFormat = "#,##0.00 [$€]"

End Sub

'

Sub Format_GBP()

'

' Format_GBP Macro

'

' Keyboard Shortcut: Ctrl+Shift+^p

'

Selection.NumberFormat = "#,##0.00 [$£]"

End Sub

Sub Autpen()

Application.OnKey "+^t", "Format_TL"

Application.OnKey "+^d", "Format_USD"

Application.OnKey "+^e", "Format_EUR"

Application.OnKey "+^p", "Format_GBP"

End Sub

'

Sub Auto_Close()

Application.OnKey "+^t", ""

Application.OnKey "+^d", ""

Application.OnKey "+^e", ""

Application.OnKey "+^p", ""

End Sub