Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    Formattazione condizionale

    Ciao a tutti.
    Avrei bisogno di creare una regola con la formattazione condizionale che mi permetta di colorare tutte le celle comprese tra due valori che voglio io.
    Mi spiego con esempio

    A B C D
    1 | 0 | 0 | 0
    0 | 0 | 0 | 0
    0 | 0 | 1 | 0

    Vorrei colorare tutte le celle comprese fra i due uno, quindi
    A1,B1,C1,
    A2,B2,C2
    A3,B3,C3

    Qualcuno sa aiutarmi?

  2. #2
    Utente di HTML.it L'avatar di nicola75ss
    Registrato dal
    Nov 2004
    Messaggi
    12,923
    Ma all'interno del range saranno sempre solo due gli 1?
    E' possibile che sulla stessa riga sia B che C ad esempio assumano valore 1?

  3. #3
    E' solo un esempio eh XD
    Serve per far capire che ci saranno due identificatori che indicano qual è la zona da racchiudere, che è una in tutto il foglio!

    (in poche parole, devo formattare un rettangolo dentro a due caselle che devo cercare nel foglio)

  4. #4
    Utente di HTML.it L'avatar di nicola75ss
    Registrato dal
    Nov 2004
    Messaggi
    12,923
    Verifica con calma che non mi sia sfuggito qualcosa visto che te l'ho scritta di getto.

    codice:
    Option Base 0
    Option Explicit
    
    Sub seleziona()
    On Error Resume Next
    Dim i As Integer
    Dim cella As Range
    Dim limiti() As Variant
    Dim selezione As Range
    Dim identificatore As String
    ActiveSheet.Cells.ClearFormats
    i = 0
    
    Set selezione = Application.InputBox(Prompt:="Seleziona intervallo", Title:="Mio range", Type:=8)
    
    If (selezione Is Nothing) = False Then
        identificatore = Application.InputBox(Prompt:="Inserisci delimitatoree", Title:="Identificatore", Type:=2)
            For Each cella In selezione
                 If i <= 1 Then
                    If cella.Value = identificatore Then
                    ReDim Preserve limiti(0 To i)
                    limiti(i) = cella.Address
                    i = i + 1
                End If
                Else
                    Exit For
                End If
            Next cella
    End If
    ActiveSheet.Range(limiti(0) & ":" & limiti(1)).Interior.ColorIndex = 4
    End Sub

  5. #5
    Semplicemente perfetto.
    Non so davvero come ringraziarti!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.