VBA Excel. Содержание рубрики

Спасибо, Евгений! Имеется в Excel столбец с включённым автофильтром. Можно ли программно запустить окно фильтра для выбора значений? Т.е. не руками нажимать на иконку фильтра, а заставить окно открываться с помощью макроса. Спасибо за ответ.

Спасибо за достаточно полную информацию.
Был бы очень вам признателен, если бы вы подсказали:
как изменить ширину блоков верхнего колонтитула.
«Введена слишком длинная строка. Уменьшите число знаков.»
При изменении шрифта с полужирного на обычный всё нормально
воспринимается,
Прошу прощения, если не по адресу.

Здравствуйте, помогите, пожалуйста, решить задачу((

Разработать программу «Кредитный калькулятор» для расчета выплат по кредиту в условиях начисления процентов по аннуитетной схеме постнумерандо. Форма должна предусматривать ввод:
1) сумма кредита, допустимы 2 знака после запятой;
2) процентная ставка (годовая), допустимы 2 знака после запятой;
3) количество периодов (месяцев), целое положительное число.
Также форма должна содержать две кнопки:
1) «Ok» (выполнить расчет, заполнить лист Excel, освободить форму и закончить работу программы);
2) «Отмена» (освободить форму и закончить работу программы).
На лист Excel следует вывести 5 колонок:
1) номер периода;
2) остаток кредита;
3) сумма процентов за пользование кредитом, подлежащая к оплате;
4) сумма погашения основного долга (кредита);
5) общая сумма выплат за период.
Форма должна быть открыта из макроса «main» и там же освобождена по завершению своего использования. Форма должна содержать только код работы с формой и ввода данных. Логика верификации данных должна быть, по возможности, отделена от кода формы. Бизнес-логика обязательно должна быть отделена от кода формы.

Добрый день. Евгений, вы бываете тут?

Добрый день, Евгений!
Разрабатываю учет договоров. Имеется ЛИСТ БАЗА. Есть такая задача: При вызове номера договора, в соответствующих полях UserForm отражается текущая информация по договору : ФИО, Сумма договора и Сумма по факту.
Далее , делается некий расчет по Вариантам 1 и 2.
Данные этого процесса при клике кнопки ДОБАВИТЬ ЗАПИСЬ необходимо на листе БАЗА, в таблице, внести в ячейки ТОГО ДОГОВОРА, НОМЕР КОТОРОГО БЫЛ ВЫЗВАН. А именно: ячейки в столбцах 37,38,39,40.
И этот процесс необходим всякий раз ,когда производятся расчеты по вариантам 1 и 2 по любому договору из листа БАЗА.
Сам сделал: при клике ДОБАВИТЬ НОВЫЙ КЛИЕНТ вставляется новая строка и в нее добавляются в эти ячейки необходимая инфо. А при клике ДОБАВИТЬ ЗАПИСЬ-нет, не получается. Мое мнение-что-то я не так делаю с переменными.
Пробовал сам найти решение- не получается. Искал инфо- результат=0. Подскажите в чем тут загвоздка? Если понадобится могу выслать файл.

Option Explicit
Dim ShDog As Worksheet
Dim DogListObj As ListObject
Dim DogListRow As ListRow

Sub RastorgjenieDog() 'добавление информации о расторжении в нужный договор
Dim Cell As Range

Set ShDog = ThisWorkbook.Worksheets("БАЗА") ' выход на лист с "Умной" таблицей
Set DogListObj = ShDog.ListObjects("УчетДоговоров_tb") ' выход на "Умную" таблицу
'Set DogListRow = DogListObj.ListRows. ' видимо проблема с созданием переменной((
Set Cell = DogListObj.ListColumns.Item(7).Range.Find(Form_BAKU.NDogRastr.Value, LookAt:=xlWhole) ' поиск № договора в столбце

If Not Cell Is Nothing Then 'Если найден Номер Договора
DogListRow.Range(37) = Form_BAKU.AmountDogFaktRastr.Value ' вставка значений из UserForm в ячейки листа "БАЗА" ' видимо проблема с созданием переменной((
DogListRow.Range(38) = Form_BAKU.PercentRastrAmountDog.Value
DogListRow.Range(39) = Form_BAKU.AmountRastrAmountDog.Value
DogListRow.Range(40) = Form_BAKU.PercentAmountDogFaktRastr.Value
DogListRow.Range(41) = Form_BAKU.AmountRastrFaktAmountDog.Value
DogListRow.Range(42) = Form_BAKU.SumKlientyPosleRastr.Value
End If
End Sub