Giriş satırı yüksekliği ve yazı boyutu değiştirme

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ÜST_SATIR As Long, AKTİF_SATIR As Long, SATIR_SAY As Long
    ÜST_SATIR = ActiveWindow.ActivePane.ScrollRow
    AKTİF_SATIR = Target.Row
    SATIR_SAY = Windows(1).VisibleRange.Rows.Count
    If ÜST_SATIR <= AKTİF_SATIR Then
        ActiveWindow.SmallScroll Down:=AKTİF_SATIR - ÜST_SATIR - (SATIR_SAY / 2)
    End If
End Sub

Kolay bilgi girişi için Korhan Ayhan Hocamızın yıllar önce hazırladığı imleci ekran ortasında tutan makroda giriş satırını 20 birim yükseklikli, giriş bilgilerini bold, 14 punto ve kırmızı olarak revize etmek mümkün mü? (Bu vesile ile Korhan Ayhan Hocama bir kez daha teşekkür ederim)
Saygılarımla

 

[systran]

Örnek çalışmayı inceleyiniz.

Tevfik_Kursun - Google Drive

drive.google.com

 

[Tevfik_Kursun]

Merhaba,
İlginize teşekkür ederim, ama sadece görüntüleyebildim. (salt görüntüleme)
İyi çalışmalar

 

[systran]

İndirip bilgisayarınızda çalıştırtın, drive da değil