Како направити радну свеску и преименовати табеле
Желите да креирате радне свеске које садрже дванаест радних листова како бисте могли да прикупљате податке за сваки месец у години? Дозволите да макро то аутоматски уради уместо вас.
Следећи макро креира нову, празну радну свеску са дванаест радних листова и именује појединачне листове у скраћеном облику назива месеци, тј. „Јануар“, „фебруар“ итд. Ево одговарајућег макроа:
Суб ЦреатеМонтх табеле ()
Затамни број картице као цео број
Дим Нев Ас Воркбоок
Мрачна имена као варијанта
Намес = арраи ("Јан", "Феб", "Мар", "Апр", "Маи", "Јун", _
„Јул“, „август“, „септембар“, „октобар“, „новембар“, „децембар“)
ТабНумбер = Апплицатион.СхеетсИнНевВоркбоок
Апплицатион.СхеетсИнНевВоркбоок = 12
Сет Нев = Воркбоокс.Адд
Апплицатион.СхеетсИнНевВоркбоок = ТабНумбер
За ТабНумбер = 1 до 12
Нев.Вадксхеетс (ТабНумбер) .Наме = Намес (ТабНумбер - 1)
Број следеће картице
Енд Суб
Након почетка, добићете радну свеску са дванаест радних листова. Следећа слика приказује како резултат изгледа:
Ако желите да користите друга имена уместо назива месеци, прилагодите имена у додељивању вредности променљивој „Намес“.
Савет: Ако желите да знате како да уносите и покрећете макрое у Екцелу, овде ћете пронаћи кратак опис: хттп://ввв.екцелдаили.де/екцел-макрос-вба/артикел/д/со-хабен-сие -макрос- ин-екцел-еин.хтмл
