У овом чланку ћемо научити како да променимо формулу у ћелијама у опсегу на вредности помоћу ВБА у програму Мицрософт Екцел.
Сирови подаци за овај пример се састоје од података о продаји. Подаци о продаји садрже информације о броју артикала које продају запослени у различитим градовима. Последњи ред и колона садрже формулу збира за проналажење укупног броја артикала које је одређени запосленик продао у одређеном граду.
Желели бисмо да претворимо све формуле у активном листу у вредности. Да бисмо све формуле претворили у вредности, креирали смо макро „ЦхангингФормуласТоВалуе“. Овај макро се може покренути кликом на дугме „Претвори формуле у вредности“.
На снимку се може видети да је формула у ћелији Х18 претворена у вредност.
Објашњење кода
Подеси СоурцеРнг = Опсег ("А1", Опсег ("А1"). Посебне ћелије (клЦеллТипеЛастЦелл))
Горњи код се користи за додељивање свих ћелија почев од ћелије А1 до последње ћелије у радној свесци као опсег.
СоурцеРнг.Валуе = ИзворРнг.Валуе
Горњи код се користи за додељивање вредности ћелији прескакања формуле
Молимо следите доле за код
Опција Експлицитно Суб ЦхангингФормуласТоВалуе () 'Декларисање променљивих Дим СоурцеРнг Ас Ранге' Наведите све ћелије у активном листу као опсег Сет СоурцеРнг = Ранге ("А1", Ранге ("А1"). СпециалЦеллс (клЦеллТипеЛастЦелл)) 'Додељивање само вредности формула за прескакање ћелије ћелије СоурцеРнг.Валуе = СоурцеРнг.Валуе Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште
