,,, autocomplete når skrev ned liste med vba kode, for det første, du har brug for at indsætte en combo rubrik i arbejdsplan og ændre dets egenskaber og derefter løber vba kode for at gøre det muligt for autocomplete.,, 1.ind i den arbejdsplan, som indeholder ned liste, du ønsker, det skal være autocompleted., 2.før vi combo æske, du er nødt til at gøre det, entreprenør, tab i båndet.,, 1).i excel - 2010 og 2013, klik, fil >, valgmuligheder.og i, optioner, dialog kasse, klik, vælge, bånd, i den rigtige rude, check, entreprenør, kasse, så klik, okay, button.se skærmbillede:,,,,, 2).i udsigterne for 2007, klik, kontor, knap >, excel - muligheder.i, excel - muligheder, dialog kasse, klik, populær i den rigtige bar, så tjek, vis udvikler regning, på bånd, kasse, og endelig klik, okay, button.,,,,, 3.så klik, entreprenør, >, indsæt >, combo - under, activex kontrol.se skærmbillede:,,,,, 4.gøre kombinationen rubrik i nuværende åbnet arbejdsplan og klik på det.vælg, egenskaber, i lige klikke menu.,,,,, 5.i, egenskaber, dialog kasse, - - skal du:,, 1).skifte navn til, tempcombo i, navn, område, 2).angive den skrifttype, du har brug for, i, skrifttype, område, 3).gå ned til at udvælge, 1-fmmatchentrycomplete i, matchentry, område;,, 4).luk, egenskaber, dialog kasse.,,,,, 6.sluk for design, mode med klikker, entreprenør, >, design, mode,.,,. 7.højreklik på den nuværende åbnet kladde regning og klik, betragtning kode.se skærmbillede:,,,,, 8.sikre, at den nuværende arbejdsplan kode redaktør er åbnet, og så kopi og pasta nedenstående vba kode ind i det.se skærmbillede:,,,,,, vba kode: autocomplete når skrev ned liste, private ubåd worksheet_beforedoubleclick (byval mål som rækkevidde, annullere som boolean) dim xstr som snor dim xcombox som oleobject dim xws som kladde, der xws = application.activesheet om fejl igen næste application.enableevents = falsk xcombox = xws. oleobjects ("tempcombo") med xcombox. listfillrange = "". linkedcell = "." synlige = falske ende med, hvis target.validation.type = 3 så aflys = sandt xstr = target.validation.formula1 xstr = (xstr, len (xstr) - 1) med xcombox. synlige = sandt. venstre = target. til venstre. top = mål. top. bredde = mål. bredde + 5. højde = mål. højde + 5. listfillrange = xstr. linkedcell = mål. adresse med xcombox.activate me.tempcombo.dropdown, hvis application.enableevents = sand afslutning under private ubåd worksheet_selectionchange (byval mål som interval) dim xcombox som oleobject dim xws som kladde, der xws = application.activesheet om fejl genoptage næste application.enableevents = falske application.screenupdating = sandt, der er fastsat xcombox = xws. oleobjects ("tempcombo") med xcombox. top = 10. venstre = 10. bredde = 0. listfillrange = "". linkedcell = "." synlige = falsk. værdi = "" slut med application.enableevents = true ende under private ubåd tempcombo_keydown (byval keycode som msforms.returninteger, byval skift, som hele) udvælge sag keycode sag 9 anvendelse. activecell. udlignet (0, 1). aktivér sag 13 anvendelse. activecell. udlignet (1, 0). aktivér ende udvælger ende ubåd, 9.klik, fil >, tæt og vende tilbage til microsoft excel, til at lukke, microsoft visual basic for anvendelsen, vindue.,,,,, 10.- double click på celle med ned liste og combo rubrik synes, så - det første bogstav i æsken, hele ordet kan fuldføres automatisk.se skærmbillede:,,,,,, note,: denne kode anvendes ikke til vba fusionerede celler.,, kutools for excel, med mere end 120 handy excel - tilføje ins, gratis prøve uden begrænsning i 60 dage. gå til at downloade gratis 60 dayspurchase, brug /mycommerce,,,,