Ինչպե՞ս Excel- ում բջջում ավտոմատ կենտրոնացնել վանդակը:

Excel- ում բջիջներում վանդակները տեղադրելու ժամանակ կարող եք նկատել, որ դժվար է բոլոր վանդակները կարգի բերել, ինչպես ցույց է տրված ձախ սքրինշոթը: Իրականում, բոլոր վանդակները կարող եք տեղափոխել բջիջների կենտրոն ՝ դրանք կոկիկ կարգով պահելու համար: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:

Ավտոկենտրոնի վանդակը VBA կոդով բջիջում

Ավտոկենտրոնի վանդակը VBA կոդով բջիջում

Ընթացիկ աշխատանքային թերթում բջիջներում բոլոր վանդակները ավտոմատ կերպով կենտրոնացնելու համար կատարեք հետևյալը.

1. Աշխատանքային թերթում անհրաժեշտ է ավտոմատ կենտրոնացնել բոլոր վանդակները, սեղմել կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք VBA կոդը ծածկագրի պատուհանում:

VBA կոդ. Բջիջներում ավտոմատ կենտրոնացրեք բոլոր վանդակները

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 բանալի. Դրանից հետո բոլոր վանդակները անմիջապես տեղափոխվում են բջիջների կենտրոն, ինչպես ցույց է տրված նկարում:

ՆշումԱյս VBA կոդը կարող է կիրառվել ինչպես CheckBox (ActiveX Control), այնպես էլ CheckBox (Form Control) վրա:

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ստեղծել բացվող ցուցակ Excel- ում բազմաթիվ վանդակում:
• Ինչպե՞ս փոխել նշված բջիջի արժեքը կամ գույնը, երբ վանդակը ստուգվում է Excel- ում:
• Ինչպե՞ս Excel- ում նշել վանդակը տողերով բջիջը կամ տողը:
• Ինչպե՞ս կատարել վանդակը ստուգված ՝ հիմնված բջջային արժեքի վրա Excel- ում: