Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

cambio colore riga a rottura di codice

  1. #1
    superketto non è in linea Novello
    Salve mi stò cimentando con un pò di vba

    io ho un foglio di questo tipo:

    a001
    a002
    a002
    a003
    a003
    a003
    a004

    e via andare

    vorrei che le righe appartenenti allo stesso codice abbiano lo stesso colore

    a001 rossa
    a002 blu
    a002 blu
    a003 rossa
    a003 rossa
    a003 rossa
    a004 blu


    Sub colore()
    
    Dim inizio As String
    Dim fine As String
    Dim cellcur As String
    Dim cellprec As String
    
    Dim colcur As Long
    Dim colprec As Long
    
    colcur = RGB(0, 0, 255)
    colprec = RGB(255, 0, 0)
    
    inizio = 1
    fine = 7
    
    cellprec = Cells(1, 1).Value
    
    For i = inizio To fine
        
        cellcur = Cells(i, 1).Value
        
        If cellcur = cellprec Then
        
            Cells(i, 1).Interior.Color = colcur
            
        Else
        
            Cells(i, 1).Interior.Color = colprec
            colcur = colprec
            
        End If
        
        cellprec = cellcur
    Next i
    
    
    End Sub
    
    per ora ho scritto questo codice ma non sembra funzionare a dovere, sapete darmi una mano?
    grazie

  2. #2
    GiuseppeMN non è in linea Scribacchino
    Buona sera, Superketto;
    nel Tuo Codice controllerei la definizione delle Variabili
    - inizio
    e
    - fine
    Sono state definite String, ma, in realtà, sono Valori numerici.

    Ho pasticciato un pò il Tuo Codice in questo modo:
    Option Explicit
    
    Sub colore()
    Dim inizio As Byte
    Dim fine As Long, Col As Long, i As Long
        
        inizio = 2
        fine = Range("A" & Rows.Count).End(xlUp).Row
            Col = RGB(0, 0, 255)
                Cells(1, 1).Interior.Color = Col
        For i = inizio To fine
            If Cells(i, 1) = Cells(i - 1, 1) Then
                Cells(i, 1).Interior.Color = Col
            Else
                If Col = RGB(0, 0, 255) Then
                    Col = RGB(255, 0, 0)
                Else
                    Col = RGB(0, 0, 255)
                End If
                Cells(i, 1).Interior.Color = Col
            End If
        Next i
    End Sub
    
    Poi vedi Tu.


    A disposizione.

    Buona serata.

    Giuseppe

  3. #3
    superketto non è in linea Novello
    Quote Originariamente inviato da GiuseppeMN Visualizza il messaggio
    Buona sera, Superketto;
    nel Tuo Codice controllerei la definizione delle Variabili
    - inizio
    e
    - fine
    Sono state definite String, ma, in realtà, sono Valori numerici.

    Ho pasticciato un pò il Tuo Codice in questo modo:
    Option Explicit
    
    Sub colore()
    Dim inizio As Byte
    Dim fine As Long, Col As Long, i As Long
        
        inizio = 2
        fine = Range("A" & Rows.Count).End(xlUp).Row
            Col = RGB(0, 0, 255)
                Cells(1, 1).Interior.Color = Col
        For i = inizio To fine
            If Cells(i, 1) = Cells(i - 1, 1) Then
                Cells(i, 1).Interior.Color = Col
            Else
                If Col = RGB(0, 0, 255) Then
                    Col = RGB(255, 0, 0)
                Else
                    Col = RGB(0, 0, 255)
                End If
                Cells(i, 1).Interior.Color = Col
            End If
        Next i
    End Sub
    
    Poi vedi Tu.


    A disposizione.

    Buona serata.

    Giuseppe

    Perfetto proprio quello che stavo cercando... Grazie Giuseppe molto gentile. Buona serata

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Cambio colore pulsante
    Da Dadodado nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 10-05-2020, 22:05
  2. cambio colore textbox
    Da frugo nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 17-10-2014, 16:41
  3. Cambio colore celle
    Da tonyo_70 nel forum Microsoft Excel
    Risposte: 66
    Ultimo Post: 24-03-2013, 12:27
  4. Record - cambio colore
    Da Fabio63 nel forum Microsoft Word
    Risposte: 5
    Ultimo Post: 17-12-2007, 17:02
  5. Excel: cambio colore cella
    Da Wizard nel forum Microsoft Excel
    Risposte: 6
    Ultimo Post: 05-09-2005, 18:34