Mi capita uno strano inconveniente: spero che qualcuno di voi mi possa aiutare.
Ho definito una nuova funzione (Function) tramite l'editor Visual Basic, e l'ho assegnata ad una cella ("=Nome_Funzione(arg1;arg2)").
Questa funzione agisce sul contenuto di un range di celle, per cui quando qualche cella del range cambia, il valore della funzione cambia.
Ora mi succede che se cambio il valore di una delle celle del range, non accade nulla e, per far ricalcolare il valore della funzione devo andare sulla cella che contiene la funzione e cambiare qualcosa (es: cancellare e riscrivere una lettera del nome funzione, e poi dare invio). Sapete dirmi perchè mi succede questo?
Grazie e ciao
Problema esecuzione funzione
Moderatori: isex, mariobrossh, donatella
Provvedo subito:
Function Num_colorate(colore_cella As Range, riga1 As Integer, riga2 As Integer, colonna1 As Integer, colonna2 As Integer) As Integer
Dim i, j, numero_colori As Integer
colore = colore_cella.Interior.ColorIndex
numero_colori = 0
For i = riga1 To riga2
For j = colonna1 To colonna2
If Cells(i, j).Interior.ColorIndex = colore Then
numero_colori = numero_colori + 1
End If
Next j
Next i
Num_colorate = numero_colori
End Function
Spero possiate aiutarmi
Ciao
Function Num_colorate(colore_cella As Range, riga1 As Integer, riga2 As Integer, colonna1 As Integer, colonna2 As Integer) As Integer
Dim i, j, numero_colori As Integer
colore = colore_cella.Interior.ColorIndex
numero_colori = 0
For i = riga1 To riga2
For j = colonna1 To colonna2
If Cells(i, j).Interior.ColorIndex = colore Then
numero_colori = numero_colori + 1
End If
Next j
Next i
Num_colorate = numero_colori
End Function
Spero possiate aiutarmi
Ciao
