Moderatori: Anthony47, Flash30005
Sub IKWN()
Dim tArr(12 To 17)
Dim I As Long, J As Long, FlErr As Boolean, myMatch
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row
For J = 12 To 17
tArr(J) = Cells(4, J)
Next J
Range("L4:Q4").Interior.Color = xlNone
For I = 5 To lastb
If IsNumeric(Cells(I, 1).Value) Then
FlErr = False
For J = 2 To 7
myMatch = Application.Match(Cells(I, J).Value, tArr, False)
If IsError(myMatch) Then
FlErr = True
Exit For
End If
Next J
If Not FlErr Then
Range("L4:Q4").Interior.Color = RGB(255, 255, 0)
'Debug.Print I
Exit For
End If
End If
Next I
End Sub
Sub IKWNn()
Dim I As Long, J As Long, mCnt As Long, myMatch
'
lastb = Cells(Rows.Count, "B").End(xlUp).Row
Range("L4:Q4").Interior.Color = xlNone
For I = 5 To lastb
If IsNumeric(Cells(I, 1).Value) Then
Cells(I, 2).Resize(1, 6).Interior.Color = xlNone
mCnt = 0
For J = 2 To 7
myMatch = Application.Match(Cells(I, J).Value, Range("L4:Q4"), False)
If Not IsError(myMatch) Then
Cells(I, J).Interior.Color = RGB(255, 255, 0)
mCnt = mCnt + 1
End If
Next J
If mCnt <> Application.WorksheetFunction.CountA(Range("L4:Q4")) Then
Cells(I, 2).Resize(1, 6).Interior.Color = xlNone
End If
End If
Next I
End Sub
If mCnt < 2 Then
Torna a Applicazioni Office Windows
Calcolare percentuale con il punteggio raggiunto in torneo Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 8 |
Confronto più celle su più fogli con macro Autore: nima |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 43 ospiti