Вопрос : Эксел VBA

Я имею следующий Кодего быть использованным автоматически для того чтобы посылать обновленный workbook по электронной почте everytime он сохранен к назначанному распределению list.

It по возможности на за исключением хлопнуть вверх список потенциальных получателей можно тикать или как-то выбрано для контролируемого
distribution.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI как булевского, Cancel как булевско) затемните OutApp по мере того как Object
затемняет OutMail по мере того как Object
установленное
установленное 0)
OutMail OutApp = CreateObject («Outlook.Application») = OutApp.CreateItem (на резюме Next
ошибки с OutMail
. К = «[email protected]; john/>.doe2@hotmail.com " .CC =
"" .BCC =
"". Вопрос = «
извещения данных о состоянии ". Телом = «прикрепленный лист состояния было обновленное "
. Attachments.Add ActiveWorkbook.FullName
. Конец With
Send
на ошибке переход 0
установленных OutMail = Nothing
установленных OutApp = Nothing
End Sub class=

Ответ : Эксел VBA

Я извлекал ваши предметы checkbox.  Предметы Checkbox делают это осложненное чем для этого нужно быть.

Я сделал было создает случай Worksheet_SelectionChange inputs «r» если он пуст или входной сигнал опорожняет клетку, то если «r» уже там.

Я после этого изменил купель клеток к Webdings 2 так, что r покажет вверх как коробка проверки.   Обхватывайте когда вы щелкнете клеткой, котор они или проверят ее или uncheck оно.   Это позволяет меня проверить если электронная почта нужно быть добавленным путем checkinging колонка для значения «r».  Понадейтесь что это делает чувство .....

См. прикреплено ......

Status-Report.xls (48 KB) (тип архива детали) 

Клетки щелчка, котор нужно проверить их