Conas bosca téacs a uathoibriú nuair a chlóscríobhann tú in Excel?
De réir réamhshocraithe, is féidir le Excel cuimhneamh ar an méid a d’iontráil tú i gcealla na bileoige oibre reatha agus an t-ábhar seo a uathoibriú an chéad uair eile agus litir tosaigh ghaolmhar á chlóscríobh i gcill nua. Mar sin féin, más mian leat an t-ábhar go léir a chuir tú isteach ar an mbileog oibre a bheith uathchomhiomlán i mbosca téacs (Rialú ActiveX), conas a d'fhéadfá a dhéanamh? Soláthróidh an t-alt seo modh VBA chun cabhrú leat bosca téacs a uath-chomhlánú agus tú ag clóscríobh litir tosaigh istigh.
Bosca téacs a uathoibriú nuair a bhíonn tú ag clóscríobh le cód VBA
Bosca téacs a uathoibriú nuair a bhíonn tú ag clóscríobh le cód VBA
Déan mar a leanas le do thoil chun bosca téacs a dhéanamh uathchomhbhrúite agus litir tosaigh á chlóscríobh taobh istigh den bhosca téacs.
1. Cuir isteach bosca téacs trí chliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX). Féach an pictiúr:
2. Agus ansin cliceáil Forbróir > Ionsáigh > Bosca Liosta (Rialú ActiveX) chun bosca liosta a chur isteach sa bhileog oibre reatha. Féach an pictiúr:
3. Cliceáil ar dheis ar an táb bileog, ansin cliceáil Féach an cód ón roghchlár comhthéacs mar a thaispeántar thíos an pictiúr.
4. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid. Agus ansin cliceáil uirlisí > tagairtí, agus ansin seiceáil an Microsoft Scripting Runtime bosca sa Tagairtí - VBAProject bosca dialóige. Féach an pictiúr:
Cód VBA: Bosca téacs a uathoibriú agus tú ag clóscríobh
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
nótaí: Sa chód, LiostaBox1 agus Bosca téacs1 is ainm don bhosca liosta agus don bhosca téacs a chuir tú isteach i do bhileog oibre.
5. Brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
6. Múch an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh sa bhileog oibre.
7. Anois aistrigh go bileog oibre eile agus ansin téigh ar ais go dtí an bhileog oibre roimhe seo chun an cód VBA a chumasú.
As seo amach. Agus litir tosaigh á iontráil agat sa bhosca téacs, liostálfar gach téacs a thosaíonn leis an litir sin a chuir tú isteach sa bhileog oibre laistigh den bhosca liosta atá suite ar thaobh na láimhe deise den bhosca téacs. Cliceáil faoi dhó ar an gceann a theastaíonn uait chun é a iontráil sa bhosca téacs. Féach an pictiúr:
nótaíIs féidir leat an Up or An Dúin eochair saighead le bogadh i measc na dtéacsanna uathchomhiomlána uile sa bhosca liosta, agus ansin brúigh an Iontráil eochair chun ceann a theastaíonn a iontráil sa bhosca téacs.
Earraí gaolmhara:
- Conas téacs bosca téacs a roghnú go huathoibríoch nuair a roghnaítear é in Excel?
- Conas ábhar an bhosca téacs a ghlanadh nuair a chliceáiltear air in Excel?
- Conas téacsanna ilchealla a thabhairt le chéile i mbosca téacs in Excel?
- Conas eagarthóireacht i mbosca téacs a dhíchumasú chun ionchur úsáideora in Excel a chosc?
- Conas bosca téacs a fhormáidiú mar chéatadán in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
