PDA

View Full Version : [VB excel] somma contenuto di celle in colonne sfalsate


_Aenea_
27-04-2009, 12:53
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

_Aenea_
27-04-2009, 12:54
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

_Aenea_
27-04-2009, 13:53
:help:

MarcoGG
28-04-2009, 09:17
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 ?

_Aenea_
28-04-2009, 12:21
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

MarcoGG
28-04-2009, 13:31
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... ;)