Moderatori: Anthony47, Flash30005
Sub Occorr()
UR = Range("A" & Rows.Count).End(xlUp).Row
Columns("B").ClearContents
Riga1 = 0
Riga2 = 0
For RR = 1 To UR
If Range("A" & RR).Value = 0 Then
Riga1 = RR
Riga2 = 0
Else
If Riga1 > 0 And (Range("A" & RR).Value = 5 Or Range("A" & RR).Value = -5) Then
Riga2 = RR
Range("B" & RR).Value = Riga2 - Riga1
Riga1 = 0
End If
End If
Next RR
End Sub
=SE(CONTA.SE(A$1:A1;0)>0;SE(E(ASS(A1)=5;(CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=0;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));5)+CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=0;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));-5))=1);1;0);0)
=SOMMA(C:C)
Sub Occorr2()
UR = Range("A" & Rows.Count).End(xlUp).Row
Columns("B").ClearContents
Riga1 = 0
Contatore = 0
For RR = 1 To UR
If Range("A" & RR).Value = 0 Then
Riga1 = RR
Else
If Riga1 > 0 And (Range("A" & RR).Value = 5 Or Range("A" & RR).Value = -5) Then
Contatore = Contatore + 1
Range("B" & RR).Value = Contatore
Riga1 = 0
End If
End If
Next RR
End Sub
=SE(CONTA.SE(A$1:A1;0)>0;SE(E(ASS(A1)=$F$1;(CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=0;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));$F$1)+CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=0;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));-$F$1))=1);1;0);0)
=SE(CONTA.SE(A$1:A1;$G$1)>0;SE(E(ASS(A1)=$F$1;(CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=$G$1;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));$F$1)+($F$1<>0)*CONTA.SE((INDIRETTO("A"&MAX(SE(A$1:A1=$G$1;RIF.RIGA(A$1:A1);""))&":A"&RIF.RIGA()));-$F$1))=1);1;0);0)
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 56 ospiti