Autofullfør når du skriver i nedtrekkslisten med VBA-kode
Først må du sette inn en kombinasjonsboks inn i regnearket og endre dens egenskaper, og deretter kjøre VBA-kode å aktivere autofullfør.
en. Få inn i regnearket som inneholder rullegardinlisten du vil at det skal bli autocompleted.
2. Før du setter inn Combo boksen, du må aktivere kategorien Utvikler på båndet.
1). I Excel 2010 og 2013, klikk på Fil > Alternativer. Og i dialogboksen Alternativer, klikk Tilpass båndet i høyre rute, sjekk Utvikler, og klikk deretter på OK-knappen. Se skjermbilde:
2). I Outlook 2007, klikker du Office-knappen > Alternativer for Excel. I Excel dialogboksen Alternativer klikker Populær i riktig bar, så sjekk Show Developer Tabin båndet boksen, og til slutt klikker på OK-knappen
3.. Klikk deretter Utvikler > Sett > Combo boksen under ActiveX-kontroller. Se skjermbilde:
4. Tegn kombinasjonsboksen i gjeldende åpnet regneark og høyreklikk på den. Velg Egenskaper i høyreklikke menyen.
5. I dialogboksen Egenskaper, må du:
1). Endre navnet til TempCombo i navnefeltet;
2). Angi skriften du trenger i Font-feltet;
3). Bla ned for å velge en-fmMatchEntryComplete i MatchEntry feltet;
4). Lukke dialogboksen Egenskaper.
6. Slå av Design Mode med klikke Developer > Design Mode.
7. Høyreklikk på den aktuelle åpnet regneark fanen og klikk Vis kode. Se skjermbilde:
8. Sørg for at det gjeldende regnearket kode editor åpnes, og deretter kopiere og lime inn nedenfor VBA-kode inn i den. Se skjermbilde:
VBA-kode: autofullfør når du skriver i nedtrekkslisten
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) Dim xStr As String Dim xCombox Som OLEObject Dim xWs Som Regneark Set xWs = Application.ActiveSheet On Error Resume Neste Application.EnableEvents = False Sett xCombox = xWs.OLEObjects ("TempCombo") med xCombox .ListFillRange = "" .LinkedCell = "" .Visible = False End Med Dersom Target.Validation.Type = 3 Da Avbryt = True xStr = Target.Validation.Formula1 xStr = Høyre (xStr, Len (xStr) - 1) Med xCombox .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 5. height = Target.Height + 5 .ListFillRange = xStr .LinkedCell = Target.Address End With xCombox.Activate Me.TempCombo.DropDown End If Application.EnableEvents = TrueEnd SubPrivate Sub Worksheet_SelectionChange (ByVal Target As Range) Dim xCombox Som OLEObject Dim xWs As Regneark Set xWs = Application.ActiveSheet On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = True Set xCombox = xWs.OLEObjects ("TempCombo") med xCombox .Top = 10 .Left = 10 .Width = 0 .ListFillRange = " ".LinkedCell =" ".Visible = False .Value =" "End With Application.EnableEvents = TrueEnd SubPrivate Sub TempCombo_KeyDown (ByVal keycode Som MSForms.ReturnInteger, ByVal Shift As Integer) Velg sak keycode Sak 9 Application.ActiveCell.Offset (0 1) .Activate Sak 13 Application.ActiveCell.Offset (1, 0) .Activate End SelectEnd Sub9. Klikk Fil > Lukk og gå tilbake til Microsoft Excel for å lukke Microsoft Visual Basic for Application vinduet.
10. Nå, dobbeltklikker du på cellen med rullegardinlisten og kombinasjonsboks vises, deretter inn den første bokstaven inn i feltet, hele ordet vil bli fullført automatisk. Se skjermbilde:
Merk: Denne VBA-kode brukes ikke på sammenslåtte celler
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce

Previous:? Hvordan legge til akseetikett å kartlegge i

Next Page:? Hvordan legge til kommentar å kartlegge i Excel