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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    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à
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    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...

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2823
    Versione Office
    Excel 2013
    Likes ricevuti
    1025
    Likes dati
    983
    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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    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à
    53
    Messaggi
    7166
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1305
    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à
    45
    Messaggi
    2823
    Versione Office
    Excel 2013
    Likes ricevuti
    1025
    Likes dati
    983
    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à
    53
    Messaggi
    7166
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1305
    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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    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, 18: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, 15:55
  3. Formato cella personalizzato
    Di clingonboy nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/02/16, 01: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, 16: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, 10: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
  •