Conas an tábla a choinneáil fairsingithe trí shraith tábla a chur isteach i mbileog oibre faoi chosaint in Excel?
Caillfear feidhm leathnaithe uathoibríoch an tábla tar éis an bhileog oibre in Excel a chosaint. Mar shampla, tá tábla darb ainm Tábla 1 i do bhileog oibre faoi chosaint, nuair a chlóscríobhann tú aon rud faoin tsraith dheireanach, ní leathnóidh an tábla go huathoibríoch chun an tsraith nua a áireamh. An bhfuil modh ann chun an tábla a choinneáil fairsingithe trí shraith nua a chur isteach i mbileog oibre faoi chosaint? Is féidir leis an modh san alt seo cabhrú leat é a bhaint amach.
Coinnigh an tábla inathraithe trí shraith tábla a chur isteach i mbileog oibre faoi chosaint le cód VBA
Mar a thaispeántar thíos an pictiúr, tábla darb ainm Tábla 1 i do bhileog oibre, agus colún foirmle is ea an colún deireanach den tábla. Anois ní mór duit an bhileog oibre a chosaint chun an colún foirmle a chosc ó athrú, ach lig don tábla a leathnú trí shraith nua a chur isteach agus sonraí nua a shannadh sna cealla nua. Déan mar a leanas le do thoil.
1. cliceáil Forbróir > Ionsáigh > Cnaipe (Rialú Foirm) a chur isteach Rialú Foirm cnaipe isteach i do bhileog oibre.
2. Sa popping suas Macra a shannadh bosca dialóige, cliceáil an Nua cnaipe.
3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód VBA thíos idir an Fo agus Fo Deireadh míreanna sa cód fhuinneog.
Cód VBA: Coinnigh an tábla fairsingithe trí shraith tábla a chur isteach i mbileog oibre faoi chosaint
'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
nótaí:
4. Brúigh an Eile + Q eochracha chun an fhuinneog Microsoft Visual Basic for Applications a dhúnadh.
5. Roghnaigh na cealla sa tábla a gcaithfidh tú sonraí nua a shannadh dóibh seachas an colún foirmle, ansin brúigh an Ctrl + 1 eochracha a oscailt Cealla Formáid bosca dialóige. Sa Cealla Formáid bosca dialóige, díthiceáil an Faoi Ghlas bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
6. Anois cosain do bhileog oibre le pasfhocal atá sonraithe agat sa chód VBA.
As seo amach, tar éis duit an cnaipe Rialaithe Foirme a chliceáil i do bhileog oibre faoi chosaint, beidh an tábla inathraithe trí shraith nua a chur isteach mar atá thíos an pictiúr a thaispeántar.
nótaí: is féidir leat an tábla a mhodhnú ach amháin an colún foirmle sa bhileog oibre faoi chosaint.
Earraí gaolmhara:
- Conas slicer de Tábla Pivot a choinneáil ag gluaiseacht le scrollaigh bileog oibre in Excel?
- Conas cealla a chur le chéile agus formáidiú na gceall a choinneáil in Excel?
- Conas dúbailtí a bhaint ach an chéad ásc a choinneáil in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!