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 se samodejno dokonča, ko vnesete v Excel spustni seznam?

Če imate spustni seznam padajočih podatkov z velikimi vrednostmi, se morate pomakniti navzdol na seznam samo za iskanje ustreznega, ali pa celotno besedo vnesite v seznamsko polje neposredno. Če obstaja metoda, ki omogoča samodejno dokončanje pri vnašanju prve črke na spustni seznam, bo vse postalo lažje. V tem vadnici vam bomo zagotovili vstavljanje kombiniranega polja na delovni list in skupno kodo VBA za doseganje funkcije samodokončanja na spustnem seznamu.

Samodokončanje pri vnašanju spustnega seznama s kodo VBA


Združite več delovnih listov / delovnih zvezkov v enem delovnem listu / delovni zvezki:

Združevanje več delovnih listov ali delovnih zvezkov v enem samem delovnem listu ali delovnem zvezku je lahko ogromna naloga pri vsakodnevnem delu. Ampak, če imate Kutools za Excel, njegova močna koristnost - Združite vam lahko pomagajo hitro kombinirati več delovnih listov, delovnih zvezkov v enega delovnega lista ali delovnega zvezka. Prenesite celotno funkcijo 60-dnevna brezplačna sled Kutools za Excel zdaj!

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite brezplačno preizkus Zdaj!


Samodokončanje pri vnašanju spustnega seznama s kodo VBA

Najprej morate v delovni list vstaviti kombinirano polje in spremeniti njene lastnosti ter nato zagnati kodo VBA, da omogočite samodokončanje.

1. Pojdite na delovni list, ki vsebuje spustni seznam, ki ga želite samodejno zaključiti.

2. Preden vstavite polje Combo, morate omogočiti Razvojni jeziček v traku.

1). V Excelu 2010 in 2013 kliknite file > možnosti. In v možnosti pogovorno okno, kliknite Prilagodite trak v desnem podoknu preverite Razvojni polje, nato kliknite na OK gumb. Prikaz slike:

2). V programu Outlook 2007 kliknite Urad gumb> Možnosti programa Excel. v Možnosti programa Excel pogovorno okno, kliknite Popular v desni vrstici, nato pa preverite Pokaži zavihek Razvijalecv traku polje in končno kliknite na OK gumb.

3. Nato kliknite Razvojni > Vstavi > Combo Box pod Nadzor ActiveX. Prikaz slike:

4. Narišite izbirno okence v trenutnem odprtem delovnem listu in ga kliknite z desnim gumbom. Izberite Nepremičnine v meniju z desnim klikom.

5. V Ljubljani Nepremičnine pogovorno okno, morate:

1). Ime spremenite v TempCombo v Imenu polje;

2). Določite pisavo, ki jo potrebujete v Pisava polje;

3). Pomaknite se navzdol, da izberete 1-fmMatchEntryComplete v MatchEntry polje;

4). Zapri Nepremičnine pogovorno okno.

6. Izklopite način oblikovanja s klikom Razvojni > Način oblikovanja.

7. Z desno miškino tipko kliknite trenutni jeziček z delovnim listom in kliknite Ogled kode. Prikaz slike:

8. Poskrbite, da se odpre urejevalnik tekočih kodnih plošč, nato pa kopirajte in prilepite spodnjo kodo VBA. Prikaz slike:

VBA koda: samodokončanje pri vnašanju spustnega seznama

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2018/9/21
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. klik file > Blizu in Return to Microsoft Excel zaprete Microsoft Visual Basic za aplikacijo okno.

10. Zdaj, samo kliknite celico s padajočim seznamom, lahko vidite, da je spustni seznam prikazan kot kombinirano polje, nato vnesite prvo črko v polje, ustrezna beseda bo končana samodejno. Prikaz slike:

Opombe: Ta koda VBA se ne uporablja za združene celice.

Office Tab - brskanje, urejanje in upravljanje črk v Excelu:

Office Tab prikaže vmesnik z zavihki, kot ga vidite v spletnih brskalnikih, kot so Google Chrome, nove različice programa Internet Explorer in Firefox v Microsoft Excel. To bo biti varčevalno orodje in neupoštevanje vašega dela. Glej spodaj predstavitev:

Kliknite brezplačno preskusno različico Office Tab!

Zavihek Office za Excel

Sorodni članki:



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.
  • To post as a guest, your comment is unpublished.
    RK · 7 days ago
    How can I set it to accept only the text in the list?
  • To post as a guest, your comment is unpublished.
    Anthony · 1 months ago
    How can the code be modified such that pressing SHIFT + TAB moves the cursor left in the row?
    • To post as a guest, your comment is unpublished.
      crystal · 15 days ago
      Hi Anthony,
      Sorry can't help you with that. Thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Anthony · 5 days ago
        No problem. I figured it out. Thanks, Crystal.
  • To post as a guest, your comment is unpublished.
    Parth · 2 months ago
    But what if i have dynamic list ? How can i provide the input to the combobox and refresh everytime the data is been added?
  • To post as a guest, your comment is unpublished.
    MR Excel · 3 months ago
    Anyone looking for a simple dropdown input form in excell based on a list; i used Data.. "Data Validation" and then choose Allow: "List" and pointed the source at the list.
    This does not do the auto complete but does avoid any macros or dev and just uses native simple Excel features.
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Good day,
      The dropdown list mentioned in the post is the Data Validation dropdown list.
      After creating the Data Validation dropdown list in the worksheet, go ahead to apply the steps from 2 to 10 in the post.
  • To post as a guest, your comment is unpublished.
    Fabian · 3 months ago
    Buenas tardes dentro de esa lista predictiva tengo campos de lista con la función indirecto pero me elimina , como puedo conservar las funciones de lista conservando la búsqueda predictiva.