Понекад желимо да користимо један лист програма Екцел као образац који се користи за добијање уноса од корисника. податке које је унео корисник, покушавамо да их сачувамо на неким другим листовима који можда неће бити доступни крајњем кориснику ради безбедности података, наравно. У овом чланку ћемо научити како да ажурирамо податке са једног листа на други помоћу ВБА.
Дакле, не упуштајући се даље у моје досадне разговоре, позабавимо се примером да бисмо разумели концепт.
Пример: Ажурирајте податке на листу 2 На основу вредности унетих на листу 1
Овај код желимо да напишемо за оне запослене који раде у цалл центру. Када их клијенти позову, узимају основне податке као што су Усер_Наме, Усер_ИД, Пхоне_Нумбер и Проблем_ИД.
Сада желимо да напишемо макро за који ће, када дође позив, све горе наведене детаље забележити у Екцел листу, а када кликну на ажурирање, те податке треба ажурирати на другом листу.
Да бисте ажурирали податке са једног листа на други, следите доле наведене кораке:-
• Прво ћемо уметнути командно дугме у радни лист.
• Идите на картицу Девелопер, а затим уметните командно дугме из програма Ацтивекцонтрол.
• Доделите доле поменути макро:-
Привате Суб ЦоммандБуттон1_Цлицк () Дим Усер_Наме Ас Стринг, Усер_ИД Ас Интегер, Пхоне_Нумбер ас Доубле, Проблем_ИД Ас Интегер Ворксхеетс ("Схеет1"). Изаберите Усер_Наме = Ранге ("Б2") Усер_ИД = Ранге ("Б3") Пхоне_Нумбер = Ранге (" Б4 ") Проблем_ИД = Опсег (" Б5 ") Радни листови (" Лист 2 "). Изаберите радне листове (" Лист 2 "). Распон (" А1 "). Одаберите Ако радни листови (" Лист 2 "). Распон (" А1 "). Помак (1, 0) "" Затим радни листови ("Схеет2"). Распон ("А1"). Крај (клДовн). Одаберите крај ако је АцтивеЦелл.Оффсет (1, 0). Одаберите АцтивеЦелл.Валуе = Усер_Наме АцтивеЦелл.Оффсет (0 , 1) .Изаберите АцтивеЦелл.Валуе = Кориснички_ИД АцтивеЦелл.Оффсет (0, 1) .Изаберите АцтивеЦелл.Валуе = Број_телефона АцтивеЦелл.Оффсет (0, 1). Одаберите АцтивеЦелл.Валуе = Проблемске_ИД радне таблице ("Лист1"). Одаберите радне листове ("Лист1"). "Схеет1"). Распон ("Б2"). Изаберите Енд Суб
Објашњење кода:- Прво смо дефинисали све променљиве. Затим смо дефинисали опсег за све променљиве, а затим описали опсег за све променљиве. Такође смо дефинисали где и у ком опсегу ће се подаци ажурирати након што кликнемо на дугме Ажурирај.
• За покретање кода притисните тастер Ф5 на тастатури.
• Када унесете податке и кликнете на дугме за ажурирање, подаци ће се ажурирати на другом листу, а ми можемо унети нове податке у лист.
На овај начин можемо ажурирати податке са једног листа на други лист путем ВБА у Мицрософт екцелу. Надам се да сам довољно објаснио. Ако имате било каквих недоумица у вези са овим чланком или било којим другим екцел ВБА чланком, можете ме питати у одељку за коментаре испод.
Промените вредност/садржај неколико контрола УсерФорм-а користећи ВБА у Екцелу | Да бисте променили садржај контрола корисничког облика, користите овај једноставан ВБА исечак.
Спречите затварање корисничког облика када корисник кликне на дугме к помоћу ВБА у Екцелу | Да бисмо спречили затварање корисничког облика када корисник кликне на дугме к обрасца, користимо догађај УсерФорм_КуериЦлосе.
Популарни чланци:
50 Екцел пречица за повећање продуктивности | Убрзајте свој задатак. Ових 50 пречица ће учинити да радите још брже на Екцелу.
Функција ВЛООКУП у Екцелу | Ово је једна од најчешће кориштених и популарних функција програма Екцел која се користи за тражење вриједности из различитих распона и листова.
ЦОУНТИФ у програму Екцел 2016 | Бројте вредности са условима користећи ову невероватну функцију. Не морате да филтрирате податке да бисте рачунали одређену вредност. Цоунтиф функција је неопходна за припрему ваше контролне табле.
Како се користи функција СУМИФ у програму Екцел | Ово је још једна битна функција контролне табле. Ово вам помаже да сумирате вредности под одређеним условима.