1. Заповнити форму при введенні в випадаючому списку з кодом VBA
2. Статті по темі:
3. Забезпечує перегляд і редагування за допомогою вкладок в Microsoft Office, набагато більш потужний,...

Якщо у вас є список, що випадає перевірки даних з великими значеннями, вам потрібно прокрутити список вниз тільки для пошуку потрібного або просто ввести цілі слова в список. Якщо є спосіб дозволити автозаповнення при введенні першої букви в випадаючому списку, все стане простіше. У цьому уроці ми надамо вам вставку Combo box на аркуші і спільне виконання коду VBA для досягнення функції автозаповнення в випадаючому списку.

Заповнити форму при введенні в випадаючому списку з кодом VBA

Об'єднання декількох робочих аркушів / книг в один робочий лист / книгу:

Об'єднання декількох робочих листів або робочих книг в один робочий лист або книгу може бути величезною завданням у вашій повсякденній роботі. Але якщо у вас є Kutools for Excel, його потужна утиліта - Поєднувати може допомогти вам швидко об'єднати декілька робочих листів, робочих книг в один робочий лист або книгу. Завантажте повну версію 60-денного безкоштовного сліду Kutools для Excel прямо зараз!

Заповнити форму при введенні в випадаючому списку з кодом VBA

По-перше, вам потрібно вставити комбінований блок в робочий лист і змінити його властивості, а потім запустити код VBA, щоб включити автозаповнення.

1. Увійдіть в робочий лист, який містить список, що випадає, який ви хочете, щоб він був автозаполнен.

2. Перед тим, як вставити поле «Комбо», вам необхідно включити розробник в стрічці.

1). В Excel 2010 і 2013 натисніть філе> Опціони. І в Опціони діалогове вікно, натисніть Налаштування стрічки в правій панелі перевірте розробник, потім натисніть OK кнопка. Дивіться скріншот:

2). В Outlook 2007 натисніть Для офісу кнопка> Параметри Excel. У Параметри Excel діалогове вікно, натисніть Популярні в правій панелі, а потім перевірте надійність Показати вкладку розробника в стрічці і, нарешті, натисніть OK Кнопка.

3. Потім натисніть розробник> Вставити> Поле зі списком під Елементи управління ActiveX, Дивіться скріншот:

4. Намалюйте поле зі списком в поточному що відкрився аркуші і клацніть його правою кнопкою миші. Вибрати Нерухомість в контекстному меню.

5. в Нерухомість діалогового вікна, вам необхідно:

1). Змініть ім'я на TempCombo, який відноситься до Ім'я поле;

2). Вкажіть шрифт, який вам потрібен шрифт поле;

3). Прокрутіть вниз, щоб вибрати 1-fmMatchEntryComplete, який відноситься до MatchEntry поле;

4). Закрий Нерухомість діалогове вікно.

6. Вимкніть режим проектування, натиснувши розробник> Режим проектування.

7. Клацніть правою кнопкою миші поточну відкриту вкладку робочого листа і натисніть Переглянути код, Дивіться скріншот:

8. Переконайтеся, що поточний редактор коду робочого листа відкрито, а потім скопіюйте та вставте в нього код VBA нижче. Дивіться скріншот:

Код VBA: автозаповнення при введенні в випадаючому списку

Private Sub Worksheet_SelectionChange (ByVal Target As Range) 'Update by Extendoffice: 2018/9/21 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. Натисніть філе> Закрити і повернутися в Microsoft Excel закрити Microsoft Visual Basic для додатків вікна.

10. Тепер просто клацніть осередок з списком, що випадає, ви побачите, що розкривається відображається як поле зі списком, а потім введіть першу літеру в поле, відповідне слово буде завершено автоматично. Дивіться скріншот:

Увага: Цей код VBA не застосовується до об'єднаних комірок.

Office Tab - Перегляд, редагування та управління книгами в Excel з вкладками:

Вкладка «Office» надає інтерфейс з вкладками, як показано в веб-браузерах, таких як Google Chrome, нові версії Internet Explorer і Firefox в Microsoft Excel. Це будемо бути інструментом економії часу і незамінним у вашій роботі. Див. Нижче демо:

Натисніть для безкоштовної пробної версії Office Tab!

Статті по темі:

Рекомендовані інструменти для підвищення продуктивності в Excel

Kutools для Excel допомагає завжди завершувати роботу завчасно і виділятися з натовпу

• Більше, ніж потужні розширені функції 300, розроблені для робочих сценаріїв 1500, що підвищують продуктивність на 70%, дають вам більше часу, щоб піклуватися про сім'ю і радіти життю.
• Більше не потрібно запам'ятовувати формули і коди VBA, дайте вашому мозку відпочити.
• Стати експертом по Excel за хвилини 3. Складні і повторювані операції можна виконати за лічені секунди,
• Щодня скорочуйте тисячі операцій з клавіатурою і мишкою, попрощайтеся з професійними захворюваннями зараз.
• Високоефективні люди 110,000 і вибір всесвітньо відомих компаній 300 +.
• 60-Day повнофункціональна пробна версія. 60-день гарантії повернення грошей. 2 років безкоштовного оновлення і підтримки.

Забезпечує перегляд і редагування за допомогою вкладок в Microsoft Office, набагато більш потужний, ніж вкладки браузера

• Вкладка Office призначена для Word, Excel, PowerPoint і інших додатків Office: Publisher, Access, Visio і Project.
• Відкривайте і створюйте кілька документів в нових вкладках одного і того ж вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% і зменшує сотні кліків мишкою для вас кожен день!