Risultati da 1 a 8 di 8

Discussione: formattazione condizionale con icone



  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

    formattazione condizionale con icone

    Ciao a tutti
    Vorrei sapere come mai le formule della formattazione della colonna H
    se fà il confronto con le date della colonna L funziona correttamente

    se invece la formula la confronto con la colonna G Che sono state inserite tramite userform
    non funziona correttamente, eppure ho fatto attenzione di cambiare formato delle celle

    ma niente da fare
    https://www.dropbox.com/s/cdwxom5nn2...ture.xlsm?dl=0
    windows 10
    Excel 2016

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: formattazione condizionale con icone

    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    Ciao a tutti
    Vorrei sapere come mai le formule della formattazione della colonna H
    se fà il confronto con le date della colonna L funziona correttamente

    se invece la formula la confronto con la colonna G Che sono state inserite tramite userform
    non funziona correttamente, eppure ho fatto attenzione di cambiare formato delle celle

    ma niente da fare
    https://www.dropbox.com/s/cdwxom5nn2...ture.xlsm?dl=0
    perchè TextBox2 e TextBox4 della UserForm sono in formato testo, bisogna convertirle in data con:
    Codice: 
        .Range("D" & uRiga).Value = CDate(TextBox2)
        [...]
        .Range("G" & uRiga).Value = CDate(TextBox4)
    ATTENZIONE. Se le TextBox sono vuote o in un formato diverso da data il Debug si "lamenta". Per prevenire la dimenticanza, all'avvio della Userform inserisci di default:
    Codice: 
    TextBox2 = Date
    TextBox4 = Date

  3. #3
    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

    Re: formattazione condizionale con icone

    Ciao Rubik.........inserisce sempre la data di oggi.....
    e non dà nessun messaggio in caso di textbox vuote..:235:
    Codice HTML: 
    Private Sub CommandButton1_Click()
    TextBox2 = Date
    TextBox4 = Date
    Dim uRiga As Long
    
    With Foglio1
            uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
                    
                
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = TextBox1
        .Range("D" & uRiga).Value = CDate(TextBox2)
        .Range("E" & uRiga).Value = Format(TextBox3, "€##,###;-€##,###;-;@")
        .Range("F" & uRiga).Value = ComboBox2
        .Range("G" & uRiga).Value = CDate(TextBox4)
        
        
        
        Range("B10:H" & 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:H" & 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 = ""
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    
     End Sub
    
    
    Private Sub CommandButton3_Click()
    If Me.TextBox2.Value = "" Then
        MsgBox "Occorre inserire una data"
        Me.TextBox2.SetFocus
        Else
        Me.TextBox4.Value = CDate(Me.TextBox2.Value) + Me.ComboBox2.Value
    End If
    End Sub
    windows 10
    Excel 2016

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: formattazione condizionale con icone

    Certo, serve a prevenire in caso in cui si dimentica la TextBox, naturalmente la data bisogna cambiarla secondo preferenze

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  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

    Re: formattazione condizionale con icone

    Mi sono spiegato male.
    ho fatto le modifiche che mi hai suggerito ma non mi funziona
    devo aver sbagliato qualcosa
    https://www.dropbox.com/s/cdwxom5nn2...ture.xlsm?dl=0
    windows 10
    Excel 2016

  6. #6
    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

    Re: formattazione condizionale con icone

    Rubik ho ricontrollato con calma sembra funzioni abbastanza bene somme e messaggi
    però mi sono accorto che ce un errore sul formato valute
    Codice HTML: 
    .Range("E" & uRiga).Value = Format(TextBox3, "€##,###;-€##,###;-;@")
    se inserisco un numero sopra 1000 euro mi scrive 1 euro

    Codice HTML: 
    Private Sub CommandButton1_Click()
            If TextBox2 = "" Then
            MsgBox "Occorre inserire una data"
                Exit Sub
                End If
               
    Dim uRiga As Long
    
    With Foglio1
            uRiga = .Range("B" & Rows.Count).End(xlUp).Row + 1
                         
        .Range("B" & uRiga).Value = ComboBox1
        .Range("C" & uRiga).Value = TextBox1
        .Range("D" & uRiga).Value = CDate(TextBox2)
        .Range("E" & uRiga).Value = Format(TextBox3, "€##,###;-€##,###;-;@")
        .Range("F" & uRiga).Value = ComboBox2
        .Range("G" & uRiga).Value = CDate(TextBox4)
        
        Range("B10:H" & 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:H" & 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 = ""
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    
     End Sub
    
    
    
    Private Sub CommandButton3_Click()
    If Me.TextBox2.Value = "" Then
        MsgBox "Occorre inserire una data"
        Me.TextBox2.SetFocus
        Else
        Me.TextBox4.Value = CDate(Me.TextBox2.Value) + Me.ComboBox2.Value
    End If
    End Sub
    windows 10
    Excel 2016

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: formattazione condizionale con icone

    prova così:
    Codice: 
        .Range("E" & uRiga).Value = Format(TextBox3, "€#,##0.00")
    dove:
    "€" è il simbolo;
    "#" è numero facoltativo;
    "0" è numero obbligatorio
    e . (punto) e , (virgola) in VBA sono invertiti cioè si usa , (virgola) come separatore di migliaia e . (punto) come separatore di decimali.

  8. #8
    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

    Re: formattazione condizionale con icone

    Grazie rubik funziona anche la valuta

    scusa se non sono stato il massimo della tempestività nel rispondere ma il sabato e domenica
    e il giorno peggiore per impegni

    Grazie ancora per aiuto:241:
    windows 10
    Excel 2016

Discussioni Simili

  1. Formattazione Condizionale con icone
    Di Catwoman nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 17/08/16, 19:58
  2. [Risolto] formattazione condizionale
    Di FB17 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 03/03/16, 22:47
  3. Formattazione condizionale con set di icone >A1;tra A2 e A3;<A4 : come?
    Di aldomattana nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 09/01/16, 12:49
  4. Formattazione condizionale
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 28
    Ultimo Messaggio: 25/11/15, 14:59
  5. formattazione condizionale con icone
    Di cesare nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 03/10/15, 14:41

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
  •