View Full Version : [VB excel] somma contenuto di celle in colonne sfalsate
Visto che un'immagine vale più di 1000 parole....
COme posso far sommare il contenuto delle colonne sfalsate che vedete in figura. Perdonate la domanda banale, ma è la prima volta che uso Visual Basic e devo fare questo programmino entro il 6 maggio!:cry:
http://img21.imageshack.us/img21/732/help2zhw.jpg
Ho allegato anche il file, a scanso di equivoci. Qui sotto trovate il codice!
Private Sub CommandButton1_Click()
Dim N(1 To 100) As Single
Dim M(1 To 100) As Single
k = 0
Do
k = k + 1
NS = Cells(4 + k, 2)
If (NS <> "#") Then
N(k) = Val(NS)
End If
Loop Until NS = "#"
Ntot = k
'scrive il numero di volumetti dell'ugello'
Cells(2, 4) = k
'calcolo lunghezza bagnatura singolo ugello'
b = o
For x = 0 To k - 1
b = 5 + b
Cells(4 + x, 3) = b
Next x
i = Cells(2, 2) 'interasse'
c = i / 5
Cells(1, 4) = c 'caselle interesse'
LB = Cells(1, 2) 'lunghezza barra per calcolare il numero degli ugelli'
NU = LB \ b 'viene numero intero in questo modo!'
Cells(15, 2) = NU
'faccio scrivere volumi'
S = 0
For W = 0 To NU - 1
S = c * W
For y = 0 To k
Cells(1 + y + S, 6 + W) = Cells(4 + y, 2)
Next y
Next W
'Somma dei volumi'
End Sub
COme posso far sommare il contenuto delle colonne sfalsate che vedete in figura. Perdonate la domanda banale, ma è la prima volta che uso Visual Basic e devo fare questo programmino entro il 6 maggio!:cry:
Beh, in pratica basterebbe mettere nella cella N1 la semplice funzione :
=SOMMA(F1:K1), e trascinare verso il basso fino alla cella N22.
Cmq, lo devi fare espressamente in VBA ?
Beh, in pratica basterebbe mettere nella cella N1 la semplice funzione :
=SOMMA(F1:K1), e trascinare verso il basso fino alla cella N22.
Cmq, lo devi fare espressamente in VBA ?
ehm sì, espressamente in VBA, altrimenti non avrei chiesto! :)
In ogni caso sono riuscito a risolvere! :D
ehm sì, espressamente in VBA, altrimenti non avrei chiesto! :)
Beh, sai capita spesso che utenti aprano Thread partendo già da una certa impostazione che poi si scopre non era nè l'unica, nè la migliore... ;)
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.