ToggleButtona kısayol tuşu

[CenTay]

Selamlar arkadaşlar ToggleButtona kısayol tuşu atanır mı atanırsa nasıl yapılır Teşekkürler

 

[Haluk]

Merhaba;

ToggleButton'un bir Userform üzerinde olduğunu kabul ediyorum. VBE editörinde, söz konusu ToggleButonun üzerinde "ToggleButton1" yazdığını yani, sol taraftaki "Properties" penceresinde "Name" özelliğinin "ToggleButton1" olduğunu kabul edersek,

UserForm üzerinde söz konusu ToggleButton1 seçili durumdayken sol taraftaki "Properties" penceresinde "Acceletator" özelliğine, örneğin "b" harfini yazın (tırnak işaretleri olmadan). Burada önemli olan, seçili harfin "Name" özelliğindeki harflerden birisi olmasıdır. Siz bunu yapınca, zaten UserForm üzerindeki butonda, "b" harfinin altı çizili olacaktır.

Daha sonra, Userform'u çalıştırıdığınızda ToggleButon1 yerine klavyeden "Alt+b" tuşunu tıkladığınızda, istediğiniz gerçekleşmiş olacaktır.

 

[CenTay]

Selamlar Haluk bey teşekkürler açıklamalar için ToggleButton sayfada, belirli bir sütun aralığını gizleyip gösteriyor, kodunu ekledim, ben kullanıcı buton olmadan bunu kısayol tuşu ile kullansın diye düşündüm.

Private Sub ToggleButton1_Click() 'GÖSTER-GİZLE
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("A:O").EntireColumn.Hidden = True
    Else
    ToggleButton1.Caption = "GİZLE"
    Range("A:O").EntireColumn.Hidden = False
End If
End Sub

 

[Haluk]

Merhaba;

Aşağıdaki kodları yeni bir modüle yerleştirin ve Goster_Gizle makrosuna bir kısa yol tuşu atayın, isteğiniz gerçekleşecektir.

Sub Auto_Open()
    Range("AA1") = Range("AA1") + 1
End Sub
'
Sub Goster_Gizle()
    Range("AA1") = Range("AA1") + 1
    If Range("AA1") Mod 2 = 0 Then
        Range("A:O").EntireColumn.Hidden = True
    Else
        Range("A:O").EntireColumn.Hidden = False
    End If
End Sub
'

.

 

[CenTay]

Selamlar Haluk bey sağolun çözüm işimi görüyor Teşekkürler