Torna indietro   BaroneRosso.it - Forum Modellismo > Categoria Software > Software


 
 
Strumenti discussione Visualizzazione
Prev Messaggio precedente   Prossimo messaggio Next
Vecchio 24 novembre 09, 15:29   #4 (permalink)  Top
User
 
L'avatar di ddrake
 
Data registr.: 12-04-2007
Messaggi: 2.095
Ciao,
ti ho fatto un piccolo esempio di spunto da personalizzare a piacere.

Nel foglio 'valori' puoi inserire i valori da combinare, poi premi il pulsante e nel foglio 'combinazioni' sono stampati i risultati

Per vedere / modificare le funzioni o procedure in VBA vai in:
Strumenti => Macro => Visual Basic Editor
poi in Foglio 1

Codice:
Public Sub combinator(xrange As Range, yrange As Range)

    Dim x, y As Integer
    
    Worksheets("combinazioni").Activate
    For x = 1 To xrange.Count
        For y = 1 To yrange.Count
            If (IsEmpty(yrange.Cells(1, y).Value) Or IsEmpty(xrange.Cells(1, x).Value)) Then
                Exit For
            Else
                Worksheets("combinazioni").Cells(x, y).Value = xrange.Cells(1, x).Value & " - " & yrange.Cells(1, y).Value
            End If
        Next
    Next
    
End Sub
come vedi ci sono due cicli for. Uno per ogni dimensione della tabella. Il controllo sui valori vuoti serve solo per evitare che vengano stampati valori del tipo "1 - "

Fai un po' di prove del tipo 'cosa succede se..' e vedrai che impari in fretta.
Di fatto in questo ambiente la difficoltà maggiore secondo me è conoscere gli oggetti su cui si lavora, le loro proprietà e metodi.

Ciao
Files allegati
Tipo file: zip combinatorio.zip‎ (12,9 KB, 947 visite)
__________________
Senza entusiasmo non si è mai compiuto niente di grande. R.W. Emerson
ddrake non è collegato   Rispondi citando
 

Bookmarks




Regole di scrittura
Non puoi creare nuove discussioni
Non puoi rispondere alle discussioni
Non puoi inserire allegati
Non puoi modificare i tuoi messaggi

BB code è Attivato
Le faccine sono Attivato
Il codice [IMG] è Attivato
Il codice HTML è Disattivato
Trackbacks è Disattivato
Pingbacks è Disattivato
Refbacks è Disattivato


Discussioni simili
Discussione Autore discussione Forum Commenti Ultimo Commento
Video Meeting Vettore 2007 e Erotraino 28/12/2007 fraspeed Aeromodellismo Alianti 3 04 febbraio 08 20:14
Excel DoC Aeromodellismo Alianti 37 14 agosto 07 12:59
LA coppa america 2007(marzo-aprile/luglio 2007) e il navimodellismo.Blog giramondo Modelli naviganti per usi vari, pesca, altro ecc. 0 05 febbraio 07 16:43



Tutti gli orari sono GMT +2. Adesso sono le 09:09.


Basato su: vBulletin versione 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
E' vietata la riproduzione, anche solo in parte, di contenuti e grafica. Copyright 1998/2019 - K-Bits P.I. 09395831002