Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan gemmer du afkrydsningsfeltet, når rækken er skjult i Excel?

Normalt, når du gemmer en række, indeholder afkrydsningsfelterne i rækkecellerne, gemmes afkrydsningsfelterne ikke med rækken, men overlappes med indholdet i anden række som det viste skærmbillede. Hvordan gemmer man afkrydsningsfelter, når rækken er skjult i Excel? Denne artikel vil hjælpe dig med at løse det.

Skjul afkrydsningsfeltet, når rækken er gemt med VBA-kode


Du kan være interesseret i:

Indsæt eller slet enkelt flere afkrydsningsfelter / valgknapper i bulk i Excel

Med Kutools til Excel's Batch Indsæt Check Boxes / Option Buttons or Batch Slet Tjekbokse / Valgknapper værktøjer, kan du indsætte eller slette flere afkrydsningsfelter eller valgknapper i bulk i dit Excel-regneark. Se nedenfor skærmbillede:

Excel produktivitetsværktøjer

Office-fanen: Bring kraftige faner til Office (inkluderer Excel), ligesom Chrome, Safari, Firefox og Internet Explorer. Spar dig halvdelen af ​​tiden, og reducere tusindvis af museklik for dig. 30-dag Ubegrænset gratis prøveperiode

Kutools til Excel: Gem 70% af din tid og Løs 80% Excel-problemer for dig. 300 + avancerede funktioner designet til 1500 + arbejdsscenarie, gør Excel meget nemt og øger produktiviteten med det samme.60-dag Ubegrænset gratis prøveperiode


pil blå højre boble Skjul afkrydsningsfeltet, når rækken er gemt med VBA-kode


Du kan køre følgende VBA kode for at skjule afkrydsningsfelter, når rækken er skjult i Excel.

1. Højreklik på arkfanen med de afkrydsningsfelter, du vil skjule, og klik Vis kode fra højre-klik-menuen.

2. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående VBA kode i Kode vindue.

VBA kode: Skjul afkrydsningsfelt, når rækken er skjult

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xChkBox As CheckBox
    Dim xCell As Range
    Dim xHide As Boolean
    If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
        xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
        Target.EntireRow.Hidden = xHide
        For Each xChkBox In ActiveSheet.CheckBoxes
            Set xCell = xChkBox.TopLeftCell
            If Not Intersect(xCell, Target) Is Nothing Then
                xChkBox.Visible = Not xHide
            End If
        Next
    End If
End Sub

3. Tryk derefter på andre + Q nøgler på samme tid for at lukke Microsoft Visual Basic til applikationer vindue.

4. Vælg hele rækken med afkrydsningsfelter, du skal skjule, så vises en dialogboks, klik venligst på Ja knappen.

Derefter kan du se alle afkrydsningsfelter er skjult med rækken som vist nedenfor.

Noter: For at vise den skjulte række med afkrydsningsfelter, vælg venligst hele rækken med den skjulte række, og klik på knappen i dialogboksen, der dukker op Ingen knap. Så vises rækken med afkrydsningsfelter.


pil blå højre bobleRelaterede artikler:


Anbefalede produktivitetsværktøjer

Ribbon of Excel (med Kutools for Excel installeret)

300 + Avancerede funktioner Øg din produktivitet med 70%, og hjælp dig til at stå ud af mængden!

Vil du gerne udfylde dit daglige arbejde hurtigt og perfekt? Kutools For Excel bringer 300 + kølige og kraftfulde avancerede funktioner (Kombiner arbejdsbøger, sum efter farve, delt celleindhold, konverter dato og så videre ...) for 1500 + arbejdsscenarier, hjælper dig med at løse 80% Excel problemer.

  • Håndtere alle komplicerede opgaver i sekunder, medvirke til at forbedre din arbejdsevne, få succes fra den hårde konkurrence, og bekymre dig aldrig om at blive fyret.
  • Spar meget arbejdstid, lad meget tid for dig at elske og pleje familien og nyde et behageligt liv nu.
  • Reducer tusindvis af tastatur og museklik hver dag, lind dine trætte øjne og hænder, og give dig en sund krop.
  • Bliv ekspertekspert i 3 minutter, og få et beundrende blik fra dine kolleger eller venner.
  • Behøver ikke længere at huske nogen smertefulde formler og VBA koder, har et afslappende og behageligt sind, giver dig en spænding, du aldrig har haft før.
  • Tilbring kun $ 39, men er mere end $ 4000-træning af andre. Anvendes af 110,000 elites og 300 + kendte virksomheder.
  • 60-dagen ubegrænset gratis prøveperiode. 60-dages pengene tilbage garanti. Gratis opgradering og support til 2 år. Køb en gang, brug for evigt.
  • Ændre den måde du arbejder på, og giv dig et bedre liv med det samme!

Office-fanen bringer effektive og praktiske faner til Office (inkluderer Excel), ligesom Chrome, Firefox og New IE

  • Øger din produktivitet ved 50%, når du ser og redigerer flere dokumenter.
  • Reducer hundredvis af museklik for dig hver dag, farvel til musens hånd.
  • Åbn og lav dokumenter i nye faner i samme vindue, snarere end i nye vinduer.
  • Hjælpe dig med at arbejde hurtigere og let skille sig ud fra mængden! Et sekund at skifte mellem snesevis af åbne dokumenter!
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.

Be the first to comment.