Frequenze di un vettore

Hai un problema con Excel?

Nuova discussione

Frequenze di un vettore
di Giorgum data: 13/06/2015 22:42:36
Ciao a tutti ragazzi, chiedo aiuto a voi, sperando in un esposizione esaustiva.
Dato un vettore di numeri sto provando a ricreare tramite codice vba la funzione frequenza di excel.
Nel foglio(2) della colonna A ho creato le classi, nella colonna B vorrei avere le frequenze assolute, poi nella C eventualmente quelle relative.
Non riesco a settare correttamente gli argomenti la funzione frequency di VBA, il codice in cui riscontro l'errore è quello contrassegnato con ********
vi allego il file per vedere la Macro

Sub intervalli(lab_1 As Range, ByVal n As Integer)

Worksheets(1).Activate

Worksheets(2).Cells(1, 1).Value = Application.WorksheetFunction.Min(lab_1.Value)

int_1 = Application.WorksheetFunction.Max(lab_1.Value) - Application.WorksheetFunction.Min(lab_1.Value)

int_2 = int_1 / n

For i = 2 To n + 1 Step 1
    
    Worksheets(2).Cells(i, 1).Value = Worksheets(2).Cells(i - 1, 1).Value + int_2
Next i
    
********Worksheets(2).Range.FormulaArray = Application.WorksheetFunction.Frequency(lab_1.Value, Worksheets(2).Active.Cells)*****

End Sub



Sub main()
    
    Dim dset As Range
    
    Set dset = Range("A1 : A100")
    
    Dim step As Integer
    Dim n As Integer
  
        step = Val(InputBox("quanti intervalli vuoi?"))
        
        
        Call intervalli(Range(dset.Cells(3, 2), dset.Cells(100, 2)), step)
        
        
        MsgBox ("Elaborazione Terminata")
    
    
End Sub

Vuoi Approfondire?