Како извући недостајуће вредности путем ВБА

Anonim

У овом чланку ћемо креирати кориснички дефинисану функцију како бисмо открили број који недостаје у опсегу кроз ВБА у Мицрософт Екцелу.

Кориснички дефинисана функција: Мицрософт Екцел вам омогућава да креирате сопствену функцију према захтеву, називамо је кориснички дефинисана функција. Такође, можемо користити функције које дефинише корисник, као и друге функције које раде у Екцелу.

Узмимо пример да бисмо разумели:-

Имамо податке у којима имамо вредности за сваки ИД кода и желимо да проверимо вредност која недостаје између 1 до 99, ако у опсегу недостају вредности, које вредности недостају и ако су све вредности доступне, резултат би требао бити све вредности су доступне.

Написаћемо ВБА код да бисмо сазнали недостајуће бројеве према следећим корацима:

  • Отворите ВБА страницу притисните тастер Алт+Ф11
  • Уметните модул
  • Затим идите на поново убацивање менија и кликните на процедуру, где ћете добити процедуру ако не знате како би требало покренути макро
  • Напишите доле наведени код:
Функција Миссинг_Нумбер (Миранге Ас Ранге) Дим Нумбер (1 то 99) Ас Интегер Он Еррор Ресуме Нект за сваку ћелију у Миранге Нумбер (Целл.Валуе) = 1 Нект Он Еррор ГоТо 0 Миссинг_Нумбер = "Миссинг:" За И = 1 до 99 Ако није Број (И) = 1 Тада је Миссинг_Нумбер = Миссинг_Нумбер & И & "," Енд Иф Нект И Иф Лен (Миссинг_Нумбер) = 9 Тхен Миссинг_Нумбер = Лефт (Миссинг_Нумбер, Лен (Миссинг_Нумбер) - 2) Енд Иф Енд Фунцтион 

  • Притисните тастер Ф5 на тастатури
  • Користите ову макро функцију као формулу
  • = Недостајући_број (Д3: КО3) притисните ентер на тастатури

На овај начин можемо вратити недостајуће вредности из података за сваки ред помоћу ВБА у програму Мицрософт Екцел

Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.

Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште