Condividi:        

formattare una colonnacon numeri senza virgolaSalve

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

formattare una colonnacon numeri senza virgolaSalve

Postdi giorgioa » 02/11/23 15:56

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
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: formattare una colonnacon numeri senza virgolaSalve

Postdi Anthony47 » 02/11/23 16:09

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19387
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formattare una colonnacon numeri senza virgolaSalve

Postdi giorgioa » 02/11/23 17:11

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
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: formattare una colonnacon numeri senza virgolaSalve

Postdi giorgioa » 02/11/23 17:36

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
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: formattare una colonnacon numeri senza virgolaSalve

Postdi Anthony47 » 02/11/23 19:04

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
Avatar utente
Anthony47
Moderatore
 
Post: 19387
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: formattare una colonnacon numeri senza virgolaSalve

Postdi giorgioa » 02/11/23 21:10

OK grazie della precisazione
l'ho aggiunta

Saluti e grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00


Torna a Applicazioni Office Windows


Topic correlati a "formattare una colonnacon numeri senza virgolaSalve":

Connettere pc senza wifi
Autore: nippon
Forum: Software Windows
Risposte: 8

Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti