buonasera a tutti,
mi potete aiutare a capire xche' il seguente codice script x spaziometria mi da i seguenti errori?
grazie mille....
mi potete aiutare a capire xche' il seguente codice script x spaziometria mi da i seguenti errori?
grazie mille....
Codice:
Option Explicit
Sub TrovaFrequenzaAmbi()
Dim ws As Worksheet
Dim outputWs As Worksheet
Dim dataRange As Range
Dim cell As Range
Dim ambiDict As Object
Dim ambi As String
Dim nMesi As Long
Dim startDate As Date
Dim endDate As Date
Dim outputRow As Long
Dim arrNumeri() As String
Dim i As Long
' Imposta il foglio di lavoro e il dizionario per gli ambi
Set ws = ThisWorkbook.Sheets("Estrazioni") ' Cambia il nome del foglio se necessario
Set ambiDict = CreateObject("Scripting.Dictionary")
' Imposta la gamma delle estrazioni
Set dataRange = ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
' Input per il numero di mesi
nMesi = InputBox("Inserisci il numero di mesi per analizzare le estrazioni:", "Frequenza Ambi", 6)
' Calcola le date di inizio e fine
endDate = Date
startDate = DateAdd("m", -nMesi, endDate)
' Cicla attraverso le righe delle estrazioni
For Each cell In dataRange.Rows
If cell.Cells(1, 1).Value >= startDate And cell.Cells(1, 1).Value <= endDate Then
arrNumeri = Split(cell.Cells(1, 2).Value, ",") ' Supponendo che i numeri siano separati da virgole
' Trova tutti gli ambi
For i = LBound(arrNumeri) To UBound(arrNumeri) - 1
ambi = Trim(arrNumeri(i)) & "-" & Trim(arrNumeri(i + 1))
If ambiDict.Exists(ambi) Then
ambiDict(ambi) = ambiDict(ambi) + 1
Else
ambiDict.Add ambi, 1
End If
Next i
End If
Next cell
' Crea un nuovo foglio per il resoconto
Set outputWs = ThisWorkbook.Sheets.Add
outputWs.Name = "Frequenza Ambi"
outputWs.Cells(1, 1).Value = "Ambo"
outputWs.Cells(1, 2).Value = "Frequenza"
' Scrivi i risultati nel foglio di output
outputRow = 2
For Each ambi In ambiDict.Keys
outputWs.Cells(outputRow, 1).Value = ambi
outputWs.Cells(outputRow, 2).Value = ambiDict(ambi)
outputRow = outputRow + 1
Next ambi
MsgBox "Frequenza degli ambi calcolata con successo!", vbInformation
End Sub
, hai provato a realizzare uno script .ls con AI o con tool similare ma spaziometria non vuole la definizione delle variabili con As come vbs o vba ad esempio e quindi ti da errore. Le AI se non specificatamente istruite sul nuovo linguaggio (x loro) spazioscript tendono a dare molte volte questo tipo di errore.
