Користите ВБА макро за креирање нове радне свеске која садржи тачно онолико радних листова колико вам је потребно
У многим макроима треба створити нове радне свеске које су, на пример, испуњене одређеним садржајем. Важан задатак овде је креирање нове радне књиге програма Екцел која садржи тачно онолико табела колико желите.
Следећи макро ради овај посао. Он ствара нову радну свеску која садржи 31 радни лист. Ови радни листови су нумерисани од 1 до 31. Ево одговарајућих ВБА команди:
Суб ФуегеТабелленЕин ()
Дим нумбер Ас Интегер
Дим и Ас Интегер
Дим Маппе као радна свеска
Нумбер = Апплицатион.СхеетсИнНевВоркбоок
Апплицатион.СхеетсИнНевВоркбоок = 31
Сет фолдер = Воркбоокс.Адд
За и = 1 За Маппе.Ворксхеетс.Цоунт
Фолдер.Ворксхеетс (и) .Наме = и
Затим сам
Апплицатион.СхеетсИнНевВоркбоок = број
Енд Суб
Када се покрене, Екцел приказује нову радну свеску која садржи 31 радни лист. Следећа слика приказује како ово изгледа у регистру листова:
У макроу одређујете број радних листова који желите помоћу броја 31. Промените овај број ако желите да имате мање или више радних листова у радној свесци.
Да бисте унели макро, притисните АЛТ Ф11 у Екцелу да бисте отворили ВБА едитор. Помоћу команде ИНСЕРТ - МОДУЛЕ уметните празан лист модула. Да бисте покренули макро директно из програма Екцел, користите комбинацију тастера АЛТ Ф8.
