Как да създадете формуляр за търсене и печат чрез VBA в Microsoft Excel

Anonim

В тази статия ще научим как да създадем потребителски формуляр за търсене и печат чрез VBA в Microsoft Excel.

Нека разберем с едно просто упражнение:-

Имаме данни в лист 1, в който колона А съдържа идентификационен номер на агент, колона В съдържа име, колона В адрес, колона Г град, колона Е регион, колона F държава и колона G съдържа пощенски код.

В следващия лист (лист 2) искаме да извлечем подробностите според изображението по-долу:-

Ако търсим идентификационния номер на агента, тогава всички подробности трябва да се появят в диапазона A11: D11. И след това дайте разпечатката.

Следвайте дадените по-долу стъпки за търсене и отпечатване на подробностите:-

  • Натиснете клавиша F11, за да отворите редактора на Visual Basic
  • Вмъкнете модула, за да напишете кода за бутона за търсене
  • Напишете кода по-долу:-
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Cells (Rows.count, 1) .End (xlUp) .Row For X = 2 To Lastrow If Sheets ("Data"). Клетки (X, 1) = Sheet3.Range ("B3") Тогава Sheet3.Range ("A11") = Sheets ("Data"). Клетки (X, 1) Sheet3.Range ("B11") = Sheets (" Данни "). Клетки (X, 2) Лист 3. Range (" C11 ") = Листове (" Данни "). Клетки (X, 3) &" "& Листове (" данни "). Клетки (X, 4) _ & "" & Листове ("данни"). Клетки (X, 5) & "" & Листове ("Данни"). Клетки (X, 6) Лист3.Range ("D11") = Листове ("Данни"). Клетки (X, 7) End If Next X End Sub

Код Обяснение:- Първо, ние ще дефинираме променливите и след това сме дефинирали кой ред ще бъде последният ред, след което сме определили какво и къде ще се търси идентификационният номер на агента и след това как диапазонът ще бъде актуализиран за търсения идентификатор на агента.

Сега ще присвоим този макрос на бутона Търсене.

  • Щракнете с десния бутон върху бутона
  • Щракнете върху Присвояване на макрос
  • Тук нашата макро тема е Searchdata, кликнете върху searchdata и след това щракнете върху OK

Стартирайте макроса:-

  • За да стартирате макроса, щракнете върху бутона Търсене
  • Ако идентификаторът на агента ще бъде там, подробностите ще се актуализират, в противен случай подробностите няма да се появят

За да разпечатате, задайте споменатия по-долу макрос:-

  • Вмъкнете бутона от раздел Разработчик> Вмъкване> Бутон (контрол на формуляра)
  • Напишете макроса в същия модел, където сме написали макроса за Searchdata, с името на темата на Printout
 Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
  • Задайте макроса на бутона, както сме задали на данните за търсене

По този начин можем да търсим данните и след това да дадем разпечатката на търсените подробности чрез VBA в Microsoft Excel.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.

Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта