Добрый день!

Программирование на VBA осваиваю методом научного тыка.
Есть программа, на форме куча кнопок, которые по нажатию скрывают определенные строки в таблице.
При этом есть определенная зависимость, если включены одни кнопки, то некоторые другие должны быть неактивны и наоборот.
Вот пример кода только для одной кнопки, а их два десятка, соответственно огромное кол-во кода. Думаю можно как-то решить вопрос по-другому, но моих знаний не хватает, прошу помощи.

Добрый день!

Есть шаблон Word, обычное коммерческое предложение - вверху листа шапка с наименованием организации, внизу условия поставки. Это стандартно.
Есть файлы Excel с расчетами, в них стандартная таблица, определенного размера.
Необходимо, чтобы при запуске макроса Word, в указанное место в шаблоне поочередно скопировались все таблицы из файлов Excel, лежащих в этой же папке. Одна за одной, очередность не важна (таблиц может быть от одной до нескольких десятков).

Идеальный вариант:
1) Чтобы перед началом копирования, можно было выбрать какие именно эксель-файлы брать и из какого каталога.
2) После копирования просуммировать значения последних ячеек каждой таблицы и записать сумму ниже в шаблоне.

Жду Ваших мыслей и предложений.
Достойное решение готов оплатить.

Добрый день!

Ситуацию следующая - есть именованный диапазон, макрос выделяет его и копирует в буфер.
Проблема в том, что некоторые части этого диапазона могут быть скрыты, получается выделяется только то, что не скрыто в данный момент.
Мне нужно, чтобы после того как видимая часть выделилась, уменьшить размер этого выделения ровно на одну строку сверху. Т.е. из выделения убрать самую верхнюю видимую строку.

Буду благодарен за помощь.
Пример к сожалению пока нет возможности выложить.

Добрый день!

Только начинаю изучать циклы, а сейчас уже есть конкретная задача. Хотел бы на конкретном примере разобрать.
На одном листе у нас есть диапазон определенного размера (1 столбец, 10 строк). В нем находятся номера строк, которые необходимо скрыть на листе 2.
Нужно чтобы цикл прошелся по диапазону и скрыл эти строки на втором листе. Пустые ячейки пропускаем. В ячейке может быть либо номер строки либо пусто, другого не дано.

Как скрыть нужную строку я знаю, а вот перебрать циклом пока не получается.

Буду благодарен за помощь.

Добрый день!

Ситуация следующая - в файле вызываются формы, одна сочетанием клавиш "Ctrl-Backspace", вторая "Shift-F1".
Все срабатывает, но после закрытия формы, открывается приложение (видимость приложения отключается на момент показа формы) и иногда (1 из 10 раз где-то) если начинаешь работать с таблицей, видно что залипла клавиша Ctrl или Shift (в зависимости какая комбинация нажималась ранее). Например крутишь колесом мыши и вместо прокрутки окна изменяется масштаб и т.п. Проблема исчезает при однократном нажатии клавиши Ctrl или Shift соответственно.
Как избавиться от этой проблемы?

Private Sub Workbook_Activate()
Application.OnKey Key:="^{BACKSPACE}", Procedure:=Me.CodeName & ".UserForm_Show"
Application.OnKey Key:="+{F1}", Procedure:=Me.CodeName & ".UserForm3_Show"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey Key:="^{BACKSPACE}"
Application.OnKey Key:="+{F1}"
End Sub

Private Sub UserForm_Show()
Application.Visible = False
UserForm1.Show

End Sub


Private Sub UserForm3_Show()
UserForm3.Show
End Sub

Во вложении пример. Не обращайте внимание на мертвые ссылки, т.к. я удалил все остальные листы (данные конфиденциальны). Все что нужно здесь работает.
Нужно нажать CTRL-Backspace, выскочит форма, где нужно выбрать любые другие кнопки и закрыть ее. Потом сразу же покрутить колесом. Через 4-5 попыток (нажатия гор.клавиш) происходит залипание, независимо от выбранных кнопок или еще чего и вместо прокрутки окна происходит прокрутка масштаба, пока не нажмешь Ctrl.

Добрый день!

Ситуация следующая - в файле вызываются формы, одна сочетанием клавиш "Ctrl-Backspace", вторая "Shift-F1".
Все срабатывает, но после закрытия формы, открывается приложение (видимость приложения отключается на момент показа формы) и иногда (1 из 10 раз где-то) если начинаешь работать с таблицей, видно что залипла клавиша Ctrl или Shift (в зависимости какая комбинация нажималась ранее). Например крутишь колесом мыши и вместо прокрутки окна изменяется масштаб и т.п. Проблема исчезает при однократном нажатии клавиши Ctrl или Shift соответственно.
Как избавиться от этой проблемы?

Private Sub Workbook_Activate()
Application.OnKey Key:="^{BACKSPACE}", Procedure:=Me.CodeName & ".UserForm_Show"
Application.OnKey Key:="+{F1}", Procedure:=Me.CodeName & ".UserForm3_Show"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey Key:="^{BACKSPACE}"
Application.OnKey Key:="+{F1}"
End Sub

Private Sub UserForm_Show()
Application.Visible = False
UserForm1.Show
End Sub


Private Sub UserForm3_Show()
UserForm3.Show
End Sub