У овом чланку ћемо научити како створити кориснички образац за претраживање и штампање кроз ВБА у програму Мицрософт Екцел.
Хајде да разумемо једноставном вежбом:-
У Табели 1 имамо податке у којима колона А садржи ИД агента, колона Б садржи име, колона Ц Адреса, колона Д град, регион колоне Е, колона Ф држава и колона Г садржи поштански број.
На следећем листу (лист 2) желимо да преузмемо детаље према доле наведеној слици:-
Ако претражујемо ИД агента, сви детаљи би се требали појавити у распону А11: Д11. И онда дајте испис.
Пратите доле наведене кораке за претраживање и штампање детаља:-
- Притисните тастер Ф11 да бисте отворили Висуал Басиц Едитор
- Уметните модул за писање кода за дугме за претрагу
- Напишите доле наведени код:-
Суб Сеарцхдата () Дим Ластров Ас Лонг Дим цоунт Ас Интегер Ластров = Схеетс ("Дата"). Целлс (Ровс.цоунт, 1) .Енд (клУп) .Ров Фор Кс = 2 То Ластров Иф Схеетс ("Дата"). Ћелије (Кс, 1) = Схеет3.Ранге ("Б3") Затим Схеет3.Ранге ("А11") = Схеетс ("Дата"). Ћелије (Кс, 1) Схеет3.Ранге ("Б11") = Схеетс (" Подаци "). Ћелије (Кс, 2) Табела 3.Ранге (" Ц11 ") = Табеле (" Подаци "). Ћелије (Кс, 3) &" "& Табеле (" подаци "). Ћелије (Кс, 4) _ & "" & Табеле ("подаци"). Ћелије (Кс, 5) & "" & Табеле ("Подаци"). Ћелије (Кс, 6) Таблица3.Ранге ("Д11") = Табеле ("Подаци"). Ћелије (Кс, 7) Енд Иф Нект Кс Енд Суб
Шифра Објашњење:- Прво ћемо дефинисати променљиве, а затим смо дефинисали који ред ће бити последњи ред, а затим смо дефинисали шта и где ће се тражити ИД агента, а затим како ће се опсег ажурирати за тражени ИД агента.
Сада ћемо доделити овај макро дугмету за претрагу.
- Десни клик на дугме
- Кликните на Додели макро
- Овде је наш предмет макроа Подаци о претрази, кликните на податке о претрази, а затим кликните на У реду
Покрените макро:-
- Да бисте покренули макро, кликните на дугме Тражи
- Ако ће ИД агента бити тамо, детаљи ће се ажурирати у супротном се детаљи неће појавити
Да бисте одштампали, доделите доле поменути макро:-
- Уметните дугме са картице Девелопер> Инсерт> Буттон (контрола обрасца)
- Напишите макро у исти модел у којем смо написали макро за Сеарцхдата, са називом предмета Принтоут
Суб ПринтОут () Схеет3.Ранге ("А1: Д12"). ПринтПревиев Схеет3.Ранге ("А1: Д12"). ПринтОут Енд Суб
- Доделите макро дугмету као што смо доделили подацима за претрагу
На овај начин можемо претраживати податке и затим дати испис тражених детаља путем ВБА у Мицрософт Екцелу.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште