У овом чланку ћемо научити како снимити макро, а затим како га изменити и олакшати учење.
Како написати макро за формулу Сум у ВБЕ
Имамо Екцел податке у опсегу А1: Ц14, у којима колона А садржи имена, колона Б са ознакама субјекта 1 и колона Ц са ознакама предмета 2. У колони Д желим да вратим укупне оцене.
Да бисте унели формулу збира помоћу ВБА у Мицрософт Екцел, следите доле наведене кораке:-
- Отворите Екцел податке.
- Прво снимите макро за враћање укупних оцена у ћелију Д2.
- На картици „Девелопер“ изаберите „Рецорд Мацро“ из групе „Цоде“.
- Појавиће се дијалог „Рецорд Мацро“.
- У поље „Назив макроа“ упишите назив макроа без употребе размака и посебних знакова.
- Откуцајте пречицу како год желите.
- И напишите опис макроа у поље за опис.
- Снимање ће почети сада.
- Формулу збира упишите у ћелију Д2.
- Налепите формулу у опсег Д3: Д14.
- Кликните на „Заустави снимање“
- Да бисте видели снимљене макрое, притисните тастер “АЛТ+Ф11”.
- Снимљени код би био овакав:-
Суб СУМ () '' СУМ Макро 'Укупан број добијених оцена' 'Пречица на тастатури: Цтрл+Схифт+С' Опсег ("Д2"). Изаберите АцтивеЦелл.ФормулаР1Ц1 = "= СУМ (РЦ [-2]: РЦ [-1] ) "Селецтион.Цопи Ранге (" Ц2 "). Селецт Селецтион.Енд (клДовн). Селецт Ранге (" Д14 "). Селецт Ранге (Селецтион, Селецтион.Енд (клУп)). Селецт АцтивеСхеет.Пасте Ранге (" Д2 " ). Одаберите Енд Суб
Као што видите да је горе поменути ВБА код предуг да би вратио укупне оцене, а такође га није лако разумети. Тако мењамо кодирање.
Суб СУМ () Дим Кс Ас Интегер Кс = Апплицатион.ВорксхеетФунцтион.ЦоунтА (Ранге ("А: А")) Ранге ("Д2: Д" & Кс) .Валуе = "= Сум (Б2: Ц2)" Енд Суб
Како написати макро за формулу Просек у ВБЕ -у
Имамо Екцел податке у опсегу А1: Ц14, у којима колона А садржи имена, колона Б са ознакама субјекта 1 и колона Ц са ознакама предмета 2. У колони Д желим да вратим просечне оцене.
Да бисте уметнули просечну формулу користећи ВБА у Мицрософт Екцел 2010 и 2013, следите доле наведене кораке:-
- Отворите Екцел податке.
- Прво снимите макро за враћање просечних оцена у ћелију Д2.
- На картици „Девелопер“ изаберите „Рецорд Мацро“ из групе „Цоде“.
- Појавиће се дијалог „Рецорд Мацро“.
- У поље „Назив макроа“ упишите назив макроа без употребе размака и посебних знакова.
- Откуцајте пречицу -шта год желите.
- И напишите опис макроа у поље за опис.
- Снимање ће почети сада.
- Упишите ћелију „ПРОСЈЕЧНО“ у ћелију Д2.
- Налепите формулу у опсег Д3: Д14.
- Кликните на „Заустави снимање“.
- Да бисте видели снимљене макрое, притисните тастер “АЛТ+Ф11”.
- Снимљени код би био овакав:-
Суб АВЕРАГЕ () '' АВЕРАГЕ Мацро 'Укупан број постигнутих оцена' 'Пречица на тастатури: Цтрл+Схифт+А' АцтивеЦелл.ФормулаР1Ц1 = "= СРЕДЊА (РЦ [-3]: РЦ [-2])" Селецтион.Цопи Ранге (" Е2 "). Одаберите Селецтион.Цопи Ранге (" Д2 "). Селецт Селецтион.Енд (клДовн) .Изаберите Ранге (" Е14 "). Селецт Ранге (Селецтион, Селецтион.Енд (клУп)). Селецт АцтивеСхеет.Пасте Ранге "Е13"). Одаберите Селецтион.Енд (клУп) .Одаберите Енд Суб
Као што видите да је горе поменути ВБА код предуг за враћање укупних оцена, а такође га није лако разумети; стога мењамо код.
Подпросек () Дим Кс као цео број Кс = Апплицатион.ВорксхеетФунцтион.ЦоунтА (Распон ("А: А")) Опсег ("Е2: Е" & Кс). Вредност = "= Просек (Б2: Ц2)" Крај под
На овај начин можемо научити како снимити макро, а затим и како га изменити.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште