проблему решил пока что самостоятельно после долгих мучений, через оператора if + goto [vba]
Код
If nmr = vbNullString Then GoTo line1 Else GoTo line2 line1: ActiveSheet.Delete GoTo line3 line2: ActiveSheet.Name = nmr
[/vba]
работает, так как мне нужно, но подозреваю, что это забивание гвоздей микроскопом. поскольку тут идет просмотр каждой ячейки диапазона и хорошо что у меня их тут всего 160, а если будет 1000? думаю это будет оооочень медленно.
итоговый файл приложил, если вдруг у кого то есть время на оптимизацию кода (чтоб всё таки вместо микроскопа взять в руки молоток), буду благодарен.
проблему решил пока что самостоятельно после долгих мучений, через оператора if + goto [vba]
Код
If nmr = vbNullString Then GoTo line1 Else GoTo line2 line1: ActiveSheet.Delete GoTo line3 line2: ActiveSheet.Name = nmr
[/vba]
работает, так как мне нужно, но подозреваю, что это забивание гвоздей микроскопом. поскольку тут идет просмотр каждой ячейки диапазона и хорошо что у меня их тут всего 160, а если будет 1000? думаю это будет оооочень медленно.
итоговый файл приложил, если вдруг у кого то есть время на оптимизацию кода (чтоб всё таки вместо микроскопа взять в руки молоток), буду благодарен.DJ_Marker_MC
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
