У наставку ћемо погледати програм у Екцел ВБА то пролази кроз све отворене радне свеске и радне листове , и приказује сва имена.
претвори датум у низ у екцелу
Ситуација:
Додајте следеће линије кода командном дугмету:
1. Прво, декларишемо два објекта и једну променљиву. Један објекат типа Радна свеска коју називамо књига, један објекат типа Радни лист који зовемо лист и променљива типа Стринг коју називамо текст.
НиједанкњигаКаоРадна свеска, листКаоРадни лист, текстКао Низ
2. Желимо да прођемо кроз све отворене радне свеске. Да бисте то постигли, додајте следећу линију кода:
ако или функционише у екцелу 2010За СвакикњигаИнРадне свеске
3. У променљиви текст уписујемо текст „Радна свеска:“, назив радне свеске и текст „Радни листови:“.
тект = тект & 'Воркбоок:' & боок.Наме & вбНевЛине & 'Радни листови:' & вбНевЛинеНапомена: можете користити оператор & за спајање (придруживање) елемената. Да бисте започели нову линију, можете користити вбНевЛине.
4. Да бисте прошли кроз све радне листове радне свеске, додајте следећи кодни ред:
За СвакилистИнкњига.Радни листови5. У променљиви текст уписујемо називе радних листова радне свеске.
тект = тект & схеет.Наме & вбНевЛине6. Затворите другу петљу.
екцел формат датума мм / дд / ииииСледећилист
7. Додајте белу линију.
тект = тект & вбНевЛине8. Не заборавите да затворите прву петљу.
Следећикњига9. На крају, приказујемо променљиви текст користећи МсгБок.
МсгБок текст10. Тестирајте програм. Пре него што кликнете на командно дугме, дајте радним листовима нека описна имена и отворите празну радну свеску са три радна листа.
Резултат:
Идите на следеће поглавље: Објекат домета