Torna indietro   Hardware Upgrade Forum > Software > Programmazione

AWS annuncia European Sovereign Cloud, il cloud sovrano per convincere l'Europa
AWS annuncia European Sovereign Cloud, il cloud sovrano per convincere l'Europa
AWS è il principale operatore di servizi cloud al mondo e da tempo parla delle misure che mette in atto per garantire una maggiore sovranità alle organizzazioni europee. L'azienda ha ora lanciato AWS European Sovereign Cloud, una soluzione specificamente progettata per essere separata e distinta dal cloud "normale" e offrire maggiori tutele e garanzie di sovranità
Redmi Note 15 Pro+ 5G: autonomia monstre e display luminoso, ma il prezzo è alto
Redmi Note 15 Pro+ 5G: autonomia monstre e display luminoso, ma il prezzo è alto
Xiaomi ha portato sul mercato internazionale la nuova serie Redmi Note, che rappresenta spesso una delle migliori scelte per chi non vuole spendere molto. Il modello 15 Pro+ punta tutto su una batteria capiente e su un ampio display luminoso, sacrificando qualcosa in termini di potenza bruta e velocità di ricarica
HONOR Magic 8 Pro: ecco il primo TOP del 2026! La recensione
HONOR Magic 8 Pro: ecco il primo TOP del 2026! La recensione
HONOR ha finalmente lanciato il suo nuovo flagship: Magic 8 Pro. Lo abbiamo provato a fondo in queste settimane e ve lo raccontiamo nella nostra recensione completa. HONOR rimane fedele alle linee della versione precedente, aggiungendo però un nuovo tasto dedicato all'AI. Ma è al suo interno che c'è la vera rivoluzione grazie al nuovo Snapdragon 8 Elite Gen 5 e alla nuova MagicOS 10
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 27-04-2009, 13: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, 13: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, 14: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, 10: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, 13: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, 14: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


AWS annuncia European Sovereign Cloud, il cloud sovrano per convincere l'Europa AWS annuncia European Sovereign Cloud, il cloud ...
Redmi Note 15 Pro+ 5G: autonomia monstre e display luminoso, ma il prezzo è alto Redmi Note 15 Pro+ 5G: autonomia monstre e displ...
HONOR Magic 8 Pro: ecco il primo TOP del 2026! La recensione HONOR Magic 8 Pro: ecco il primo TOP del 2026! L...
Insta360 Link 2 Pro e 2C Pro: le webcam 4K che ti seguono, anche con gimbal integrata Insta360 Link 2 Pro e 2C Pro: le webcam 4K che t...
Motorola edge 70: lo smartphone ultrasottile che non rinuncia a batteria e concretezza Motorola edge 70: lo smartphone ultrasottile che...
iPhone Air 2 non avrà il Face ID ...
OnePlus 15R con Snapdragon 8 Gen 5 verso...
Il futuro Samsung Galaxy A57 non ha (qua...
Motorola prepara un altro best buy per l...
OnePlus già lavora al suo prossim...
PS5 Slim con SSD da 1 TB e Blu-ray scend...
La crisi delle memorie non si ferma: rin...
REDMAGIC 11 Air è ufficiale: tant...
Le dimensioni contano? C'è un TV ...
Vast prosegue la costruzione della stazi...
Chiarito cosa è successo al satel...
Il TAR annulla Bologna Città 30. ...
Laptop con chip NVIDIA da marzo? Emergon...
Costruito in casa, più veloce di ...
Il nuovo Galaxy Book 6 Pro costa il 25% ...
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: 09:29.


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