Moderatori: Anthony47, Flash30005
Nel file che ho scaricato le uniche formattazioni condizionali presenti sono quelle che evidenziano le celle di colonna E (il conteggio dei colori), quindi non so che cosa cosa contare...Ora in tutto ciò , ho adottato una formattazione Condizionale che mi evidenzi tutti i numeri corrispondenti alle celle F1:H1 - F2:H2 - F3:H3 , con Vari Colori di Fondo e di Font
Aspetta di vedere il conto!Sei proprio un Amico
Private Sub CommandButton1_Click()
Range(Range("D3"), Range("D3").End(xlDown)).Offset(0, 1).ClearContents
Range("E3").Formula = "=CountCcolor(B3:D3,F3)"
Range("E3").Copy Destination:=Range(Range("D3"), Range("D3").End(xlDown)).Offset(0, 1)
Range(Range("D3"), Range("D3").End(xlDown)).Offset(0, 1).Calculate
End Sub
Sub colNcount()
Dim myCell As Range, I As Long, LastB As Long, myTot As Long
'
LastB = Range(Range("B3"), Range("B3").End(xlDown)).Count + 2
Cells(3, "B").Resize(LastB - 2, 7).Interior.ColorIndex = xlNone
Cells(3, "B").Resize(LastB - 2, 7).Font.Color = RGB(0, 0, 0)
'
For I = 3 To LastB
myTot = 0
Cells(I, "f").Resize(1, 3).Interior.ColorIndex = 4 + (I Mod 2) * 2
For Each myCell In Cells(I, "B").Resize(1, 3)
If Application.CountIf(Cells(I, "F").Resize(1, 3), myCell.Value) > 0 Then
myCell.Interior.ColorIndex = 4 + (I Mod 2) * 2
myTot = myTot + 1
End If
Next myCell
Cells(I, "E").Value = myTot
Next I
End Sub
Private Sub CommandButton1_Click()
Call colNcount
End Sub
Torna a Applicazioni Office Windows
Ordinare colonne sulla stessa riga se stesso contenuto Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
Spostare files tramite la barra delle applicazioni Autore: nippon |
Forum: Sistemi Operativi Windows Risposte: 9 |
Visitano il forum: Nessuno e 14 ospiti