Hogyan tölthetünk be automatikusan egy szövegdobozt, amikor Excelbe gépelünk?
Alapértelmezés szerint az Excel megjegyzi, hogy mit írt be az aktuális munkalap celláiba, és legközelebb automatikusan kitöltheti ezt a tartalmat, amikor egy kapcsolódó kezdőbetűt ír be egy új cellába. Ha azonban azt szeretné, hogy a munkalapba beírt összes tartalom automatikusan kiegészüljön egy szövegmezőben (ActiveX vezérlő), hogyan tehetné? Ez a cikk egy VBA-módszert ismertet, amely elősegíti a szövegmező automatikus kitöltését, amikor belsejében beír egy kezdőbetűt.
Szövegmező automatikus kitöltése, amikor VBA-kóddal gépel
- Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
- Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
- Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
- Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
- Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
- Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
- Több mint 300 hatékony funkció; Az Office 2007-2019 és a 365 programokkal működik; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy a szervezetben.
Szövegmező automatikus kitöltése, amikor VBA-kóddal gépel

Kérjük, tegye a következőket a szövegdoboz automatikus kitöltéséhez, ha kezdőbetűt ír be a szövegmezőbe.
1. Kérjük, helyezzen be egy szövegdobozt a kattintással Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő). Lásd a képernyőképet:
2. Ezután kattintson Fejlesztő > betétlap > Lista mező (ActiveX-vezérlő) egy listamező beszúrása az aktuális munkalapba. Lásd a képernyőképet:
3. Kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a helyi menüből az alábbi képernyőképen látható.
4. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alatt a Kód ablakba. Ezután kattintson Eszközök > Referenciák, majd ellenőrizze Microsoft Scripting Runtime doboz a Referenciák - VBAProject párbeszédablak. Lásd a képernyőképet:
VBA kód: Szövegmező automatikus kitöltése gépelés közben
Dim xRg As Range Dim xDic As New Dictionary Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1.Value = Me.ListBox1.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xVal As String On Error Resume Next If IsNumeric(Target.Value) Then xVal = Str(Target.Value) Else xVal = Target.Value End If If xVal <> "" Then If Not xDic.Exists(xVal) Then xDic.Add xVal, xVal End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.ListBox1.Visible = False End Sub Private Sub Worksheet_Activate() Dim I As Long Dim xStr As String On Error Resume Next If xRg Is Nothing Then Set xRg = ActiveSheet.UsedRange End If Me.ListBox1.Visible = False xDic.RemoveAll With Me.ListBox1 For I = 1 To xRg.Count xStr = xRg(I).Value If xStr <> "" Then .AddItem xStr If Not xDic.Exists(xStr) Then xDic.Add xStr, xStr End If End If Next End With End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Me.ListBox1 .Top = Me.TextBox1.Top .Left = Me.TextBox1.Left + Me.TextBox1.Width .Width = Me.TextBox1.Width End With TextBoxVal Me.TextBox1.Object End Sub Sub TextBoxVal(xTextBox As Variant) Dim I As Long Dim xStr As String On Error Resume Next Application.ScreenUpdating = False If xRg Is Nothing Then Exit Sub Me.ListBox1.Clear xStr = xTextBox.Value If xStr = "" Then Me.ListBox1.Visible = False Application.EnableEvents = True Exit Sub End If For I = 0 To UBound(xDic.Items) If Left(xDic.Items(I), Len(xStr)) = xStr Then Me.ListBox1.AddItem xDic.Items(I) End If Next Me.ListBox1.Visible = True If Me.ListBox1.ListCount > 0 Then With xTextBox .Value = Me.ListBox1.List(0) .SelStart = Len(xStr) .SelLength = Len(Me.ListBox1.List(0)) End With End If Me.ListBox1.Activate Me.ListBox1.Selected(0) = True Application.ScreenUpdating = True End Sub Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Me.TextBox1.Value = Me.ListBox1.Value End If End Sub
Megjegyzések: A kódban ListBox1 1. szövegdoboz a munkalapba beillesztett lista és szövegdoboz neve.
5. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.
6. Kattintson a gombra a Design Mode kikapcsolásával Fejlesztő > Tervezési mód a munkalapon.
7. Most váltson egy másik munkalapra, majd térjen vissza az előző munkalapra a VBA kód engedélyezéséhez.
Mostantól. Amikor beír egy kezdőbetűt a szövegmezőbe, az összes szöveg, amely azzal a betűvel kezdődik, amelyet a munkalapba írt, a szövegmező jobb oldalán található listamezőben jelenik meg. Kattintson duplán a szükségesre, hogy beírja a szövegmezőbe. Lásd a képernyőképet:
Megjegyzések: Használhatja a Up or Lefelé nyílgombbal léphet a listamező összes automatikus kiegészítésű szövege között, majd nyomja meg a belép gombot, hogy beírja a szükségeset a szövegmezőbe.
Kapcsolódó cikkek:
- Hogyan válasszuk ki automatikusan a szövegdoboz szövegét, ha az Excelben van kiválasztva?
- Hogyan törölhető a szövegdoboz tartalma, ha rákattint az Excel programban?
- Hogyan lehet összefűzni több cella szövegét egy szövegdobozba az Excelben?
- Hogyan lehet letiltani a szövegmezőben történő szerkesztést, hogy megakadályozzuk a felhasználók Excel-be történő bevitelét?
- Hogyan formázzuk a szövegmezőt százalékban az Excelben?
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
