tek tuşla hücre rengini değiştirmek

[zaffer1981]

merhaba. ben f4 e basınca hücrenin renginin kırmızı olmasını istiyorum. f5 basınca açık mavi (%60) . bu mümkün mü acaba. yardımlarınız için sağolun

 

[rabbace]

Merhaba,

F4'ü ve F5'i denedim de olmuyor.Ctrl + Shift + Q ve Ctrl + Shift + W ile yapsak?

 

[Korhan Ayhan]

Dosyanızın;

ThisWorkBook bölümüne aşağıdaki kodu uygulayın;

Private Sub Workbook_Activate()
    Application.OnKey "{F4}", "Kirmizi"
    Application.OnKey "{F5}", "Mavi"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "{F4}"
    Application.OnKey "{F5}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "{F4}", "Kirmizi"
    Application.OnKey "{F5}", "Mavi"
End Sub

Boş bir modüle aşağıdaki kodu uygulayın;

Sub Kirmizi()
    Selection.Interior.Color = 255
End Sub

Sub Mavi()
    Selection.Interior.Color = 16764057
End Sub

Son olarak dosyanızı kayıt edip kapatıp açın. Hücre aralığı seçip F4 / F5 tuşlarına basıp deneyin.

 

[zaffer1981]

çok teşekkür ederim elinize sağlık