Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

contare le sequenza di un evento V

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

contare le sequenza di un evento V

Postdi raimea » 09/02/20 10:53

ciao
tramite una macro vorrei conteggiare quante volte
si e' presentata la stessa sequenza di V nella colonna L

partendo dalla riga 8 fino all 'ultima riga ,
che sara sempre piu in basso col passare del tempo

la sequenza in col L si interrompe quando trova una cella vuota.

quindi vorrei sapere :
quante volte c'e stata 1na sola V ?
quante volte ci sono state 2 V consecutive ?
quante volte ci sono state 3 V consecutive ?

e scrivere i risultati in col S
a fianco del relativo numero

Immagine

https://www.dropbox.com/s/olytezcooxd2ga5/bot_radar_20%20-%20Copia.rar?dl=0



vi allego il file

grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1204
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: contare le sequenza di un evento V

Postdi Anthony47 » 09/02/20 16:23

Probabilmente:
Codice: Seleziona tutto
Sub VHMany()
Dim WArr, Oarr(), VCnt As Long, lB0 As Long, I As Long, LastE As Long
'
LastE = Cells(Rows.Count, "E").End(xlUp).Row
WArr = Range("L8:L" & LastE).Value
lB0 = LBound(WArr)
ReDim Oarr(1 To 30, 1 To 1)
'
For I = LBound(WArr) To UBound(WArr)
    If WArr(I, lB0) <> "v" And WArr(I, lB0) <> "V" Then
        If VCnt > 0 Then
            Oarr(VCnt, 1) = Oarr(VCnt, 1) + 1
            VCnt = 0
        End If
    Else
        VCnt = VCnt + 1
    End If
Next I
If VCnt > 0 Then Oarr(VCnt, 1) = Oarr(VCnt, 1) + 1
Range("S8").Resize(30, 1).Value = Oarr
Beep
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16748
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: contare le sequenza di un evento V

Postdi raimea » 09/02/20 16:53

ciao

tutto ok
fa cio' che chiedevo

grazie 1000
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1204
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "contare le sequenza di un evento V":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti