Visualizzare la data in ggmmaa

Hai un problema con Excel?

Nuova discussione

Visualizzare la data in ggmmaa
di Rotella (utente non iscritto) data: 05/06/2010
Ciao ho inserito in un form con una texbox questo codice private sub txtdata_change(). nella textbox appare la data gg/mm/aaaa ma nella tabella dove va inserita la mette mm/gg/aaaa o gia impostato le celle con valore data gg/mm/aaaa ma nulla, ditemi voi ciao
di Locate (utente non iscritto) data: 05/06/2010
Ciao rotella
devi usare la funzione format() vedi help di vba la quele ti permettere di scrivere una data o un tempo come vuoi
ciao da locate
ess Range("A1") = Format(Date, "dd/mm/yyyy") scrive in A1 giorno/mese/anno corrente

di Rotella data: 05/06/2010
Ciao locate, niente da fare sono impedito ti allego il codice prova a vedere tu se riesci a inertire la data

Private Sub CmdAnnulla_Click()
    Unload Me
    Sheets(1).Select
    Menu.Show
    Exit Sub
    End Sub


Private Sub CmdInvio_Click()
    On Error GoTo 3
    ActiveSheet.Unprotect
    
    NR = 0
    Do While Range("D" & NR + 1).Text <> ""
        NR = NR + 1
    Loop
    RigaIns = NR + 1
    
    If SwErrore = True Then
        Exit Sub
    End If
     
   'Inserimento dati
    Range("A" & RigaIns) = TxtReparto.Text
    Range("B" & RigaIns) = TxtIsola.Text
    Range("C" & RigaIns) = TxtOperatore.Text
    Range("D" & RigaIns) = TxtCodiceArticolo.Text
    Range("E" & RigaIns) = TxtDescrizione.Text
    Range("F" & RigaIns) = TxtQuantità.Text
    Range("G" & RigaIns) = TxtTipoOrdine.Text
    Range("H" & RigaIns) = TxtScartoPrevisto.Text
    Range("I" & RigaIns) = TxtMediaPrevista.Text
    Range("J" & RigaIns) = TxtCliente.Text
    Range("K" & RigaIns) = TxtNote.Text
    Range("L" & RigaIns) = TxtData.Text
    Range("M" & RigaIns) = TxtCriticità.Text
    
    
    
    'Pulisce le Textbox tranne che la data
     TxtReparto.Text = ""
     TxtIsola.Text = ""
     TxtOperatore.Text = ""
     TxtCodiceArticolo.Text = ""
     TxtDescrizione.Text = ""
     TxtQuantità.Text = ""
     TxtTipoOrdine.Text = ""
     TxtScartoPrevisto.Text = ""
     TxtMediaPrevista.Text = ""
     TxtCliente.Text = ""
     TxtNote.Text = ""
     TxtCriticità.Text = ""
    


      
    Exit Sub
3:
    If Err.Number <> 1004 Then
        Msg = "Errore " & Str(Err.Number) & " generato da " _
            & Err.Source & Chr(13) & Err.Description
        MsgBox Msg, , "Errore", Err.HelpFile, Err.HelpContext
    End If
    Exit Sub
End Sub



Private Sub TxtData_Change()

End Sub

di Ricky53 (utente non iscritto) data: 05/06/2010
Ciao,
l'istruzione corretta è questa che ti invio devi utilizzare dd/mm/yyyy perchè il "vba" utilizza, per le date, la notazione "inglese/americana"

ciao da ricky53
Range("L" & RigaIns) = Format(Me.TextBox1.Value, "mm/dd/yyyy")
di Rotella (utente non iscritto) data: 05/06/2010
Grazie ora funziona, sai come far apparire il cursore nella textbox di partenza se leggi il codice vedi che la partenza è il range d codice articolo dopo aver inserito i dati e ripulito le textbox non mi appare più il cursore devo cliccarlo con il mouse. ciao grazie
di Rotella (utente non iscritto) data: 05/06/2010
L'ultima domanda è in utile ho trovato come far apparire il cursore grazie cmq

Vuoi Approfondire?