Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » photon
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Поиск маршрута по листам, Поиск пути подключений
 
#
20.05.2019 14:34:47
Здравствуйте, товарищи!
Я не часто программирую, поэтом, нарисовав себе задачу, вроде бы и простую, столкнулся с небольшими сложностями. Надеюсь, вы сможете подсказать приличное решение. Эта задача у меня решена и она работает, но мне не нравится такое решение, хочу переделать...
Задача:
Есть АТС с некоторым количеством абонентов. Сеть связи раскидана по территории предприятия. Подключения идут через ШР (Шкаф распределительный), КР (Коробка распределительная) и КП (Кросс-панель).
Сеть связи старая. Некоторые номера подключены скрутками или клеммниками (где как) и могут идти в разные здания. Необходимо по всем листам ШР, КР, КП найти интересующий номер и построить трассы - если всюду последовательное подключение, то одну трассу, если есть где-то ветвления, то, соответственно, выделить отдельные ветки и построить трассы целиком.
Не могу пока сообразить, как эту задачу красиво решить, чтоб учитывала различные варианты ветвлений по трассе - количество ШР, КР и КП неизвестно заранее, равно как и ответвления могут быть на любом этапе.
То решение, которое я накидал, меня не устраивает своей громоздкостью...
Подскажите пожалуйста, как можно эту задачу решить более-менее универсально, а то я, в силу своего небольшого опыта с VBA, пока не смог получить удовлетворяющее меня решение.
Файл с примером прилагаю.
 
Перейти    
Копирование определенных листов из одной книги в другую, Копирование листов Excel
 
#
16.10.2017 08:35:04
Здравствуйте, товарищи!
Прошу помочь, подсказать решение 1 маленькой проблемы, которую я не смог пока забороть:
Есть книга Excel, в которой куча листов. Есть лист "Общий отчет" и имена листов, перечисленные на листе "Общий отчет".
Надо перечисленные листы скопировать в другую книгу и сохранить.
Я сформировал массив arsheets(), который правильно выводится в ячейки (тестовая проверка сформированного массива) - попадает сюда только то, что нужно, но, при попытке скопировать этот массив листов в другой файл, ничего не происходит или копируются все листы.
Выводить пытался разными методами. Вот один из последних (взято с сайта MS):
Код
for x=1 to Period
           Workbooks(BkName).Sheets(arsheets(x)).Copy _
            Before:=Workbooks(iPath & "Отчет.xls").Sheets(arsheets(x))
next

Если использовал такую конструкцию
    List = "Общий отчет"
    Sheets(List).Copy
    Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value
    Sheets(List).Buttons.Delete 'Удаление кнопок

то файл с 1 листом "Общий отчет" формировался и кнопки удалялись...

Не могу сообразить, что я делаю не так...
 
Перейти    
Страницы: 1
Наверх