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

Страницы: 1
Проблема большого размера макроса
 
Суть проблемы: имеется сводная книга excel в которой 225 листов. Для каждого листа написано по 2-а почти одинаковых кода VBA (они нужны для получения данных из других закрытых книг на каждый из 225 листов после предварительного снятия парольной защиты с последних). Для автоматизации последовательного переноса данных на все листы был записан весьма объемный макрос и "повешен" на кнопку (фрагмент макроса приведен в прикрепленном текстовом файле). Данный макрос получился большого размера и его отказывается обрабатывать excel (т.е. если заставить макрос последовательно выполнять по два кода на лист до 214-того листа включительно - работает, но если больше - пишет, что не может обработать более 64 Кб). Подскажите как можно решить данную проблему (может возможно ужать текст макроса или проблема в переполнении оперативной памяти?).
Как сделать чтобы макрос для копирования данных из закрытых книг работал на скрытых листах
 
Здраствуйте. Используя макрос  
 
Sub Get_Value_From_Close_Book()  
   Dim sShName As String, sAddress As String, vData  
   'Отключаем обновление экрана  
   Application.ScreenUpdating = False  
   Workbooks.Open "C:\Documents and Settings\Книга1.xls"  
   sAddress = "A1:C100" 'или одна ячейка - "A1"  
   'получаем значение  
   vData = Sheets("Лист1").Range(sAddress).Value  
   ActiveWorkbook.Close False  
   'Записываем данные на активный лист книги,  
   'с которой запустили макрос  
   If IsArray(vData) Then  
       [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
   Else  
       [A1] = vData
   End If  
   'Включаем обновление экрана  
   Application.ScreenUpdating = True  
End Sub  
 
для переноса на листы данных из закратых книг столкнулся с такой проблемой: записал макрорекодером процесс последовательного переноса данных на десяток листов активной книги и "повесил" данный макрос на кнопку. После чего потребовалось скрыть последние листы. Но макрос по переносу данных перестал действовать на скрытых листах. Что делать? Подскажите!
Форма для поиска заданного текста на текущем листе Excel с возможностью его окраски
 
Здравствуйте, уважаемые.    
Необходима форма для поиска заданного текста на текущем листе Excel с возможностью его окраски. Что-то подобное есть здесь http://excelvba.ru/programmes/SearchExcel, но мне бы хотелось быстро (без использования стандартной формы «Найти и заменить») искать и выделять (например, цветом) в очень большом двухмерном массиве ячейки с числами, точно совпадающими с теми, которые будут вводиться в созданную форму. Пожалуйста, помогите кто чем может.
Макрос для мигание ячейки, которая выделяется цветом посредством условного форматирования
 
Здравствуйте, уважаемые! Помогите, пожалуйста, решить следующую задачу. В качестве индикации нежелательных решений пользователя на листе используется прием заливки соответствующих ячеек красным цветом (посредством условного форматирования). С целью привлечения большего внимания (поскольку практика показывает, что при долгой работе с большим массивом данных можно это пропустить) хотелось бы, чтобы все красные ячейки не просто заливались данным цветом, а мигали. (Если подскажете еще и про звуковую индикацию таких событий будет вообще здорово).
Макрос автоматического копирования одного диапазона формул в другой
 
Здравствуйте, уважаемые! Нужна квалифицированная помощь по созданию макроса, который позволял бы автоматически копировать равные по величине диапазоны формул с одного листа на другой без сдвига относительно ячеек (как в функции «специальная вставка» - «формула»).    
Вкратце описываю ситуацию. Есть книга с десятком листов (см. прикрепленный файл). Структура листов одинакова и включает:  
1) большой двухмерный массив из 22-х колонок с цифрами, который копируется из соответствующей книги и является для данного листа неизменным (красные цифры);  
2) отдельный малый двухмерный массив состоящий из трех колонок, где цифры третьей колонки (синий шрифт) получаются при помощи простейшей формулы (например для ячейки R7C26  «=RC[-10]», R8C26 «=RC[-6]» и т.д.).
Необходимо чтобы на листах со второго по последний в колонке с синими цифрами автоматически задавались те же формулы, что будут задаваться в колонке на первом листе («озимая рожь»). Понимаю, что вопрос можно решить путем копирования нужного количества раз листа №1, но это не устраивает, поскольку: их надо переименовывать, менять шапки таблиц, и, самое главное, каждый раз на каждый лист копировать соответствующий большой массив (красные цифры) из соответствующих книг. Поскольку велика вероятность, что этим будут заниматься не один человек и не один год, то хотелось бы это максимально автоматизировать процесс.
Страницы: 1
Наверх