Excel'de hücre içindeki onay kutusunu otomatik olarak ortalamak nasıl yapılır?

Excel'de hücrelere onay kutuları eklerken, aşağıdaki ekran görüntüsünde gösterildiği gibi tüm onay kutularını düzenli bir şekilde sıralamakta zorlandığınızı fark edebilirsiniz. Aslında, onları düzgün bir şekilde sıralı tutmak için tüm onay kutularını hücre merkezine taşıyabilirsiniz. Bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile hücre içindeki onay kutusunu otomatik olarak ortala

VBA kodu ile hücre içindeki onay kutusunu otomatik olarak ortala

Geçerli çalışma sayfasındaki hücrelerdeki tüm onay kutularını otomatik olarak ortalamak için lütfen aşağıdaki adımları izleyin.

1. Çalışma sayfasında, tüm onay kutularını otomatik olarak ortalamak istediğiniz yerde, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, lütfen Ekle > Modül'e tıklayın. Ardından VBA kodunu kopyalayıp kod penceresine yapıştırın.

VBA kodu: Hücrelerdeki tüm onay kutularını otomatik olarak ortala

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. F5 tuşuna basın. Daha sonra aşağıdaki ekran görüntüsünde gösterildiği gibi tüm onay kutuları hemen hücrelerin merkezine taşınır.

Not: Bu VBA kodu hem CheckBox (ActiveX Kontrolü) hem de CheckBox (Form Kontrolü) için uygulanabilir.

İlgili makaleler:

• Excel'de çoklu onay kutularıyla bir açılır liste nasıl oluşturulur?
• Excel'de onay kutusu işaretlendiğinde belirli bir hücre değerini veya rengini nasıl değiştirirsiniz?
• Excel'de onay kutusuyla hücreyi veya satırı nasıl vurgularsınız?
• Excel'de hücre değerine göre onay kutusunu nasıl işaretlersiniz?