| | #4 (permalink) Top |
| User 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 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
__________________ Senza entusiasmo non si è mai compiuto niente di grande. R.W. Emerson |
| | |
| Bookmarks |
| |
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 |