Sut i glicio ar lythyren yr wyddor i fynd i'r gell sy'n dechrau gyda'r llythyr hwnnw yn Excel?
Wrth ddefnyddio taflen waith Excel gyda llawer iawn o ddata, a ydych chi'n gwybod sut i lywio i'r celloedd penodol sy'n cynnwys cynnwys penodol yn gyflym? Gyda'r dull yn yr erthygl hon, gallwch glicio ar gell llythyren yr wyddor i lywio i'r gell pa gynnwys sy'n dechrau gyda'r llythyren wyddor honno'n awtomatig.
Cliciwch ar lythyren yr wyddor i fynd i'r gell sy'n dechrau gyda'r llythyr hwnnw gyda chod VBA
Cliciwch ar lythyren yr wyddor i fynd i'r gell sy'n dechrau gyda'r llythyr hwnnw gyda chod VBA
Gwnewch fel a ganlyn i fynd i gell trwy glicio ar gell yr wyddor yn Excel.
1. Yn y daflen waith, mae angen i chi fynd i gell trwy glicio ar gell yr wyddor, cliciwch ar y dde ar y tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:
2. Yna a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn ymddangos, copïwch a gludwch islaw cod VBA i mewn i ffenestr y Cod.
Cod VBA: Cliciwch ar lythyren yr wyddor i fynd i'r gell sy'n dechrau gyda'r llythyr hwnnw
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
Nodyn: Yn y cod, mae 1: 1 yn golygu bod llythrennau'r wyddor yn lleoli ar res gyntaf y daflen waith.
3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, wrth glicio ar gell yr wyddor, dewisir pob cell sy'n dechrau gyda'r llythyren honno ar unwaith yn y daflen waith yn awtomatig.
Os nad oes unrhyw gell yn dechrau gyda'r llythyr a ddewiswyd, fe gewch chi blwch deialog Kutools ar gyfer Excel fel y dangosir y sgrin isod.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!