Condividi:        

analizza ritardo e frequenza di un importo

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

analizza ritardo e frequenza di un importo

Postdi raimea » 20/02/23 21:49

ciao
tramite macro ,
vorrei analizzare il ritardo , e la frequenza di un importo.

in fgl dalambert ,
analizzando l 'importo in cella G3
vorrei analizzarlo in Col N6:N

contare tutti i ritardi fra lo stesso importo G3
e quante volte si e' presentato lo stesso ritardo.

il risultato vorrei metterlo nella tabella di fgl squadre
in AJ7:AJ il numero del ritardo
ed a fianco AK7:AK, la frequanza di quante volte si e'
presentato lo stesso ritardo .

ES
nel file allegato , il primo ritardo che si presenta e' = 11
il 2do = 1 ecc ecc

spero di essermi spiegato ,
vi allego il file

https://www.dropbox.com/scl/fi/9zxcs3e6ft4mfglsx5xe5/analizza_ritardo.xlsm?dl=0&rlkey=j8xf6ppf7ixy0zc6biw3za27t

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: analizza ritardo e frequenza di un importo

Postdi Anthony47 » 21/02/23 13:14

La mia interpretazione:
Codice: Seleziona tutto
Sub GuardaG3()
Dim OArr(), colN As Range, curG3 As Single
Dim lastPos As Long, cuRit As Long, oInd As Long
'
Sheets("dalambert").Select
Set colN = Range(Range("N6"), Range("N10000").End(xlUp))
ReDim OArr(0 To colN.Rows.Count)
'
curG3 = Range("G3").Value
For i = 1 To colN.Rows.Count
    If colN.Cells(i, 1) = curG3 Then
        cuRit = i - lastPos - 1
        If i > 1 Then OArr(cuRit) = OArr(cuRit) + 1
        lastPos = i
    End If
    If colN.Cells(i, 1) = "" Then Exit For
Next i
With Sheets("Squadre").Range("AJ7")
    .Resize(UBound(OArr), 2).ClearContents
    For i = 0 To UBound(OArr)
        If OArr(i) > 0 Then
            oInd = oInd + 1
            .Cells(oInd, 1) = i
            .Cells(oInd, 2) = OArr(i)
        End If
    Next i
End With
Sheets("Squadre").Select
End Sub


Prova...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: analizza ritardo e frequenza di un importo

Postdi raimea » 21/02/23 13:38

ciao
i conteggi sono corretti
l' interpretazione esatta.

unica accortezza se possibile,
vorrei far scrivere zero 0 in AJ7
anzicche' un trattino - e' possibile ?

Immagine

ho provato a maneggiare il codice ma senza successo

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: analizza ritardo e frequenza di un importo

Postdi raimea » 21/02/23 14:00

risolto
tutto ok


ora mette lo zero

ancora grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: analizza ritardo e frequenza di un importo

Postdi Anthony47 » 21/02/23 16:21

Non so come hai risolto, ma il "trattino" e' il risultato di una specifica formattazione; in genere corrisponde all'icona con 000 nel tab Home, gruppo Numeri. Se applichi una formattazione, ad esempio Numeri con 0 decimali, vedrai lo 0
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: analizza ritardo e frequenza di un importo

Postdi raimea » 21/02/23 16:36

ciao

si siii
era proprio cosi

la cella aveva una formattazione errata

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "analizza ritardo e frequenza di un importo":


Chi c’è in linea

Visitano il forum: Nessuno e 85 ospiti