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 Subnó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 aon chill leis an litir roghnaithe, gheobhaidh tú a Kutools for Excel bosca dialóige mar a thaispeántar thíos an pictiúr.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre 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á!
