У овом чланку ћемо научити како да истакнете блиску радну свеску користећи ВБА у програму Мицрософт Екцел 2010.
Након што ваш ВБА макро / код изврши све потребне радње, пожелели бисте да макро сачува датотеку или прескочи њено чување. Дакле, ево опција које можете поставити у коду тражећи да затвори датотеку. Метода Цлосе анд Опен у ВБА може се користити за затварање и отварање радних свезака.
Ако желите да код само затвори датотеку без чувања промена - онда користите овај ред на крају кода или где год је потребно -
АцтивеВоркбоок.Цлосе (Фалсе) или АцтивеВоркбоок.Цлосе Фалсе или АцтивеВоркбоок.ЦлосеСавеЦхангес: = ФАЛСЕ
Погледајте код на овој слици испод. Да бисте копирали код, притисните Алт + Ф11 на тастатури, пазећи да је Екцел отворен. Затим кликните десним тастером миша на Мицрософт Екцел објекти и изаберите Уметни. Затим кликните на Модул. Прекопирајте код дат испод слике -
Опција Експлицитно
Подмакро1 ()
АцтивеВоркбоок.Цлосе Фалсе
Енд Суб
Напомена: Можете променити текст АцтивеВоркбоок тако да се односи на назив радне свеске или променљиву коју сте користили за идентификацију радне свеске према вашем коду.
Ако желите да код сачува промене током затварања датотеке, користите
АцтивеВоркбоок.Цлосе (Тачно) или АцтивеВоркбоок.Цлосе Труе или АцтивеВоркбоок.Цлосе СавеЦхангес: = ТРУЕ
Ево кода -
Опција Експлицитно
Подмакро1 ()
АцтивеВоркбоок.Цлосе Труе
Енд Суб
Међутим, ако желите да корисник одлучи, само је потребно да унесете
АцтивеВоркбоок.Цлосе
Ево кода -
Опција Експлицитно
Подмакро1 ()
АцтивеВоркбоок.Цлосе
Енд Суб
Корисник ће добити искачући прозор са питањем да ли жели да сачува радну свеску или не.
Радне свеске ("Филе1.КСЛС"). Затворите СавеЦхангес: = Фалсе
Овај пример ће затворити Филе1.клс и одбацити све промене које су унете у њега.
Закључак:
Ако је „Апплицатион.ДисплаиАлертс“ постављено на Нетачно, нећете добити скочни прозор, а радна свеска ће се директно затворити без упита за чување.
Овај скочни прозор ће се појавити ако „Апплицатион.ДисплаиАлертс“ нигдје није постављено на Фалсе прије екцел вба Ацтивеворкбоок.Цлосе линије кода.
Дакле, чак и ако код захтева да искључите упозорења, уверите се да је „Апплицатион.ДисплаиАлертс = Труе“ присутна пре линије Ацтивеворкбоок.Цлосе.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам насајт е -поште