formattare una colonnacon numeri senza virgolaSalve

[giorgioa]

Salve un aiuto,
questa macro fa la somma di 5 colonne per 5 volte di colonne diverse
ad ogni somma totale delle 5 somme, viene imposto il frazionamento /5
c'è una riga di codice che formatta la colonna delle 5 somme.
Formatto la colonna as ma credo che bisogna indicare la formattazione non alla
colonna ma al calcolo.
la macro:
Sub somma()
Dim i As Long, j As Long, k As Long
Dim Var1 As String, Var2 As String, Var3 As String, Var4 As String, Var5 As String
i = Cells(Rows.Count, 3).End(xlUp).Row
Sheets("calcoli").Activate
Range("as1:as10000").NumberFormat = "#,##"
For i = 1 To i
For j = 1 To 5

Var1 = Application.WorksheetFunction.Sum(Cells(3 + i, 20 + k).Resize(1, 5), k) / 5
Var2 = Application.WorksheetFunction.Sum(Cells(3 + i, 25 + k).Resize(1, 5), k) / 5
Var3 = Application.WorksheetFunction.Sum(Cells(3 + i, 30 + k).Resize(1, 5), k) / 5
Var4 = Application.WorksheetFunction.Sum(Cells(3 + i, 35 + k).Resize(1, 5), k) / 5
Var5 = Application.WorksheetFunction.Sum(Cells(3 + i, 40 + k).Resize(1, 5), k) / 5

Cells(3 + i, "as").Value = Var1 & "_" & Var2 & "_" & Var3 & "_" & Var4 & "_" & Var5
Next j
Next i

End Sub
grazie dell'aiuto

[Anthony47]

Siccome in colonna AS ci metti delle stringhe la formattazione che imposti non ha nessun impatto sul risultato.
Fai un esempio di che cosa viene scritto in AS e che cosa vorresti invece vederci scritto.

[giorgioa]

questo il risultato
52,8_37,8_51,8_52,8_40,8 ....(1)
46_34_60_46_73 ................(2)
52,4_30,4_59,4_52,4_39,4 ...(3)
57,8_48,8_40,8_57,8_66,8
51,2_42,2_32,2_51,2_43,2
49,6_37,6_63,6_49,6_50,6
45,4_52,4_58,4_45,4_33,4
invece vorrei
53_38_52_53_41...(1)
46_34_60_46_73...(2)
52_30_59_52_39...(3)

con arrotondamento se ,<= 5 =0 se ,>=6 =1

[giorgioa]

Salve Anthony,
hai parlato di variabili considerati stringhe
ho fatto una prova
invece di stringa ho corretto le variabili in integer
e mi ha dato il risultato voluto
Fermi restando un utile consiglio

[Anthony47]

Hai fatto un "arrotondamento implicito"; bravo.
Tieni presente che l'arrotondamendo e' verso il basso fino a 0.4999; poi da 0.5 in su e' verso l'alto; se vuoi arrotondare verso il basso anche fino a 0.5 allora sottrai un piccolo "quid" al risultato; tipo:

Codice: Seleziona tutto

Var1 = Application.WorksheetFunction.Sum(Cells(3 + i, 20 + k).Resize(1, 5), k) / 5 - 0.001

[giorgioa]

OK grazie della precisazione
l'ho aggiunta

Saluti e grazie