Torna indietro   Hardware Upgrade Forum > Software > Programmazione

DJI Lito 1 e Lito X1 recensione: i nuovi droni per principianti che non si fanno mancare nulla
DJI Lito 1 e Lito X1 recensione: i nuovi droni per principianti che non si fanno mancare nulla
DJI ha appena ufficializzato la serie Lito, la sua nuova gamma di droni entry-level destinata a chi si avvicina per la prima volta alla fotografia aerea. Al centro dell'annuncio ci sono due modelli ben distinti per fascia di prezzo e specifiche tecniche: DJI Lito 1 e DJI Lito X1. Entrambi si collocano sotto la soglia regolamentare dei 249 grammi, che permette di volare con requisiti burocratici più semplici rispetto ai droni più pesanti.
Sony World Photography Awards 2026: i premiati, anche italiani, il punto sulla fotografia di oggi
Sony World Photography Awards 2026: i premiati, anche italiani, il punto sulla fotografia di oggi
Siamo stati a Londra per la premiazione dei Sony World Photography Awards 2026, l'evento a tema fotografia più prestigioso. Fra sorprese e novità, ne approfittiamo per fare il punto sulla fotografia contemporanea, in cui la didascalia è sempre più necessaria a cogliere il senso della quasi totalità degli scatti.
Una settimana con Hyundai Ioniq 5 N-Line: diverte e convince
Una settimana con Hyundai Ioniq 5 N-Line: diverte e convince
L'elettrica di casa Hyundai propone una versione AWD con estetica derivata dalla famiglia N. L'abbiamo provata per diversi giorni, per scoprire tutti i dettagli e la vera autonomia in autostrada
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 27-04-2009, 12:53   #1
_Aenea_
Senior Member
 
L'Avatar di _Aenea_
 
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!

Allegati
File Type: zip irrigazione - Copia.zip (17.9 KB, 0 visite)
__________________
Visita il mio Portfolio
_Aenea_ è offline   Rispondi citando il messaggio o parte di esso
Old 27-04-2009, 12:54   #2
_Aenea_
Senior Member
 
L'Avatar di _Aenea_
 
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
_Aenea_ è offline   Rispondi citando il messaggio o parte di esso
Old 27-04-2009, 13:53   #3
_Aenea_
Senior Member
 
L'Avatar di _Aenea_
 
Iscritto dal: Jan 2006
Città: Milano
Messaggi: 1847
__________________
Visita il mio Portfolio
_Aenea_ è offline   Rispondi citando il messaggio o parte di esso
Old 28-04-2009, 09:17   #4
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da _Aenea_ Guarda i messaggi
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!
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 ?
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 28-04-2009, 12:21   #5
_Aenea_
Senior Member
 
L'Avatar di _Aenea_
 
Iscritto dal: Jan 2006
Città: Milano
Messaggi: 1847
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
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!
__________________
Visita il mio Portfolio
_Aenea_ è offline   Rispondi citando il messaggio o parte di esso
Old 28-04-2009, 13:31   #6
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da _Aenea_ Guarda i messaggi
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...
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


DJI Lito 1 e Lito X1 recensione: i nuovi droni per principianti che non si fanno mancare nulla DJI Lito 1 e Lito X1 recensione: i nuovi droni p...
Sony World Photography Awards 2026: i premiati, anche italiani, il punto sulla fotografia di oggi Sony World Photography Awards 2026: i premiati, ...
Una settimana con Hyundai Ioniq 5 N-Line: diverte e convince Una settimana con Hyundai Ioniq 5 N-Line: divert...
Recensione OPPO Find X9 Ultra: è lui il cameraphone definitivo Recensione OPPO Find X9 Ultra: è lui il c...
Ecovacs Deebot X12 OmniCyclone: lava grazie a FocusJet Ecovacs Deebot X12 OmniCyclone: lava grazie a Fo...
Un round pre seed da 500mila euro per Va...
Non si butta via niente: Intel fa soldi ...
Cos'è Windows K2: il piano segreto di Mi...
L'attentatore di Trump sviluppava videog...
Le nuove icone delle app Google sono qui...
GIGABYTE GAMING 1000GM PG5, efficienza G...
Il Maine non fermerà i data cente...
Mille satelliti per alimentare l'AI: il ...
Energia infinita dagli oceani? Questo na...
Hacker fingono di essere il supporto IT ...
Samsung abbatte il muro dei 10 nanometri...
70mai A410 a 79,99€: la dashcam doppia a...
La US Navy ha testato il laser anti-dron...
Portatile HP 15'' con Ryzen 3 7320U e SS...
Non è Netflix la piattaforma di s...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 13:56.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v