Hogyan lehet a táblázatot kibővíteni úgy, hogy táblázat sorokat illeszt be egy védett munkalapba az Excelben?
A táblázat automatikus bővítési funkciója elvész, miután megvédte a munkalapot az Excel-ben. Például van egy táblázat1 nevű tábla a védett munkalapon, amikor bármit beír az utolsó sor alá, a táblázat nem bővül automatikusan az új sorra. Van-e módszer a táblázat kibővíthetőségének fenntartására új sor beszúrásával egy védett munkalapba? A cikkben szereplő módszer segíthet elérni.
Tartsa a táblázatot kibővíthetővé úgy, hogy a VBA kóddal ellátott védett munkalapba táblázatsort helyez be
Amint az alábbi képernyőképen látható, a munkalapon egy Table1 nevű tábla, a táblázat utolsó oszlopa pedig egy formula oszlop. Most meg kell védenie a munkalapot, hogy megakadályozza a képletoszlop megváltozását, de lehetővé kell tennie a táblázat kibővítését új sor beszúrásával és új adatok hozzárendelésével az új cellákba. Kérjük, tegye a következőket.
1. kettyenés Fejlesztő > betétlap > Gomb (űrlapvezérlés) beilleszteni a Űrlapvezérlés gombra a munkalapon.
2. A felbukkanóban Hozzárendelje a Makrót párbeszédpanelen kattintson a Új gombot.
3. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a alatt és a End Sub bekezdések a Kód ablak.
VBA-kód: Tartsa a táblázatot kibővíthetővé, ha egy táblázatsort beilleszt egy védett munkalapba
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
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
Application.ScreenUpdating = True
Megjegyzések:
4. megnyomni a más + Q billentyűkkel zárja be a Microsoft Visual Basic for Applications ablakot.
5. Jelölje ki a táblázat azon celláit, amelyekbe új adatokat kell rendelnie, kivéve a képlet oszlopot, majd nyomja meg a gombot Ctrl + 1 billentyűk megnyitásához Cellák formázása párbeszédablak. Ban,-ben Cellák formázása párbeszédpanelen törölje a jelet a Zárt jelölőnégyzetet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
6. Most védje meg munkalapját a VBA kódban megadott jelszóval.
Mostantól a védett munkalapon az Űrlapvezérlés gombra kattintás után a táblázat kibővíthető lesz új sor beszúrásával az alábbi képernyőkép szerint.
Megjegyzések: módosíthatja a táblázatot, kivéve a védett munkalap képlet oszlopát.
Kapcsolódó cikkek:
- Hogyan mozgassa a Pivot Table szeletelőjét az Excel munkalap lapozásával?
- Hogyan lehet kombinálni a cellákat és megtartani a cellák formázását az Excelben?
- Hogyan lehet eltávolítani az ismétlődéseket, de első példányt megtartani az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!