Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Salvatore,
Come punto di partenza prova qualcosa del genere:
- Fai clic dx sulla linguetta del foglio
- Seleziona l'opzione Visualizza Codice
- Incolla il seguente codice:
=========>>
Option Explicit
'--------->>
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range
Const myCells As String = "A2:A10"
Set Rng = Me.Range(myCells)
If Not Intersect(Rng, Target) Is Nothing Then
Cancel = True
Call Tester
End If
End Sub
'<<=========
- Alt-IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Public Sub Tester()
Dim olApp As Object
Dim olNS As Object
Dim olAppointment As Object
Const olAppointmentItem As Long = 1
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
Set olApp = CreateObject("Outlook.Application")
End If
On Error GoTo XIT
If Not olApp Is Nothing Then
Set olNS = olApp.GetNamespace("MAPI")
olNS.Logon
Set olAppointment = olApp.CreateItem(olAppointmentItem)
With olAppointment
.Start = Range("A1").Value
.Subject = Range("D1").Value
.Display
End With
End If
XIT:
Set olAppointment = Nothing
Set olNS = Nothing
Set olApp = Nothing
End Sub
'<<=========
- Alt-Q per chiudere l'editor di VBA e tornare a Excel.
- Alt-F8 per aprire la finestra di gestione delle macro
- Seleziona Tester | Esegui
Per aprire il promemoria, fai doppio clic su una cella nell'intervallo A2:A10.
===
Regards,
Norman