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
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 és a 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 hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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 naponta több száz kattintással csökkenti az egér kattintását!