Archivi tag: VBA

EXCEL : VBA mini progetti, come inviare una email da Excel usando Outlook

Con Excel si può spedire una email attaverso le macro. Ecco come spedire un email attraverso Outlook : Sub invia_email_CDO() variabileEmailDelDestinatario = Range(“destinatario”).Value Set VarOggApplicazioneOutlook = CreateObject(“Outlook.Application”) Set VarOggMailInOutlook = VarOggApplicazioneOutlook.CreateItem(olMailItem) VarOggMailInOutlook.To = variabileEmailDelDestinatario VarOggMailInOutlook.Subject = Range(“oggetto”).Value VarOggMailInOutlook.Body = Range(“testo”).Value VarOggMailInOutlook.Display VarOggMailInOutlook.Send End Sub

EXCEL : VBA mini progetti, una funzione per cercare dati senza CERCA.VERT

Questo mini progetto crea una funzione chiamata TrovaC composta da 3 argomenti: valore da cercare (valore testuale o numerico), dove trovarlo (range), valore da restituire (range): Function TrovaC(ByVal daCercare, dove As Range, daRestituire As Range) As Variant With Application If .CountIf(dove, daCercare) Then TrovaC = daRestituire(.Match(daCercare, dove, 0)) End If End With End Function  

EXCEL : VBA mini progetti, come inviare una email da Excel senza usare Outlook

Con Excel è potremmo spedire delle email attaverso le macro. Ecco come spedire un email senza usare Outlook Sub invia_email_CDO() Set mess = CreateObject(“CDO.Message”) Set config = CreateObject(“CDO.Configuration”) config.Load -1 ‘ CDO Source Defaults config.Fields.item(schemas.microsoft.com/cdo/configuration/sendusing)= 2 config.Fields.item(schemas.microsoft.com/cdo/configuration/smtpserver) _ = “smtp.xxx.eu” ‘metti qui il tuo server smtp ‘autentiazione 1 NONE, 2 Basic (Base64 encoded), 3 NTLM config.Fields.item(schemas.microsoft.com/cdo/configuration/smtpauthenticate) =… Leggi tutto »

EXCEL : VBA mini progetti, come incollare le formule

Spiace che Excel non abbia un’icona o una scorciatoia per incollare velocemente solo le formule di una selezione. Spesso abbiamo un foglio con una formattazione complicata e dobbiamo aggiornare le formule senza modificare il layout grafico.   Ecco quindi una macro per un Incolla Speciale / Formule: Apriamo il menu dell’editor con Ctrl+F11 Inseriamo un nuovo modulo premendo ALT + (in… Leggi tutto »

EXCEL : VBA mini progetti, come assegnare una macro a un pulsante

Come posso assegnare una macro a un pulsante ? E’ semplice, ma richiede un minimo di attenzione. Creato il pulsante (o un qualunque oggetto grafico, anche un’immagine) occorre fare un clic destro sull’oggetto e selezionare Assegna Macro. Quando l’oggetto è una casella di testo occorrerà un passaggio in più: dovremo prima fare un clic sull’oggetto e poi… Leggi tutto »