Conas gach bileog infheicthe nó i bhfolach ón leabhar oibre a liostáil?
Má tá leabhar oibre mór agat ina bhfuil roinnt bileoga oibre i bhfolach, anois, ní mór duit gach bileog infheicthe agus i bhfolach a liostú ar leithligh i mbileog oibre mar a thaispeántar an scáileán seo a leanas. An t-alt seo, beidh mé ag caint faoi conas gach bileog infheicthe agus i bhfolach a liostú in Excel.
Liostaigh gach bileog infheicthe agus folaithe ar leithligh le cód VBA
Liostaigh gach bileog infheicthe i Excel le Kutools le haghaidh Excel
Liostaigh gach bileog infheicthe agus folaithe ar leithligh le cód VBA
Chun na hainmneacha cluaisíní infheicthe agus folaithe a liostú i mbileog oibre, féadfaidh an cód VBA seo a leanas bhfabhar a dhéanamh duit, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Liostaigh gach bileog infheicthe agus i bhfolach ar leithligh:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, tá gach bileog infheicthe, ceilte, an-fholaithe liostaithe i mbileog nua ar leithligh mar a thaispeántar an seat seo a leanas:
Liostaigh gach bileog infheicthe i Excel le Kutools le haghaidh Excel
Má tá tú Kutools le haghaidh Excel, Lena Cruthaigh Liosta Ainmneacha Bileog gné, is féidir leat liosta tapa a dhéanamh ar gach bileog infheicthe den leabhar oibre reatha le hipearnaisc chuig gach cluaisín.
| Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:
1. Cliceáil Kutools Plus > Bileog Oibre > Cruthaigh Liosta Ainmneacha Bileog, féach ar an scáileán:
2. Sa an Cruthaigh Liosta Ainmneacha Bileog bosca dialóige:
(1.) Roghnaigh Tá liosta de hipearnasc ann faoi na Stíleanna Innéacs Bileog alt;
(2.) Cuir isteach ainm bileog oibre le haghaidh innéacs bileog.
(3.) Sonraigh suíomh innéacs na mbileog oibre.
(4.) Sonraigh cé mhéad colúin is mian leat na hainmneacha bileog oibre a thaispeáint san innéacs bileog.
3. Agus ansin cliceáil Ok cnaipe, tá na bileoga infheicthe go léir liostaithe i mbileog nua fág na bileoga ceilte as an áireamh, féach an scáileán scáileáin:
Cliceáil Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
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á!
