Formato inserimento inputbox

Hai un problema con Excel?

Nuova discussione

Formato inserimento inputbox
di katx00 data: 21/04/2016 10:25:15
Buongiorno,
ho una inputbox in cui deve essere inserita una data nel formato gg.mm.aaaa.
Il formato della data deve essere necessariamente questo in quanto parte del nome di file che devo importare.
Ho impostato una data "di default" in maniera tale che l'utente possa capire qual è il formato esatto ma cerco un metodo veloce e pratico per fare in modo che se la data inserita non è nel "formato" giusto, non mi faccia l'intero processo ma dia un errore.
Grazie mille a chi risponderà
data = InputBox("Indicare la data ", "Data", "20.04.2016") nomef(n) = "Risultati " & data
di alfrimpa data: 21/04/2016 10:53:25
Ciao katx00

Non ho bel capito la tua domanda.

La InputBox restituisce un valore String per cui se tu scrivi la data in formato "gg.mm.aaaa" restituisce una stringa con quel formato.

Prova a spiegarti meglio magari allegando un pile di esempio con il risultato che vuoi ottenere.

Alfredo
di katx00 data: 21/04/2016 12:36:30
Non parlo dell'output ma dell'input.
Indendo dire che l'utente non deve poter inserire "21/04/2016" ma esclusivamente "21.04.2016"
L'output mi serve come stringa, ed infatti così me lo ritorna.
Grazie

Michele

di Luca73 data: 21/04/2016 12:57:22
Ciao Io farei qualcosa del tipo sotto riportato.
Leggo la stringa, la verifico in caso di errore faccio rifare un loop di richiesta input.

E' un po' arzigogolato... sicuramente i guru del forum riescono a fare di meglio.

Ciao
Luca

Sub mia()
Dim data
Dim Stringa
Dim esempio
Stringa = ""
esempio = Format(Date, "dd.mm.yyyy")
Do
    data = InputBox(Stringa & "Indicare la data ", "Data", esempio)
    
    Stringa = ""
    On Error GoTo GestioneErrori1
    data = Format(CDate(Replace(data, ".", "/")), "dd.mm.yyyy")
Loop Until Stringa = ""
On Error GoTo 0


MsgBox data

Exit Sub
GestioneErrori1:
Stringa = "Valore immesso non corretto riprova" & vbCrLf & "deve essere immesso nel formato: " & Format(Date, "dd.mm.yyyy") & vbCrLf & vbCrLf
esempio = data
Resume Next
End Sub

Vuoi Approfondire?