Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Formato Data

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Formato Data

Postdi angelo72 » 20/01/14 11:42

Buongiorno a tutti,
Ho un piccolo problema che non riesco a risolvere. Il problema in questione è la data. Cerco di spiegarmi. Dal codice sotto riportato nella inputbox io inserisco la data in questo modo: gg/mm/aaaa ma mi va a salvare nella cella K1 in formato mm/gg/aaaa. Dalle tante ricerche in rete, non sono riuscito a risolvere questo problema. Cosa mi sfugge? Dove sbaglio?
Il risultato che vorrei ottenere che se scrivo gg/mm/aaaa nella inputbox, deve riportare lo stesso risultato anche nella cella K1.
Allego il codice in questione.


Private Sub CommandButton4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim messaggio As String, titolo As String, X As String

Application.ScreenUpdating = False
messaggio = "SCRIVI LA DATA PER IL CALCOLO!!"
titolo = "CALCOLA RIPOSI E PERMESSI"
X = InputBox(messaggio, titolo)
X = UCase(X)
If X = "" Then Exit Sub
Sheets("Rossi_Mario").Select
Range("k1") = X
Call Crea2
End Sub

Grazie a tutti anticipatamente....
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04

Sponsor
 

Re: Formato Data

Postdi ricky53 » 20/01/14 16:48

Ciao,
prova in questo modo
Codice: Seleziona tutto
    Dim Messaggio As String, Titolo As String, X As String

    Application.ScreenUpdating = False
    Messaggio = "SCRIVI LA DATA PER IL CALCOLO!!"
    Titolo = "CALCOLA RIPOSI E PERMESSI"
    X = Application.InputBox(Messaggio, Titolo, , , , , , 1) ' <<===== MODIFICATA
    If X = "" Then Exit Sub
    Sheets("Rossi_Mario").Select
    Range("K1") = X
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Formato Data

Postdi angelo72 » 20/01/14 18:48

Grazie Richy,
Il problema della data con la tua modifica del codice funziona, miscrive la Data nel modo corretto.
Però c è un problema, ti spiego quale.
Quando effettuo il doppio click sul pulsante mi esce l'inputbox, dove mi chiede di inserire la Data per effettuare il calcolo.
Dopo aver inserito la Data ed effettuato il calcolo dei rip. e perm., la userform sembra bloccato.
Ho riscontrato due problemi.
Il primo che la X di chiusura posta in alto a dx è disattivato, com è disattivato anche il Pulsante per uscire dall'userform "Unload me".
Come mai?
Grazie......
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04

Re: Formato Data

Postdi angelo72 » 20/01/14 19:13

Dalle prove che ho fatto, ho riscontrato che se il codice in questione lo inserisco al CLICK di un Pulsante, va tutto a meraviglia.
Ma nel post precedente, potrai notare che il codice è abbinato ad un doppio click del pulsante e quindi non va come dovrebbe.
Comunque, possiamo lasciare così. Nel senso che ho inserito un altro pulsante per il calcolo dei rip. e perm., e al doppio click del pulsante precedente gli ho inseiro un'altro comando (Stampa). Anche se mi piacerebbe capire come mai non funziona se li assegno un doppioclick di un pulsante.
Risolto!
Grazie Ricky
angelo72
Utente Junior
 
Post: 70
Iscritto il: 28/10/13 17:04

Re: Formato Data

Postdi ricky53 » 20/01/14 21:14

Ciao,
per capire occorre un tuo file di esempio, attenzione: senza dati riservati.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Formato Data":


Chi c’è in linea

Visitano il forum: patel e 4 ospiti