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
- Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
- Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
- Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
- Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
- Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
- Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
- Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.
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?
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

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á!
