Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako klikniti abecedno črko, da odpreš celico, ki se začne s to črko v Excelu?

Medtem, ko uporabljate preglednico Excel z veliko količino podatkov, veste, kako se lahko krmarite ali poiščete določene celice, ki hitro vsebujejo določeno vsebino? Z metodo v tem članku lahko kliknete na celico črke črke, da se pomaknete do celice, katere vsebina se samodejno začne s to črko črke.

Kliknite abecedno črko, da odprete celico, ki se začne s to črko s kodo VBA


Kliknite abecedno črko, da odprete celico, ki se začne s to črko s kodo VBA


Prosimo, naredite naslednje, da odprete celico tako, da kliknete na celico z abecedo v Excelu.

1. Na delovnem listu morate iti v celico s klikom na celico z abecedo, z desno miškino tipko kliknite zavihek stanja in nato kliknite Ogled kode iz menija z desnim klikom. Prikaz slike:

2. Potem a Microsoft Visual Basic za aplikacije okno se pojavi, kopirajte in prilepite pod kodo VBA v okno Code.

VBA koda: Kliknite na abecedno črko, da odpreš celico, ki se začne s to črko

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

Opombe: V kodi 1: 1 pomeni, da so abecedne črke locirane v prvi vrstici delovnega lista.

3. Pritisnite druga + Q tipke za hkratno zapiranje Microsoft Visual Basic za aplikacije okno.

Od zdaj naprej, ko kliknemo na celico z abecedo, se vse celice, ki se začnejo s to črko, samodejno izberejo na delovnem listu.

Če se nobena celica ne začne z izbrano črko, boste dobili pogovorno okno Kutools for Excel, kot je prikazano spodaj.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.