Conas hipearnasc a leanúint chuig an mbileog i bhfolach in Excel?
Mar shampla, tá leabhar oibre agam ina bhfuil iliomad bileoga oibre, tá hipearnasc ar bhileoga eile sa chéad mháistirbhileog, agus anois, bím i bhfolach gach bileog seachas an chéad cheann. Sa chás seo, níl na hipearnasc a nascann le bileoga ceilte ar fáil. Ach, conas a d’fhéadfá a dhéanamh go n-oibreodh na hipearnasc seo go rathúil? Nuair a chliceálann tú hipearnasc amháin, osclófar an bhileog fholaithe nasctha ag an am céanna mar a thaispeántar an pictiúr a leanas:
Lean hipearnasc chun bileog i bhfolach a oscailt le cód VBA
Lean hipearnasc chun bileog i bhfolach a oscailt agus ansin é a cheilt arís le cód VBA
Lean hipearnasc chun bileog i bhfolach a oscailt le cód VBA
D’fhéadfadh an cód VBA seo a leanas cabhrú leat an bhileog oibre i bhfolach a oscailt agus tú ag cliceáil ar a hipearnasc coibhneasta, déan é seo le do thoil:
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait an hipearnasc a leanúint go bileog i bhfolach, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:
Cód VBA: Lean hipearnasc chun bileog i bhfolach a oscailt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
nótaí: Sa chód thuas, an uimhir 1 sa Más Target.Column = 1 Ansin Léiríonn script uimhir an cholúin ina bhfuil na hipearnasc, athraigh do riachtanas le do thoil.
2. Ansin sábháil agus dún an fhuinneog cód seo, anois, nuair a chliceálann tú an hipearnasc a nascann leis an mbileog i bhfolach ar leith, osclófar an leathán i bhfolach ag an am céanna.
Lean hipearnasc chun bileog i bhfolach a oscailt agus ansin é a cheilt arís le cód VBA
Uaireanta, ní mór duit an hipearnasc a leanúint chun an leathán i bhfolach a oscailt, agus nuair a théann tú ar ais ar an máistirbhileog, ba mhaith leat an bhileog oscailte a chur i bhfolach arís. Is féidir leis an gcód VBA thíos fabhar a dhéanamh duit:
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait an hipearnasc a leanúint go bileog i bhfolach, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:
Cód VBA: Lean hipearnasc chun an bhileog i bhfolach a oscailt nuair a théann tú ar ais i bhfolach arís é:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Ansin sábháil ad dún an fhuinneog cód, nuair a chliceálann tú an hipearnasc, osclófar an leathán i bhfolach nasctha láithreach, ach má théann tú ar ais ar an máistirbhileog ina bhfuil na hipearnasc, cuirfear an leathán oscailte i bhfolach go huathoibríoch arís.
nótaí: Ní chuirtear cóid tráchtais i bhfeidhm ach ar ainmneacha na mbileog a oireann do théacs hipearnasc.
Taispeántas: Lean hipearnasc chun bileog i bhfolach a oscailt le cód VBA
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á. Íoslódáil agus triail saor in aisce Anois!
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á!