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 lahko razširite tabelo z vstavljanjem vrstice tabel v zaščitenem delovnem listu v Excelu?

Funkcija samodejnega razširjanja tabele bo izgubljena po zaščiti delovnega lista v Excelu. Na primer, tabela z imenom Table1 na vašem zaščitenem delovnem listu, ko vnesete karkoli pod zadnjo vrstico, se tabela ne bo samodejno razširila, da bo vključevala novo vrstico. Ali obstaja način razširjanja tabele z vstavljanjem nove vrstice v zaščiteno delovno listo? Metoda v tem članku vam lahko pomaga doseči.

Razpršite tabelo, tako da vstavite vrstico tabele v zaščitenem delovnem listu s kodo VBA


puščica modra desno mehurček Razpršite tabelo, tako da vstavite vrstico tabele v zaščitenem delovnem listu s kodo VBA


Kot je prikazano spodaj prikazano sličico, tabela z imenom Table1 na vašem delovnem listu in zadnji stolpec tabele je stolpec s formulo. Zdaj morate zaščititi delovni list, da preprečite spreminjanje stolpca s formulo, vendar omogočite razširitev tabele tako, da vstavite novo vrstico in dodelite nove podatke v nove celice. Prosimo, naredite na naslednji način.

1. klik Razvojni > Vstavi > Gumb (nadzor obrazca) vstaviti a Kontrola obrazca gumb v svoj delovni list.

2. Pri pojavu Dodeli makro pogovorno okno, kliknite na New gumb.

3. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA med spodaj in End Sub odstavki v Koda okno.

VBA koda: hrani tabelo, tako da vstavite vrstico tabele v zaščiten delovni list

Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "123"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
       ActiveSheet.Range("A1").Select
        Range("Table1[[#Headers],[Total]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "new"
        ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                        Contents:=True, Scenarios:=False, _
                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        AllowUsingPivotTables:=True
    Selection.ClearContents
    Application.ScreenUpdating = True

Opombe:

1). V kodi je številka "123" geslo, ki ga boste uporabili za zaščito delovnega lista.

2). Prosimo, spremenite ime tabele in ime stolpca, ki vsebuje formulo, ki jo boste zaščitili.

3). In spremenite odmik v kodi Selection.Offset (1, -4). Izberite prvi ciljni stolpec tabele. Če na primer obstaja šest stolpcev v tabeli, prosimo, spremenite Offset na (1, -5).

4. Pritisnite druga + Q tipke za zaprete okno Microsoft Visual Basic for Applications.

5. Izberite celice v tabeli, ki jih morate dodeliti novim podatkom, razen stolpcu s formulo, nato pritisnite Ctrl + 1 tipke za odpiranje Oblikuj celice pogovorno okno. V Ljubljani Oblikuj celice pogovorno okno, počistite polje Zaklenjen polje in nato kliknite OK gumb. Prikaz slike:

6. Zdaj zaščitite svoj delovni list z geslom, ki ste ga navedli v kodi VBA.

Od zdaj naprej, potem ko kliknete gumb za kontrolo obrazca v zaščitenem delovnem listu, se bo tabela razširila tako, da se vstavi nova vrstica kot prikazano spodaj.

Opombe: lahko spreminjate tabelo, razen stolpca s formulo v zaščitenem delovnem listu.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

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.
    Mac · 3 months ago
    Try this Vba code for add new line in you table

    Sub Tab_Line_Add()
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    ActiveSheet.Range("D8").Select
    'D8 is tabel header
    Range("Table1[[#Headers],[Total]]").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect Password:=pswStr

    End Sub
    .
  • To post as a guest, your comment is unpublished.
    Brandi · 8 months ago
    So I tried this however it adds a new row at the bottom of the workbook on line 1048576 however my table only has about 800 records. I have no idea why it's doing this!
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Brindi,
      The code has been updated with the problem solved, please have a try and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Ali · 5 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.
      • To post as a guest, your comment is unpublished.
        Ali · 5 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.