Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Oltre il contante e le crypto: tutto sull'Euro Digitale e la nuova sovranità monetaria europea
Oltre il contante e le crypto: tutto sull'Euro Digitale e la nuova sovranità monetaria europea
L'euro digitale è una valuta fiat che entrerà in vigore nei prossimi anni. L'obiettivo principale è quello di ridurre la dipendenza dalle piattaforme di pagamento digitali statunitensi e offrire ai cittadini un modo semplice per trasferire denaro. Anche offline, anche in maniera (pseudo)anonima
Recensione HONOR Magic V6: spessore record e super batteria. È lui il fold da battere?
Recensione HONOR Magic V6: spessore record e super batteria. È lui il fold da battere?
HONOR Magic V6 è arrivato in Italia a 2.299,90 euro con una promessa precisa: unire 4 mm di spessore da aperto (8,75 mm chiuso nel modello White, 9 mm negli altri colori) a una batteria da 6.660 mAh, la più capiente mai vista su un pieghevole. Lo abbiamo usato per oltre una settimana in versione Red 16/512 GB per capire se lo Snapdragon 8 Elite Gen 5 tiene testa alla concorrenza anche fuori dai benchmark ufficiali
Redmi Pad 2 9.7: ampio display, economico e peso contenuto, ma qualche limite nelle prestazioni
Redmi Pad 2 9.7: ampio display, economico e peso contenuto, ma qualche limite nelle prestazioni
Redmi Pad 2 9.7 punta su un display ampio e fluido, una batteria capace di accompagnare l'uso quotidiano senza ansie da ricarica e un prezzo accessibile, a partire da 179,90 euro per la versione con 64 GB di storage. Lo Snapdragon 6s 4G Gen 2 e i 4 GB di RAM della configurazione più diffusa frenano però chi cerca reattività e multitasking spinto: ecco il bilancio dopo due settimane di prova diretta
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


Oltre il contante e le crypto: tutto sull'Euro Digitale e la nuova sovranità monetaria europea Oltre il contante e le crypto: tutto sull'Euro D...
Recensione HONOR Magic V6: spessore record e super batteria. È lui il fold da battere? Recensione HONOR Magic V6: spessore record e sup...
Redmi Pad 2 9.7: ampio display, economico e peso contenuto, ma qualche limite nelle prestazioni Redmi Pad 2 9.7: ampio display, economico e peso...
Peugeot Polygon Concept: ecco il futuro delle utilitarie Peugeot Polygon Concept: ecco il futuro delle ut...
Reno16 Pro: il compatto di OPPO punta su fotocamera da 200MP e il nuovo Bubble! La recensione Reno16 Pro: il compatto di OPPO punta su fotocam...
Robot aspirapolvere ECOVACS X9 PRO OMNI ...
Il nuovo GTA potrebbe avere un effetto c...
Apple rilascia le beta pubbliche di iOS ...
Firefox cambia passo: update ogni due se...
Vent'anni di autopsie in un clic: nasce ...
Euro digitale, la BCE accelera: 36 partn...
Cowork, ChatGPT Work e ora Sand: Cursor ...
WhatsApp testa un cloud tutto suo per i ...
Un tassello dell'origine della vita scop...
Galaxy S26 Ultra, macchie rosse sul disp...
HUAWEI FreeClip 2S: miglior qualit&agrav...
Bun, IA ovunque e riscrittura in Rust: i...
Una startup cinese va oltre i nanometri,...
CORSAIR Platform:4 e Platform:4 Elevate,...
UnipolMove diventa più caro: scat...
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: 14:47.


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