Sut i awtocomplete wrth deipio rhestr ostwng Excel?

Os oes gennych restr ostwng dilysu data gydag eitemau mawr, mae angen i chi sgrolio i fyny ac i lawr yn y rhestr dim ond er mwyn dod o hyd i'r un iawn, neu deipio'r gair cyfan yn y blwch rhestr yn uniongyrchol. Os oes dull ar gyfer caniatáu i gwblhau auto wrth deipio'r llythyren gyntaf yn y gwymplen, bydd popeth yn dod yn haws. Bydd y tiwtorial hwn yn darparu dull VBA i'ch helpu i'w gyflawni.

Yn awtomataidd wrth deipio'r gwymplen gyda chod VBA
Mwy o sesiynau tiwtorial ar gyfer y gwymplen ...

Yn awtomataidd wrth deipio'r gwymplen gyda chod VBA

Gwnewch fel a ganlyn i wneud rhestr ostwng yn awtocomplete ar ôl teipio llythrennau cyfatebol yn y gell.

Yn gyntaf, mae angen i chi fewnosod blwch combo yn y daflen waith a newid ei briodweddau.

1. Agorwch y daflen waith sy'n cynnwys y gwymplen rydych chi am ei gwneud yn awtocomplete.

2. Cyn mewnosod blwch Combo, mae angen ichi ychwanegu'r tab Datblygwr i'r rhuban Excel. Os yw'r tab Datblygwr yn dangos ar eich rhuban, symud i gam 3. Fel arall, gwnewch fel a ganlyn: Cliciwch ffeil > Dewisiadau i agor y Dewisiadau ffenestr. Yn hyn Dewisiadau Excel ffenestr, cliciwch Rhinwedd Customize yn y cwarel chwith, gwiriwch y Datblygwr blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

3. Cliciwch Datblygwr > Mewnosod > Blwch Combo (Rheoli ActiveX).

4. Tynnwch lun blwch combo yn y daflen waith gyfredol. Cliciwch ar y dde ac yna dewiswch Eiddo o'r ddewislen clicio ar y dde.

5. Yn y Eiddo blwch deialog, amnewidiwch y testun gwreiddiol yn y (Enw) cae gyda TempCombo.

6. Trowch oddi ar y Modd Dylunio trwy glicio Datblygwr > Modd Dylunio.

Yna, cymhwyswch y cod VBA isod

7. Cliciwch ar y dde ar y tab dalen gyfredol a chlicio Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:

8. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA isod i mewn i ffenestr Cod y daflen waith.

Cod VBA: Yn awtomataidd wrth deipio'r gwymplen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.

O hyn ymlaen, pan gliciwch ar gell rhestr ostwng, bydd y gwymplen yn annog yn awtomatig. Gallwch chi ddechrau teipio'r llythyr i mewn i wneud i'r eitem gyfatebol gael ei chwblhau'n awtomatig mewn cell ddethol. Gweler y screenshot:

Nodyn: Nid yw'r cod hwn yn gweithio ar gyfer celloedd unedig.

Erthyglau cysylltiedig:

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

• Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
• Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
• Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
• Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
• Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
• Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
• Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
• Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
• Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ... 

---

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

• Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
• Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
• Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Read More ... Lawrlwythiad Am Ddim... Prynu ...