İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-in hüceyrə qutusunu avtomatik olaraq necə idarə etmək olar?

Excel-də hüceyrələrə qoyulan onay qutuları daxil edərkən, sol ekran görüntüsü göstərildiyi kimi, bütün onay qutularını düzgün təşkil etmək çətin olduğunu görəcəksiniz. Əslində, bütün əmr qutularını hüceyrə mərkəzinə hərəkətə keçirə bilərsiniz. Bu yazıda iştirak etmə üsulu sizə kömək edə bilər.

VBA kodu olan hüceyrədə avtomatik mərkəzli onay qutusu


VBA kodu olan hüceyrədə avtomatik mərkəzli onay qutusu


Mövcud bir iş kitabçasındaki hüceyrələrdə bütün onay kutularını avtomatik olaraq mərkəzləşdirmək üçün aşağıdakıları edin.

1. Çalışma kitabında, bütün onay kutularını avtomatik olaraq mərkəzə yerləşdirmək lazımdır Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra VBA kodunu kod pəncərəsinə kopyalayıb yapışdırın.

VBA kodu: Hücredəki bütün qutuları avtomatik olaraq mərkəzləşdirin

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. Basın F5 açar. Bütün onay qutuları aşağıdakı ekran görüntüsünün altından dərhal hüceyrələrin mərkəzinə köçürülür.

Qeyd: Bu VBA kodu CheckBox (ActiveX Control) və CheckBox (Form Control) də tətbiq edilə bilər.

Ip ucu: Seçilmiş bir aralığa birdən çox onay qutusu yığın daxil etmək istəyirsinizsə, cəhd edə bilərsiniz Batch Insert Check Box'ları yardım pf Excel üçün Kutools. Və ya partiyanı birdən çox Seçim Düyməsini daxil edin Batch Daxil Seçim Düymələri kommunal. Bundan əlavə, bütün onay qutularını bir dəfədən silə bilərsiniz Partiyanı Sil Çəkmə qutuları aşağıda göstərilən ekran görüntüləri kimi istifadə olunur. Gedin 60 gün ərzində heç bir məhdudiyyət olmadan proqramı pulsuz yükləyin.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    DG · 8 months ago
    You VDA script is partly working. Because when i applied it, linked cell next to Checkbox get changed and got linked with a cell under it.