Conas a sheiceáil an bhfuil ró i bhfolach in Excel?
Tá an t-alt seo ag caint ar sheiceáil an bhfuil ró i bhfolach i raon sonraithe nó i mbileog oibre in Excel.
Seiceáil an bhfuil an tsraith i bhfolach i raon roghnaithe le cód VBA
Seiceáil an bhfuil an tsraith i bhfolach i mbileog oibre le cód VBA
Seiceáil an bhfuil an tsraith i bhfolach i raon roghnaithe le cód VBA
Déan mar a leanas le do thoil chun a sheiceáil an bhfuil sraitheanna i bhfolach i raon roghnaithe agus faigh uimhir an tsraith i bhfolach.
1. Roghnaigh an raon a sheiceálfaidh tú le haghaidh sraitheanna i bhfolach. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.
Cód VBA: seiceáil le haghaidh sraitheanna i bhfolach sa raon roghnaithe
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub3. Brúigh an F5 eochair chun an cód a rith.
Ansin a Microsoft Excel tagann bosca dialóige suas chun na sraitheanna i bhfolach a thaispeáint duit mar atá thíos.
Seiceáil an bhfuil an tsraith i bhfolach i mbileog oibre le cód VBA
Is féidir leis an gcód VBA thíos cabhrú leat sraitheanna folaithe a sheiceáil i mbileog oibre in Excel. Déan mar a leanas le do thoil.
1. Oscail an bhileog oibre a theastaíonn uait a sheiceáil le haghaidh sraitheanna i bhfolach, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.
Cód VBA: seiceáil an bhfuil an tsraith i bhfolach sa bhileog oibre
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub3. Brúigh an F5 eochair chun an cód a rith.
Ansin a Microsoft Excel tagann bosca dialóige suas chun na sraitheanna i bhfolach sa bhileog oibre reatha a thaispeáint duit mar a thaispeántar thíos.
nótaí: Má tá sraitheanna i bhfolach anois i raon nó i mbileog oibre roghnaithe, gheobhaidh tú an bosca dialóige mar a thaispeántar thíos.
Earraí gaolmhara:
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á!
