Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako potrdite polje samodejno v celici v Excelu?

Med vstavljanjem potrditvenih polj v celice v Excelu, boste morda opazili, da je vse potrditvene okence težko razporediti, kot je prikazano levo sliko. Pravzaprav lahko vse potrditvene polja premaknete v celično središče, da jih uredno uredite. Metoda v tem članku vam lahko pomaga.

Samodejno označite potrditveno polje v celici s kodo VBA


Samodejno označite potrditveno polje v celici s kodo VBA


Če želite samodejno označiti vsa potrditvena polja v celicah v trenutnem delovnem listu, naredite naslednje.

1. V delovnem listu morate samodejno centrirati vsa potrditvena polja, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite kodo VBA v okno kode.

VBA koda: samodejno označite vsa potrditvena polja v celicah

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. Pritisnite F5 ključ. Nato so vsa potrditvena polja v središču celic takoj premaknjena, kot je prikazano spodaj.

Opombe: To kodo VBA je mogoče uporabiti tako za CheckBox (ActiveX Control) kot za CheckBox (Form Control).

Nasvet: Če želite v večjem obsegu vstaviti več potrditvenih polj v izbrano območje, lahko poskusite Škatle za vstavljanje paketnih paketov koristnost pf Kutools za Excel. Ali paketa vstavite več gumbov z možnostmi Gumbi možnosti vstavljanja serij uporabnost. Poleg tega lahko vse potrditvene polja takoj izbrišete z Batch Preveri polja kot je prikazano na sliki spodaj. Lahko greš brezplačno prenesete programsko opremo brez omejitev v 60 dneh.


Sorodni članki:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 11 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.