controllo data

Question

salve a tutti,

è possibile inserire in una cella la possibilità di inserire la data dal controllo calendario?

Grazie a tutti

Answer 1

Ciao peppino38,

è possibile inserire in una cella la possibilità di inserire la data dal controllo calendario?

Prova qualcosa del genere:

• Inserire un controllo calendario, dai controlli ActiveX, sul foglio di interesse
• Fai clic dx sulla linguetta del foglio
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '=========>>

Option Explicit

'--------->>

Private Sub Calendar1_Click()

    With ActiveCell

        .Value = CDbl(Calendar1.Value)

        .NumberFormat = "mm/dd/yyyy"

        .Select

    End With

End Sub

'--------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Rng As Range

    Const mioIntervallo As String = "A1:A30"                 '<<=== Modifica

    If Target.Cells.Count > 1 Then

        Exit Sub

    End If

    Set Rng = Me.Range(mioIntervallo)

    With Calendar1

        If Not Application.Intersect(Rng, Target) Is Nothing Then

            .Left = Target.Left + Target.Width - Calendar1.Width

            .Top = Target.Top + Target.Height

            .Visible = True

            .Value = Date

        ElseIf .Visible Then

            .Visible = False

        End If

    End With

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Cliccando su una cella nell'ontervallo interessato, (diciamo) A10, se vedrebbe qualcosa del genere:

Potresti scaricare il mio file di esempio Peppino20170111.xlsm a:

https://www.dropbox.com/s/dd8a3scg965ovbi/Peppino20170111.xlsm?dl=0

===

Regards,

Norman