Excel'deki hücredeki onay kutusu nasıl otomatik ortalanır?
Excel'de hücrelere onay kutuları eklerken, gösterilen sol ekran görüntüsünde olduğu gibi tüm onay kutularını sırayla düzenlemenin zor olduğunu fark edebilirsiniz. Aslında, düzgün bir şekilde sıralanmaları için tüm onay kutularını hücre merkezine taşıyabilirsiniz. Bu makaledeki yöntem size yardımcı olabilir.
VBA kodu ile hücrede otomatik ortala onay kutusu
VBA kodu ile hücrede otomatik ortala onay kutusu
Geçerli bir çalışma sayfasındaki hücrelerdeki tüm onay kutularını otomatik olarak ortalamak için lütfen aşağıdaki işlemleri yapın.
1. Çalışma sayfasında, tüm onay kutularını otomatik olarak ortalamanız gerekir, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül. Ardından VBA kodunu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Hücrelerdeki tüm onay kutularını otomatik olarak ortalayın
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. Tuşuna basın. F5 anahtar. Ardından, tüm onay kutuları, aşağıda gösterilen ekran görüntüsü gibi hemen hücrelerin ortasına taşınır.
not: Bu VBA kodu hem CheckBox (ActiveX Kontrolü) hem de CheckBox (Form Kontrolü) için uygulanabilir.
Bahşiş: Seçili bir aralığa toplu olarak birden çok onay kutusu eklemek isterseniz, şunu deneyebilirsiniz: Toplu Ek Kontrol Kutuları yardımcı program pf Kutools for Excel. Veya toplu olarak birden çok Seçenek Düğmesini ekleyin Toplu Ekleme Seçeneği Düğmeleri Yarar. Ayrıca, tüm onay kutularını tek seferde silebilirsiniz. Onay Kutularını Toplu Silme yardımcı program aşağıda gösterilen ekran görüntüleri gibi. Gidebilirsin 30 gün içinde herhangi bir sınırlama olmaksızın yazılımı ücretsiz indirin.
İlgili yazılar:
- Excel'de birden çok onay kutusu olan bir açılır liste nasıl oluşturulur?
- Excel'de onay kutusu işaretlendiğinde belirli bir hücre değeri veya rengi nasıl değiştirilir?
- Excel'de onay kutusu ile hücre veya satır nasıl vurgulanır?
- Excel'deki hücre değerine göre onay kutusu nasıl işaretlenir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!