Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как GetObject заставить открывать в Excel файлы с не стандартным расширением?
 
Как GetObject заставить открывать в Excel файлы с не стандартным расширением?
Код
        Dim objCloseBook As Object
        Set objCloseBook = GetObject("C:\Base\base.ottb")

Это файл с макросами но расширение было изменено в целях безопасности использования.
Нужно что бы макрос открывал в фоне файл base.ottb ( он же base.xlsm) через GetObject и брал с него данные.
При стандартном расширении все работает, а если его изменить - нет.
Переименовывать файл перед открытием нет смысла.
Изменено: fejdraus - 11.04.2017 14:49:36
Поиск и скрытие повторяющихся строк, Можно ли сделать код быстрее?
 
Здравствуйте дорогие форумчане, прошу помощи в оптимизации кода для скорости обработки.
Я понимаю что сделать через For Each ... Next и использование массива, но у меня проблема с For Each ... Next, я просто не могу понять работу его. Был бы благодарен за помощь в оптимизации.
В таблице значения вписаны, по ним производится поиск и скрытие по алгоритму:
1) Сравнение первого столбца на одинаковые ячейки
2) При нахождении одинакового значения - поиск по другом столбцу этих строк и сравнения значений
3) скрытие столбца с меньшим значением во другом столбце этой строки
4) поиск следующих совпадений и повторение действий.
Сделал два кода:
1) сначала занесение всей таблицы в массив (по времени это чуть больше секунды, согласно таймеру), потом сравнение в массиве сзачений и скрытие строк после нахждения нужной строки.
2) перебор по строка в таблице и скрытие.
Изменено: fejdraus - 16.02.2017 11:46:31
Вылетает Excel при закрытии формы, При нажатии на ячейку в 10 строке открывается форма, но при закрытии формы ведетает Excel
 
Здравствуйте!
Принцип работы таблицы такой:
1) Вначале нажимается кнопка "Добавить позицию для корректировки", там заполняются все строки начиная с 4-ой (в спадающих меню выбрать, в остальных можно по цифре). После нажатия "Добавить", заполняется строка.
2) Если два раза нажать на любой заполненной ячейке строки что создалась - откроется форма для редактирования строки.
3) Если нажать "Внести изменения" тогда строка примет новый значения из этой формы. Если "отменить" закроет форму. Если "удалить корректировку" - тогда удалит позицию выбранную для редактирования.
Проблема заключается в том что при нажатии на ячейку в 10 (с 11 тоже проблема) в созданной строке, открывается форма, но потом при нажатии  "Внести изменения" или "отменить" весь excel зависает словно в бесконечном цикле. При нажатии "удалить корректировку" удаляется строка и форма корректно закрывается.

Заранее благодарен всем кто откликнется.
При добавлении строки на первом листе, на третем добавляется такая же строка, При добавлении строки на первом листе, на третем добавляется такая же строка, при удалении ее - удаляються на обоих листах
 
Здравствуйте!
Подскажите, возможно ли сделать так что бы при выборе в спадающем меню пункта на Лист 1 появлялась строка такая же на Лист 2, при этом что бы она не просто копировалась а вставлялась как добавлена строка с переносом формул с предыдущей очищая строки где нет формул.
В моем файле реализовано создание новой строки с копированием содержимого и очисткой нужных строк при выборе из списка, но как сделать что бы на Лист 3 это выполнилось.
Так же нужно, когда через кнопку удаляется строка из Лист 1, она удалялась с Лист 3.
Лист 3 будет защищен от изменений, Лист 1 частично. Макрос перед работой снимает защиту и снова ставит после выполнения.
Страницы: 1
Наверх