Risultati da 1 a 9 di 9

Discussione: Formattare cella come data formata personalizzato



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    26
    Likes dati
    19

    Formattare cella come data formata personalizzato

    Ciao di nuovo a tutti

    in questo file dove mi avete già aiutato a sistemare non riesco a formattare la data in maniera come voglio io.......
    in E10 è la formattazione che vorrei,
    ma dopo ogni inserimento con la userform la data me la scrive come in E11,
    Come posso correggere???

    Grazie in anticipo
    Codice HTML: 
    Private Sub CommandButton1_Click()
    Dim uRiga As Long
    
    With Foglio1
        uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
    
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = ComboBox2
        .Range("D" & uRiga).Value = ComboBox3
        .Range("E" & uRiga).Value = TextBox3
        .Range("F" & uRiga).Value = TextBox4
        .Range("G" & uRiga).Value = TextBox5
        
        Range("B10:G" & uRiga).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Range("B10:G" & uRiga).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Application.CutCopyMode = False
        Range("B10").Select
        
    End With
    
    ComboBox1 = ""
    ComboBox2 = ""
    ComboBox3 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    windows 10
    Excel 2016

  2. #2
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    26
    Likes dati
    19
    Scusate ma non mi carica allegato.....
    Praticamente vorrei come formattazzione gggg gg mmmm
    In tutta la colonna D
    windows 10
    Excel 2016

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342
    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    Scusate ma non mi carica allegato.....
    Praticamente vorrei come formattazzione gggg gg mmmm
    In tutta la colonna D
    Ciao prova a caricarlo con DropBox, Dropcanvas, Box e simili...
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3531
    Versione Office
    Excel 2013
    Likes ricevuti
    1228
    Likes dati
    1303
    Prendi spunto da questo, cambiando i riferimenti

    Codice: 
    Range("A1") = Format(TextBox1.Value, "dddd dd mmmm")

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    26
    Likes dati
    19
    Non riesco a formattare la colonna E in base al codice che mi hai suggerito
    cambiando i riferimenti

    https://www.dropbox.com/s/9r6d6xscvy...mana.xlsm?dl=0
    windows 10
    Excel 2016

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    10089
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2584
    Likes dati
    1555
    Ciao,
    prova così:

    Codice: 
    ......
    ......
    
    With Foglio1
        uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
        TextBox3 = Format(TextBox3.Value, "dddd dd mmmm")
        TextBox4 = Format(TextBox4.Value, "h.mm")
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = ComboBox2
        .Range("D" & uRiga).Value = ComboBox3
        .Range("E" & uRiga).Value = TextBox3
        .Range("F" & uRiga).Value = TextBox4
        .Range("G" & uRiga).Value = TextBox5
    
    .....
    ....
    FILE DA SCARICARE
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3531
    Versione Office
    Excel 2013
    Likes ricevuti
    1228
    Likes dati
    1303
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    prova così:

    Codice: 
    ......
    ......
    
    With Foglio1
        uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
        TextBox3 = Format(TextBox3.Value, "dddd dd mmmm")
        TextBox4 = Format(TextBox4.Value, "h.mm")
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = ComboBox2
        .Range("D" & uRiga).Value = ComboBox3
        .Range("E" & uRiga).Value = TextBox3
        .Range("F" & uRiga).Value = TextBox4
        .Range("G" & uRiga).Value = TextBox5
    
    .....
    ....
    Scusa @ges ma così stai formattando la TextBox3/TextBox4 non la cella.
    Io credo che si debba formattare la colonna E come personalizzato "gggg gg mmmm" e la colonna F come orario.
    Nella routine convertire in data le TextBox:
    Codice: 
    [...]
    With Foglio1
        uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
        'TextBox3 = Format(TextBox3.Value, "dddd dd mmmm")
        'TextBox4 = Format(TextBox4.Value, "h.mm")
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = ComboBox2
        .Range("D" & uRiga).Value = ComboBox3
        .Range("E" & uRiga).Value = CDate(TextBox3)
        .Range("F" & uRiga).Value = CDate(TextBox4)
        .Range("G" & uRiga).Value = TextBox5
    
    
    [...]
    Ma forse potrei anche sbagliare:235:

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    10089
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2584
    Likes dati
    1555
    Ciao Rubik,
    si forse è come dici tu ... anche se mi sembra che nel modo che ho fatto si ottenga lo stesso risultato.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    26
    Likes dati
    19
    Ges e Rubik Grazie a entrambi
    funziona come avevo bisogno e in più formatto anche orario
    anche se non avevo chiesto avevate gia capito come migliorare il tutto

    Veramente in grosso Grazie:28:
    windows 10
    Excel 2016

Discussioni Simili

  1. Dividere testo in una cella con formato personalizzato
    Di nino17 nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 04/03/17, 17:24
  2. [Risolto] formattare una cella in funzione di un'altra
    Di dan.ant nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 10/01/17, 14:55
  3. Formato cella personalizzato
    Di clingonboy nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/02/16, 00:56
  4. Formattare data (ggg gg mmm aa)
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 07/12/15, 15:08
  5. Formattare data e ora in una combobox
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 25/10/15, 09:16

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •