Использование сложной функции If Then со многими ElseIf

Функция If ElseIf  d VBA работает точно также как и в ООО, только со другими именами объектов:

Sub DellCell()
n = Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
For I = n To 2 Step -1
text1 = Cells(I, 8)
If Left(text1, 12) = "Производство" Then
Cells(I, 3) = ""
Cells(I, 5) = ""
Cells(I, 6) = ""
Cells(I, 7) = ""
ElseIf Left(text1, 7) = "Пекарня" Then
Cells(I, 4) = ""
Cells(I, 5) = ""
Cells(I, 6) = ""
Cells(I, 7) = ""
ElseIf Left(text1, 8) = "Столовая" Then
Cells(I, 3) = ""
Cells(I, 4) = ""
Cells(I, 6) = ""
Cells(I, 7) = ""
End If
Next I
End Sub

Комментарии

Отправить комментарий

Популярные сообщения из этого блога

Запуск макросов в автоматическом режиме по расписанию

Изображение
При наличии множества пакетных обработок файлов может быть очень удобным назначить им автоматическое выполнение по расписанию. Пакетные обработки могут выполняться через интервалы, друг за другом, без участия пользователей (в ночное время при включенном ПК). Это избавляет от необходимости присутствия оператора для запуска обработок, экономит время на их ожидание. Можно сделать так, что к началу рабочего дня обработчики уже создадут готовые отчеты и пользователям останется только проверить их. Автоматический запуск из закрытого Excel не возможен. Из ситуации есть два выхода - оставить открытой книгу Excel из которой будут вызываться обработки по расписанию либо воспользоваться внешним vbs-скриптом для этой задачи. который сам по сути является макросом. Макросы для планировщика придется немного изменить - нужно создавать их так, чтобы макрос не запрашивал никаких дополнительных окон и не просил от пользователя никаких действий. Т.е. если применяется пакетная обработка, то в коде макрос
Далее...

Пакетная обработка отчетов

Изображение
В задачах автоматизации массовых обработок часто стоит задача обработки множества отчетов однотипным образом (разные подразделения, филиалы). Чтобы не обрабатывать каждый такой отчет отдельно можно создать типовой обработчик одного файла, а затем вставить его в процедуру обработки множества файлов. Приведем пример. Нам нужно обработать файлы Продажи блюд производства с отгрузками по 20-ти ГМ. Их можно выгрузить в одну папку, добавив в конце имени файла название города или ГМ и запустить макрос, который обработает все 20 файлов без участия пользователя. Ранее мы уже разработали обработчик одного файла под названием Simple_Relise. Теперь Необходимо вставить его в макрос, который пройдет по всем файлам в папке и применит к ним этот обработчик. Приведем код. Запускать его нужно из любого файла НЕ находящегося в этой папке. Sub ГрупповаяОбработка()     ' запрашиваем пути к папкам с файлами, функция открывает окно выбора папки     InvoiceFolder$ = GetFolderPath     Dim coll A
Далее...

Отправка отчетов по электронной почте

Несмотря на широкую распростаненность и популярность Excel отправка электронных писем из него весьма не типична и не удобна. Без MS Outlook очень ограниченна. Есть некоторые устаревшие методы полноценной отправки, правда они не оставляют копий таких писем, требуют указания в коде программы личных данных почты и паролей, что может быть небезопасно. Поэтому рассмотрим только один подходящий пример отправки письма через используемый нами Mozilla Thunderbird (в VBA нет понятия почтового клиента по умолчанию в отличие от OOO, поэтому отправка из него настолько затруднена). Sub SMail() Dim addrRassl ' Пишем адрес, на который хотим отправить, можно указать несколько через массив или 'оставить поле пустым addrRassl = "example@mail.ru" Dim oShell Dim oThisBook As Workbook Set oThisBook = ThisWorkbook 'Определяем полный адрес вызова программы почтового клиента 'На вашем компьютере (в вашей системе) он может быть другим ' Указываем тему сообщения с текуще
Далее...