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