Conas cliceáil ar litir na haibítre chun dul go cill a thosaíonn leis an litir sin in Excel?
Agus bileog oibre Excel á úsáid agat le go leor sonraí, an bhfuil a fhios agat conas nascleanúint a dhéanamh chuig na cealla áirithe ina bhfuil ábhar sonraithe go tapa? Leis an modh san alt seo, is féidir leat cliceáil ar chill litreach aibítir chun nascleanúint a dhéanamh chuig an gcill a dtosaíonn an t-ábhar leis an litir aibítir sin go huathoibríoch.
Cliceáil ar litir na haibítre chun dul go cill a thosaíonn leis an litir sin le cód VBA
Cliceáil ar litir na haibítre chun dul go cill a thosaíonn leis an litir sin le cód VBA
Déan mar a leanas le do thoil chun dul chuig cill trí chliceáil ar chill aibítir in Excel.
1. Sa bhileog oibre, ní mór duit dul chuig cill trí chliceáil ar chill aibítir, cliceáil ar dheis ar an táb bileog, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis. Féach an pictiúr:
2. Ansin a Microsoft Visual Basic d’Fheidhmchláir tagann an fhuinneog aníos, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid.
Cód VBA: Cliceáil ar litir na haibítre chun dul go cill a thosaíonn leis an litir sin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
nótaí: Sa chód, ciallaíonn 1: 1 go aimsíonn litreacha na haibítre ar an gcéad shraith den bhileog oibre.
3. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, agus tú ag cliceáil ar chill aibítir, roghnaítear na cealla go léir a thosaíonn leis an litir sin sa bhileog oibre go huathoibríoch.
Mura dtosaíonn cill ar bith leis an litir roghnaithe, gheobhaidh tú bosca dialóige Kutools for Excel mar a thaispeántar thíos an pictiúr.
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á!