ToggleButton

Nedir ve nereye eklenir​

• Çalışma sayfasına: Geliştirici > Denetimler > Ekle > ActiveX Denetimleri > Geçiş Düğmesi (Developer > Controls > Insert > ActiveX Controls > Toggle Button) yolunu izleyin. Geliştirici sekmesi görünmüyorsa Dosya > Seçenekler > Şeridi Özelleştir (File > Options > Customize Ribbon) bölümünden açın.
• UserForm üzerine: VBA Düzenleyicisi'nde (Alt+F11) forma çift tıklayın ve Araç Kutusu'ndan (Toolbox) Geçiş Düğmesi simgesini forma sürükleyin.
• Kodla: Çalışma sayfasına OLEObjects.Add yöntemiyle eklenir.

Set ole = Worksheets("Sayfa1").OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Left:=200, Top:=20, Width:=110, Height:=28)

Önemli özellikler​

• Value: Düğmenin durumudur. Basılıysa True, değilse False olur. TripleState True ise üçüncü bir durum olarak Null da alabilir. Varsayılan değer False'tur.
• Caption: Düğme üzerindeki yazıdır. Durum değiştikçe kodla değiştirilerek "Açık" ya da "Kapalı" gibi bilgi verilebilir.
• TripleState: True yapılırsa düğme üç durumlu olur (True, False, Null). Varsayılan False'tur.
• Enabled: False olursa düğme tıklamaya yanıt vermez. Varsayılan True'dur.
• Locked: True olursa kullanıcı düğmenin durumunu değiştiremez; denetim yine de kodla değiştirilebilir.
• LinkedCell: Çalışma sayfasındaki denetimin durumunu bir hücreye bağlar; hücre TRUE ya da FALSE gösterir. Bu özellik OLEObject nesnesinin özelliğidir ve Özellikler penceresinde de görünür.
• ControlSource: UserForm üzerindeki denetimin bir hücreye bağlanması için kullanılır.
• Picture ve PicturePosition: Düğmeye resim ekler ve resmin yazıya göre yerini belirler.
• WordWrap, BackColor, ForeColor, Font: Görünüm ayarlarıdır.

Önemli yöntemler ve olaylar​

• Change: Value özelliği değiştiğinde oluşur; kullanıcı tıklasa da kod değiştirse de tetiklenir. Durumu izlemek için en güvenilir olaydır.
• Click: Kullanıcı düğmeye tıkladığında oluşur.
• MouseDown, MouseUp, KeyDown, KeyUp: Fare ve klavye işlemlerinde oluşur.
• Enter ve Exit: Düğme odak aldığında ve odağı bıraktığında oluşur.
• SetFocus: Odağı düğmeye verir.

Private Sub ToggleButton1_Change()
    ' Durum değiştiğinde yapılacak işlemler
End Sub

Olay yordamı nereye yazılır​

• Çalışma sayfasındaki ActiveX düğme: İlgili sayfanın kod modülüne yazılır. Sayfa sekmesine sağ tıklayıp Kod Görüntüle (View Code) seçin ya da Tasarım Modu açıkken düğmeye çift tıklayın.
• UserForm üzerindeki düğme: UserForm'un kod modülüne yazılır; forma ya da düğmeye çift tıklayarak açabilirsiniz.
• Standart modül ve ThisWorkbook: Denetimin olay yordamları buraya yazılırsa çalışmaz. Standart modüle yalnızca denetimi ekleyen ya da okuyan genel yordamlar konur.

1. Kodla ekleme ve Value ile Caption okuma​

Option Explicit

Sub ToggleOlustur()
    Dim ws As Worksheet
    Dim ole As OLEObject

    Set ws = ThisWorkbook.Worksheets("Özellikler")

    ' Aynı adlı eski denetim varsa silinir
    On Error Resume Next
    ws.OLEObjects("tglDurum").Delete
    On Error GoTo 0

    ' Yeni geçiş düğmesi eklenir
    Set ole = ws.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", _
        Left:=220, Top:=20, Width:=110, Height:=28)
    ole.Name = "tglDurum"

    With ole.Object
        .Caption = "Kapalı"
        ws.Range("B2").Value = .Value      ' başlangıç durumu
        .Value = True                      ' düğmeyi basılı yap
        .Caption = "Açık"
        ws.Range("B3").Value = .Value      ' yeni durum
        ws.Range("B4").Value = .Caption    ' güncel yazı
    End With
End Sub

2. Change olayıyla stok durumunu işaretleme​

Private Sub ToggleButton1_Change()
    Dim tb As Object
    Dim i As Long

    ' Denetime OLEObjects üzerinden erişilir
    Set tb = Me.OLEObjects("ToggleButton1").Object

    For i = 2 To 8
        If tb.Value = True Then
            ' Stok 20'nin altındaysa kritik say
            If Me.Cells(i, 2).Value < 20 Then
                Me.Cells(i, 3).Value = "Kritik"
            Else
                Me.Cells(i, 3).Value = "Yeterli"
            End If
        Else
            Me.Cells(i, 3).ClearContents
        End If
    Next i

    ' Düğme yazısı duruma göre değişir
    If tb.Value = True Then
        tb.Caption = "Durumu Gizle"
    Else
        tb.Caption = "Durumu Göster"
    End If
End Sub

3. LinkedCell ile düğmeyi hücreye bağlama​

Option Explicit

Sub KdvAnahtariEkle()
    Dim ws As Worksheet
    Dim ole As OLEObject

    Set ws = ThisWorkbook.Worksheets("KDV Anahtarı")

    On Error Resume Next
    ws.OLEObjects("tglKdv").Delete
    On Error GoTo 0

    ' Düğme F2 hücresinin yanına yerleştirilir
    Set ole = ws.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", _
        Left:=ws.Range("F2").Left, Top:=ws.Range("F2").Top, _
        Width:=110, Height:=26)
    ole.Name = "tglKdv"

    ' Düğmenin durumu D2 hücresine bağlanır
    ole.LinkedCell = "D2"

    ole.Object.Caption = "KDV Dahil"
    ole.Object.Value = True
End Sub

Kullanırken dikkat edin​

• ActiveX ve platform sınırı: ToggleButton bir ActiveX denetimidir. Excel'in Windows sürümlerinde kullanılır; Mac için Excel ve Excel Online'da ActiveX denetimleri çalışmaz. Geliştirici sekmesindeki Form Denetimleri (Form Controls) arasında geçiş düğmesi bulunmaz; benzer iş için onay kutusu kullanılabilir.
• Tasarım Modu: Sayfadaki düğmeyi seçmek, taşımak ya da çift tıklayıp kod yazmak için Tasarım Modu açık olmalıdır. Düğmeyi gerçekten kullanmak için bu modu kapatın. Tasarım Modu açıkken düğme tıklamaya yanıt vermez.
• Value özelliği ve TripleState: TripleState True ise Value değeri Null olabilir. Böyle bir düğmede If tb.Value Then gibi bir sınama hata verebilir. Üç durumlu kullanmayacaksanız TripleState özelliğini False bırakın.
• Olay yordamı yanlış yerde çalışmaz: Sayfadaki düğmenin olay yordamı o sayfanın kod modülünde, UserForm üzerindeki düğmenin yordamı UserForm modülünde olmalıdır. Standart modüle yazılan ToggleButton1_Click gibi bir yordam kendiliğinden çalışmaz. Denetimin adını değiştirirseniz yordam adını da değiştirin.
• Kodla eklerken ad çakışması: OLEObjects.Add ile aynı adı iki kez vermeye çalışırsanız hata alırsınız. Örneklerdeki gibi eski denetimi önce silmek ya da adı kontrol etmek makroyu tekrar çalıştırılabilir yapar.
• Dosya türü ve kaybolan denetimler: Makro içeren çalışma kitabını .xlsm olarak kaydedin; .xlsx olarak kaydedilirse olay yordamları silinir. ActiveX denetimleri bazen Windows güncellemelerinden sonra boyut ve konum sorunu yaşayabilir; böyle bir durumda denetimin Left, Top, Width ve Height değerlerini kodla yeniden ayarlayabilirsiniz.
• İlgili konular:
  • CheckBox (Onay Kutusu): Bir ya da birden çok seçeneği işaretlemek için kullanılır.
  • OptionButton (Seçenek Düğmesi): Gruptan tek seçim yapmak için kullanılır.
  • CommandButton (Komut Düğmesi): Tek seferlik işlem başlatmak için kullanılır.
  • UserForm: Denetimlerin üzerinde toplandığı iletişim penceresi.
  • OLEObjects ve OLEObject: Sayfadaki ActiveX denetimlerine kodla erişim sağlar.
  • LinkedCell ve ControlSource: Denetim değerini hücreye bağlar.
  • Worksheet_Change olayı: Hücre değişikliklerini izlemek için kullanılır.
  • EĞER: Bağlı hücrenin TRUE ya da FALSE değerine göre sonuç üretmek için kullanılır.