Para Birimi Makrosuna ilave eklenti

[altan888]

Merhabalar, aşağıdaki TL format para birimi makrosunun içine $ , € , ₤ para birimlerinin de eklenmesi konusunda yardımlarınızı rica ediyorum. Şimdiden çok çok teşekkürler.

Kod:
Sub Format_TL()
'
' Format_TL Macro
'
' Keyboard Shortcut: Ctrl+t
'
Selection.Style = "Currency"
End Sub

 

[Haluk]

Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

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

.

 

[Tevfik_Kursun]

Bu makro nasıl görev yapıyor Haluk hocam?
Saygılarımla

 

[Haluk]

O satır bilgilendirme satırıdır.... Başındaki tırnak işaretini kaldırmayın.

.

 

[Haluk]

O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Sub Auto_Open()
    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

.

 

[Tevfik_Kursun]

Çok özür diliyorum. Ekli örnekte çalıştıramadım.
Saygılarımla

 

[Haluk]

Dosyanızı açın, ilgili hücreyiseçin.

Daha sonra klavyeden,

Ctrl+t
veya Ctrl+p
veya Ctrl+d
veya Ctrl+e

tuşlayın...

.

 

[Tevfik_Kursun]

Çok teşekkür ederim Haluk hocam.
Önce seçip, sonra rakam koyacakmışım.
Saygılarımla

 

[altan888]

Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

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

.

Klavye kısa yollarını da kodlarda belirtildiği gibi ayarlarsanız, rahat edersiniz...

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

.

Haluk Bey, yazdığınız makro gayet güzel çalışıyor, çok çok teşekkür ederim, elinize sağlık.

 

[altan888]

O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Sub Auto_Open()
    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 Bey, bu kodlarıda aynı modülün altına ekledim, exceli yeniden kapatıp açsamda, başka başka excel sayfalarında da makrolar sorunsuz şekilde çalışıyor, tekrar elinize sağlık, çok teşekkür ederim.

 

[altan888]

O kodların bulunduğu modüle aşağıdaki Auto-Open ve Auto_Close makrolarını da ilave ederseniz, dosyayı kaydedip kapattıktan sonra tekrar açınca söz konusu makro kısa yolları otomatik olarak ilgili makrolara atanır.

Sub Auto_Open()
    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 Bey Merhabalar Ctrl+p veya Ctrl+d dediğimizde exceldeki bu diğer kısayolları kullanamıyorum, sizden ricam Ctrl+t yerine Ctrl+Shift+t şeklinde kullanabilmem için yukarıda neleri değiştirmem gerekiyor, yardımlarınızı rica ediyorum, iyi günler dilerim.

 

[Haluk]

Öncelikle 1 kereye mahsus, mevcut Auto-Close makrosunu çalıştırın ki; tuş kombinasyonlarına yaptığımız atamalar silinsin.

Daha sonra, " Ctrl+Shift+t "gibi çalıştırmak için kodlara aşağıda kırmızı ile belirtilen + işaretini ilave edin....

Sub Auto_Open()
    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]

Öncelikle 1 kereye mahsus, mevcut Auto-Close makrosunu çalıştırın ki; tuş kombinasyonlarına yaptığımız atamalar silinsin.

Daha sonra, " Ctrl+Shift+t "gibi çalıştırmak için kodlara aşağıda kırmızı ile belirtilen + işaretini ilave edin....

Sub Auto_Open()
    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 Bey, merhabalar, yazdıklarınızı uyguladım, makrolar sorunsuz şekilde çalışıyor, beni büyük bir yükten kurtardınız, çok teşekkür ederim.