Re: Altro aiuto excel
Se hai tempo e modo, potresti farmi un esempio? Cosa dovrei scrivere? Sono totalmente ignorante lo ammettoOriginariamente Scritto da Luca D'inverno
Gabriele
Re: Altro aiuto excel
Lo butto giù e poi trovo il modo di mandarteloSe hai tempo e modo, potresti farmi un esempio? Cosa dovrei scrivere? Sono totalmente ignorante lo ammetto
Il bombo ha una superficie alare di 0,7 cm² ed un peso di 1,2 grammi. Secondo i vigenti principi dell'aerodinamica è impossibile volare con tali caratteristiche. Ma il bombo non lo sa e quindi continua semplicemente a volare!
Re: Altro aiuto excel
Grazie davvero!
Gabriele
Re: Altro aiuto excel
Ok ci sono e funziona
questo è il listato
Private Sub btnCalcola_Click()
Dim intTot(3) As Integer
'creazione di una matrice a tre vettori
Dim varValCel As Variant
'creazione della variabile che acquisisce il valore della cella
Dim varColor As Variant
'creazione della variabile che acquisice il valore del colore della cella
Dim intCount As Integer
'creazione della variabile contatore per la progressione del ciclo
intCount = 6
'parte dalla riga N°6 ovvero dove ho inserito il primo valore
varValCel = Cells(intCount, 3)
'riempimento della variabile con il valore della prima cella della lista, per evitare che il ciclo non abbia inizio
Worksheets("Foglio1").Cells(6, 5).Characters.Font.Color = 255 'imposto i colori delle celle destinate ai risultati
Worksheets("Foglio1").Cells(7, 5).Characters.Font.Color = 16711680 'imposto i colori delle celle destinate ai risultati
Worksheets("Foglio1").Cells(8, 5).Characters.Font.Color = 0 'imposto i colori delle celle destinate ai risultati
'=============================
' INIZIO SCANSIONE CELLE
'=============================
Do Until IsEmpty(varValCel) 'ciclo principale che continua fino a quanto il valore della cella è vuoto
varValCel = Cells(intCount, 3) 'acquisico il valore della cella
varColor = Cells(intCount, 3).Characters.Font.Color 'aquisico il valore del colore del testo
Select Case varColor 'routine che gestice la somma dei tre vettori discriminanto il colore
Case 255 'rosso RGB
intTot(1) = intTot(1) + varValCel
Case 16711680 'blu RGB
intTot(2) = intTot(2) + varValCel
Case 0 'nero RGB
intTot(3) = intTot(3) + varValCel
End Select
Worksheets("Foglio1").Cells(6, 5).Value = intTot(1)
Worksheets("Foglio1").Cells(7, 5).Value = intTot(2)
Worksheets("Foglio1").Cells(8, 5).Value = intTot(3)
intCount = intCount + 1 'incrementa il valore della riga
Loop
'=============================
' TERMINE SCANSIONE CELLE
'=============================
End Sub
Ti spiego
Questo esempio lavoro dopo aver creato un tasto con gli strumenti VB, chiamato btnCalcola
funziona partendo dalla cella C6 a scendere, fino a quando non la trova vuota
ho settato tre colori:
255, valore RGB che corrisponde al rosso
16711680, queto corrisponde ad un blu
0, questo è il nero
se vuoi ti mando il file excel. Ah devi abilitare le macro
Ah in visual basic i riferimenti alle celle sono numerici, e invertiti: prima la riga, poi la colonna. Cells(6,5) corrisponde a E6 (E=colonna 5)
Ultima modifica di Luca D'inverno; 05/02/2009 alle 18:43
Il bombo ha una superficie alare di 0,7 cm² ed un peso di 1,2 grammi. Secondo i vigenti principi dell'aerodinamica è impossibile volare con tali caratteristiche. Ma il bombo non lo sa e quindi continua semplicemente a volare!
Re: Altro aiuto excel
Ehm...avevo sbagliato 'aiuto excel'
Il bombo ha una superficie alare di 0,7 cm² ed un peso di 1,2 grammi. Secondo i vigenti principi dell'aerodinamica è impossibile volare con tali caratteristiche. Ma il bombo non lo sa e quindi continua semplicemente a volare!
Re: Altro aiuto excel
Wow ammazza che lavorone!
Grazie
Gabriele
Re: Altro aiuto excel
Guarda che è robada un'ora quando dentro hai 4 telefonate e 2 colleghi che hanno bisogno...
Scappo a casa. Ciao a presto
Il bombo ha una superficie alare di 0,7 cm² ed un peso di 1,2 grammi. Secondo i vigenti principi dell'aerodinamica è impossibile volare con tali caratteristiche. Ma il bombo non lo sa e quindi continua semplicemente a volare!
Re: Altro aiuto excel
OT
bravo Luca, uno dei pochi programmatori che commenta le righe di codice
you don't need the Weatherman to know where the wind blows - bob dylan
il vantaggio di essere intelligente è che si può sempre fare l'imbecille, mentre il contrario è del tutto impossibile - woody allen
Re: Altro aiuto excel
beh lo scopo dei commenti sarebbe per permettere di seguire il flusso del programma anche a chi usa VBA per le prime volte e... imparare qualcosa.
Io non sono mica programmatore.. sono progettista meccanico..
Il bombo ha una superficie alare di 0,7 cm² ed un peso di 1,2 grammi. Secondo i vigenti principi dell'aerodinamica è impossibile volare con tali caratteristiche. Ma il bombo non lo sa e quindi continua semplicemente a volare!
Re: Altro aiuto excel
uhm se vedi certi programmi scritti dalle ultime leve (specialmodo java) ti metti le mani nei capelli. L'unica cosa certa è la documentazione di progetto che è obbligatoriabeh lo scopo dei commenti sarebbe per permettere di seguire il flusso del programma anche a chi usa VBA per le prime volte e... imparare qualcosa.
Io non sono mica programmatore.. sono progettista meccanico..
poi entri nei programmi e trovi una sfilza di istruzioni non commentate. Se devi far fare modifiche certe volte preferiresti darti una bottigliata alla Tafazzi
buon per te che supplisci anche a metter mano al codice nonostante non sia il tuo campo principale
me lo voglio studiare il tuo codice, anche perchè VB non lo conosco proprio ma mi potrebbe servire per fare le macro nei fogli excel per la gestione del progetto in modo automatico
complimenti di nuovo
you don't need the Weatherman to know where the wind blows - bob dylan
il vantaggio di essere intelligente è che si può sempre fare l'imbecille, mentre il contrario è del tutto impossibile - woody allen
Permessi di Scrittura
Rispondi Citando
Segnalibri