Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
ciao a tutti
vorrei velocizzare l'immissione di date in un foglio di excel e ho pensato a 2 soluzioni:
cosa mi suggerite?
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Ma stai seguendo la procedura qui sotto(in inglese)?
E, come ti è già stato consigliato, c'è anche questo:
o la semplice, banale UserForm proposta nel mio (lontano....) primo post:
Ciao gtsolid,
vorrei velocizzare l'immissione di date in un foglio di excel e ho pensato a 2 soluzioni:
- al posto di scrivere 09/07/2016 vorrei scrivere 09072016 e il programma dovrebbe in automatico riconoscere la data.
- quando una cella è selezionata, combinazione di tasti e che compaia un calendario da cui scegliere una data.
cosa mi suggerite?
Ti sconsiglio il primo approccio.
Prova ad inserire un controllo calendario, dai controlli ActiveX, sul foglio e nel modulo di codice del foglio. incolla il segente 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
'<<=========
Cliccando sulla cella (diciamo) A10, se vedrebbe qualcosa del genere:
Potresti scaricare il mio file di esempio Gtsolid20160709.xlsm a:
https://www.dropbox.com/s/69cio917kh4twrm/Gtsolid20160709.xlsm?dl=0
===
Regards,
Norman
Ciao Casanmaner,
Pur congratulandomi con te per i tuoi buoni propositi, diligenza e perseveranza, credo che una versione del codice non suscettibile a bug sia una chimera. Tuttavia, anche se fosse possibile ottenere un codice robusto e resistente, a parte un esercizio accademico, non penso che valga la pena in quanto ci siano soluzioni affidabili e facile da implementare.
===
Regards,
Norman
E volendo si potrebbe inserire Exit Function prima di "Esci:" ed eliminare la condizione If Err.Number <> 0 Then ... :-)
La riporto come l'ho corretta (ho anche modificato Esci in DataNonValida per mia maggiore comprensione e sostituito Empty con VbNullString per uniformità):
'Modulo1
Option Explicit
'<--- Funzione che converte una stringa di testo ddmmaa o ddmmaaa in una data --->
'<--- Una prima condizione è che le celle dove vengono inserite le date siano in formato testo --->
'<--- Una seconda condizione è che le date in "formato breve" siano sempre inserite digitando: _
- ggmmaa (es. 010116 per la data 01/01/2016) _
- ggmmaaaa (es. 01012016 per la data 01/01/2016) _
Un inserimento differente dalle due suddette modalità dà luogo ad un errore di data non valida _
E ' sempre possibile inserire le date in modalità classica (gg/mm/aa, gg/mm/aaaa)
'<--- la funzione potrebbe essere utilizzata per textbox presenti nel foglio o in una userform --->
'<--- in tal caso già la text box restituisce una stringa di testo --->
Public Function FunctionDataBreve(StringaData As String) As String
Dim GG As String, MM As String, AA As String
Dim PrefissoAnnoBreve As String
Dim Data As Date
Dim NunChrAnno As Integer
If StringaData = "" Then FunctionDataBreve = vbNullString: Exit Function
On Error GoTo DataNonValida
If Not IsDate(StringaData) Then
If Len(StringaData) <> 6 And Len(StringaData) <> 8 Then
MsgBox "Data non valida", vbExclamation, "Data"
FunctionDataBreve = vbNullString
GoTo DataNonValida
End If
If Len(StringaData) = 6 Then
NunChrAnno = 2
ElseIf Len(StringaData) = 8 Then
NunChrAnno = 4
End If
GG = Mid(StringaData, 1, 2)
MM = Mid(StringaData, 3, 2)
If MM < 1 Or MM > 12 Then GoTo DataNonValida
AA = Mid(StringaData, 5, NunChrAnno)
If Len(AA) = 2 Then
If AA >= "00" And AA <= 29 Then
PrefissoAnnoBreve = "20"
Else
PrefissoAnnoBreve = "19"
End If
End If
AA = PrefissoAnnoBreve & AA
Data = CDate(GG & "/" & MM & "/" & AA)
Else
Data = CDate(StringaData)
End If
FunctionDataBreve = Format(CDate(Data), "dd/mm/yyyy")
Exit Function
DataNonValida:
MsgBox "Data non valida", vbExclamation, "Data"
FunctionDataBreve = vbNullString
End Function
E perché non gmaaaa. Se è breve(l'immissione) che sia breve... ;-)
Le date non sono una cosa semplice da gestire. Devi dare all'utente qualcosa di chiaro per inserirle correttamente nel formato che vuoi tu o meglio, corretto per Excel (fatto salvo l'errore di data sbagliata).
Sinceramente, non capisco neppure la domanda iniziale dell'OP.
Fra 01/01/16 (o 1/1/16, 01-01-16, 1-1-16) oppure 01012016 con tutto l'ambaradan di funzioni o altro, non vedo grandi differenze.
My two cents, eh.