|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Senior Member
Iscritto dal: Jan 2006
Città: Milano
Messaggi: 1847
|
[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!
__________________
Visita il mio Portfolio |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Jan 2006
Città: Milano
Messaggi: 1847
|
Ho allegato anche il file, a scanso di equivoci. Qui sotto trovate il codice!
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
__________________
Visita il mio Portfolio |
|
|
|
|
|
#4 | |
|
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
Quote:
=SOMMA(F1:K1), e trascinare verso il basso fino alla cella N22. Cmq, lo devi fare espressamente in VBA ? |
|
|
|
|
|
|
#5 | |
|
Senior Member
Iscritto dal: Jan 2006
Città: Milano
Messaggi: 1847
|
Quote:
In ogni caso sono riuscito a risolvere!
__________________
Visita il mio Portfolio |
|
|
|
|
|
|
#6 |
|
Senior Member
Iscritto dal: Dec 2004
Messaggi: 3210
|
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 09:36.



















