Visualizza messaggio singolo
Vecchio 24 novembre 09, 15:29   #4 (permalink)  Top
ddrake
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, 942 visite)
__________________
Senza entusiasmo non si è mai compiuto niente di grande. R.W. Emerson
ddrake non è collegato   Rispondi citando