Ciao a tutti
sono da poco entrato nel magico mondo di visual basic ( 2003 perchè al lavoro c'ho questo purtroppo ).
Sto scrivendo una macro che visualizzi nella status bar in basso a sinistra un po' di parametri come #righe selezionate, #colonne selezionate, somma e media di una selezione effettuata dall'utente.
Ecco il frammento di codice:
=============================================
'variabile di tipo range!!
Dim cell As Range
'istruzione che controlla tutti i range delle celle nella selezione che l'utente applica
For Each cell In Selection.Cells
If cell <> "" Then
'conto gli elementi non nulli
count = count + 1
'conto gli elementi non numerici; mira la funzione!
If Not IsNumeric(cell) Then
count_x = count_x + 1
Else
'somma gli elementi non nulli
Dim somma As Single
somma = somma + cell
'prova = "5"
'CInt(prova)
'Format(somma , "#,###.00")
'FormatNumber(somma,0)
'FormatCurrency(somma, 0)
End If
Else:
'conto le celle blank
count_b = count_b + 1
End If
Next
=========================================
Vorrei che somma per esempio fosse formattata tipo 23,00 con due cifre decimali. In veste di commento ci sono tutti i miei tentativi fin qui. Ma non ne vuole sapere.
E' un problema legato al fatto che somma è di tipo single mentre cell è di tipo range?
Qualcuno mi sa dare una mano per favore?
grazie mille
Rispondi quotando
