Vraag : Excel VBA

Ik heb de volgende die code wordt gebruikt om een bijgewerkt werkboek automatisch met de elektronische post te versturen everytime het word gespaard aan een benoemde distributie list.

It ben mogelijk sparen om een lijst van potentiële ontvangers op te duiken die kunnen op de een of andere manier voor gecontroleerde distribution.

Private SubWorkbook_BeforeSave (ByVal SaveAsUI Van Boole, als Van Boole annuleren)
Schemerige OutApp worden getikt of worden geselecteerd aangezien Object
Schemerige OutMail als Object
Vastgestelde OutApp = CreateObject („Outlook.Application“)
Vastgestelde OutMail = OutApp.CreateItem (0)
op Fout Next
met OutMail
hervat. Aan = „[email protected]; john.doe2@hotmail.com "
.CC = ""
.BCC = ""
. Onderwerp = „het Bericht van het Rapport van de Status "
. Het lichaam is = het „Statusblad in bijlage bijgewerkte "
geweest. Attachments.Add ActiveWorkbook.FullName
. Het Eind van Send
With
op Fout GoTo 0
Vastgestelde OutMail = Nothing
Vastgestelde OutApp = Nothing
End Sub

Antwoord : Excel VBA

Ik verwijderde uw checkbox voorwerpen.  De Checkbox voorwerpen maken dit ingewikkelder dan het moet zijn.

Wat ik deed was cre�ërt een gebeurtenis Worksheet_SelectionChange die „R“ invoert als het leeg is of de input de cel als „leegmaakt R“ reeds daar is.

Ik veranderde toen de doopvont van de cellen in Webdings 2 zodat R als controledoos verschijnt.   Buig wanneer u de cel klikt het of het of uncheck het zal controleren.   Dit staat me toe om te controleren als een e-mail moet worden toegevoegd door de kolom voor een waarde van „R“ checkinging.  Hoop dit ..... steek houdt

Zie in bijlage ......

Status-Report.xls (48 KB) (de Details van het Type van Dossier) 

Klik Cellen om hen te controleren