Moderatori: Anthony47, Flash30005
=CORRELAZIONE(SCARTO(A1;F1;0;G1;1);SCARTO(B1;F1;0;G1;1))
Sub corremax()
Dim ScUno As Range, ScDue As Range, Altz As Range, CorCel As Range
Dim OrigA As Range, OrogB As Range, LastR As Single, FreCells As Range
Dim CurCor As Double
Set OrigA = Range("A1") 'Prima origine dati
Set OrigB = Range("B1") 'Seconda origine dati
Set ScUno = Range("F1") 'Primo Offset
Set ScDue = Range("I1") 'Secondo Offset
Set Altz = Range("G1") 'Altezza dei range da correlare
Set CorCel = Range("AF8") 'La cella con la formula CORRELA
Set FreCells = Range("AF1") 'pointer a tre celle libere adiacenti
Application.ScreenUpdating = False
LastR = Cells(Rows.Count, OrigA.Column).End(xlUp).Row
For I = 0 To LastR - Altz - OrigA.Row + 1
ScUno.Value = I
OrigA.Offset(ScUno, 0).Select
For J = 0 To LastR - Altz - OrigA.Row + 1
ScDue.Value = J
'OrigB.Offset(ScDue, 0).Select
If CorCel.Value > CurCor Then
CurCor = CorCel.Value
FreCells.Value = I: FreCells.Offset(0, 1) = J
FreCells.Offset(0, 2) = CurCor
End If
Next J
Next I
FreCells.Select
Application.ScreenUpdating = True
End Sub
Set OrigA = Range("A2") 'Prima origine dati
Set OrigB = Range("B2") 'Seconda origine dati
Dim CurCor
For I = 0 To LastR - Altz - OrigA.Row + 1
ScUno.Value = I
OrigA.Offset(ScUno, 0).Select
'For J = 0 To LastR - Altz - OrigA.Row + 1
'ScDue.Value = J
'OrigB.Offset(ScDue, 0).Select
If CorCel.Value > CurCor Then
CurCor = CorCel.Value
FreCells.Value = I: FreCells.Offset(0, 1) = J
FreCells.Offset(0, 2) = CurCor
End If
'Next J
Next I
For I = range(OrigA).row -1 To LastR - Altz - OrigA.Row + 1
For J = range(OrigB).row -1 To LastR - Altz - OrigA.Row + 1
If iserror(CorCel.value) Then PLM=0 else PLM=CorCel.value
If PLM > CurCor Then
AAAA=LastR - Altz - OrigA.Row + 1
JSi = Val(Range("J1").Value) > 0 '<<<<ADD; J1 e' la cella flag
Application.ScreenUpdating = False
LastR = Cells(Rows.Count, OrigA.Column).End(xlUp).Row
If JSi then LastJ= LastR - Altz - OrigA.Row + 1 else LastJ=0 '<<<<ADD
For I = 0 To LastR - Altz - OrigA.Row + 1
ScUno.Value = I
OrigA.Offset(ScUno, 0).Select
For J = 0 To LastJ '<<<<MOD
If JSi then ScDue.Value = J '<<<<MOD
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 88 ospiti