Екцел - Макро за аутоматско нумерисање фактура

Питање

Своје фактуре чувам под Екцелом, али морам сваки пут ручно да додам нови број сваком од њих.

Да ли је могуће имати аутоматско нумерисање помоћу макроа?

Решење

Ово је макро који може повећати (на пример) број фактуре. У овом макроу, број се приказује у ћелији "А1", али се може променити у вашу корист.

 Суб Инцремент_инвоице () Дим нум Ас Интегер Ранге ("А1"). Изаберите нум = Ранге ("А1"). Вредност нум = нум + 1 Опсег ("А1"). 

Такође желите да додате ове линије на крај макроа тако да сваки пут када одштампате фактуру, следећи ће се аутоматски повећавати на следећи начин:

 Суб ПРИНТ () АцтивеВиндов.СелецтедСхеетс.ПринтОут Цопиес: = 1, Цоллате: = Труе Дим нум Ас Интегер Ранге ("А1") Изаберите нум = Ранге ("А1"). ) .Валуе = нум Крај Суб