300 Примера

Прелистајте књиге и табеле

Loop Through Books Sheets

У наставку ћемо погледати програм у Екцел ВБА то пролази кроз све отворене радне свеске и радне листове , и приказује сва имена.





претвори датум у низ у екцелу

Ситуација:

Прелистајте пример књига и табела





Додајте следеће линије кода командном дугмету:

1. Прво, декларишемо два објекта и једну променљиву. Један објекат типа Радна свеска коју називамо књига, један објекат типа Радни лист који зовемо лист и променљива типа Стринг коју називамо текст.



НиједанкњигаКаоРадна свеска, листКаоРадни лист, текстКао Низ

2. Желимо да прођемо кроз све отворене радне свеске. Да бисте то постигли, додајте следећу линију кода:

ако или функционише у екцелу 2010
За СвакикњигаИнРадне свеске

3. У променљиви текст уписујемо текст „Радна свеска:“, назив радне свеске и текст „Радни листови:“.

тект = тект & 'Воркбоок:' & боок.Наме & вбНевЛине & 'Радни листови:' & вбНевЛине

Напомена: можете користити оператор & за спајање (придруживање) елемената. Да бисте започели нову линију, можете користити вбНевЛине.

4. Да бисте прошли кроз све радне листове радне свеске, додајте следећи кодни ред:

За СвакилистИнкњига.Радни листови

5. У променљиви текст уписујемо називе радних листова радне свеске.

тект = тект & схеет.Наме & вбНевЛине

6. Затворите другу петљу.

екцел формат датума мм / дд / ииии
Следећилист

7. Додајте белу линију.

тект = тект & вбНевЛине

8. Не заборавите да затворите прву петљу.

Следећикњига

9. На крају, приказујемо променљиви текст користећи МсгБок.

МсгБок текст

10. Тестирајте програм. Пре него што кликнете на командно дугме, дајте радним листовима нека описна имена и отворите празну радну свеску са три радна листа.

Резултат:

Прелистајте књиге и табеле у програму Екцел ВБА

4/8 Завршено! Сазнајте више о књигама и листовима>
Идите на следеће поглавље: Објекат домета



^