Да припремите Извештај о присуству са Екцел листом

Извештај о присуству може се лако припремити у Екцел табели. Постоје неки начини који су неопходни да би се уредили Екцел листови . Припремите Екцел листу која приказује проценат учесника у једном месецу. Корисник ће такође морати да припреми шаблон за извештај о присуству. Било би лакше да га покренете у Макро формату. Отворите нови радни лист који садржи шаблон извештаја о присуству. Потребно је дохватити податке из радног листа табеле за присуство . Припремите колоне уметањем података. Сада преименујте нови радни лист . Поновите поступак док не стигне до одредишта које је празна ћелија. Оффице софтвер је заиста од помоћи у овој апликацији припреме за присуство.

Да припремите Извештај о присуству са Екцел листом

• Питање
• Решење
• Белешка

Питање

Имам 60 становника који раде у нашем одјелу. Они свакодневно присуствују извештају. Тако да сам припремио Екцел лист (Намед Аттенданце Табле) који има колоне А1: А60 са именима становника Б1: Б60 са процентом похађања за месец дана. Мој посао је да припремим извештај о присуству за сваког становника. Припремио сам образац за извештај о присуству. Сада желим да покренем Макро који ће урадити следеће:

1. Отворите нови радни лист из шаблона у радној свесци која има "Радни лист табеле за присуство"

2. Требало би да донесе податке из радног листа "Табела присуствовања"

а. Из прве колоне А1 и стави у поље Име предлошка (нови радни лист отворен у фази 1) (увек Д6)

б. Донесите податке из Б1 и ставите у процентуално поље предлошка (Ф10)

ц. Треба да преименује картицу радног листа са подацима из А1 (тј. Име резидента)

3. Требало би поновити корак 2 док не стигне до празне ћелије

Може било тко помоћ мене писати макро.?

Решење

 '' Извјештај о присуству ''
Отворите нови радни лист под називом радни лист за присуство
'Са подацима из табеле присуствовања
- Становници се зову Д6
„Проценат присуства од једног месеца до Ф10
'Преименујте лист на име становника и почните поново
'За све становнике у табели
Суб АттенданцеРепорт ()
Дим цЦелл Ас Објецт, и Ас Интегер 'Две променљиве цЦелл (тренутна ћелија) објекат и и (стандардни бројни број)
Ћелије (1, "А"). Изаберите 'Уверите се да почињемо сваки пут на врху радног листа
Апплицатион.СцреенУпдатинг = Фалсе 'Укључивање ажурирања екрана док је макро покренут
За сваки цЦелл у опсегу (ћелије (1, "А"), ћелије (1, "А"). Крај (клДовн)) 'Покренуће наш код кроз сваку ћелију са текстом
Сет НевСхеет = Схеетс.Адд (Типе: = клВорксхеет) 'Додај нови радни лист
НевСхеет.Наме = "Радни лист табеле за присуство" "преименовање радног листа
Схеетс ("Радни лист табеле присуства"). Ћелије (6, "Д"). Вредност = цЦелл.Валуе 'стави име становника је ћелија Д6
Листови ("Радна табела за присуство"). Ћелије (10, "Ф"). Вредност = цЦелл.Оффсет (0, 1) .Вредност 'стави место боравка у Ф10
Листови ("Радни лист табеле за присуство") Име = цЦелл.Валуе
Нект цЦелл
Енд Суб 

Белешка

Решио Јимми