Nomi citta | Visual Basic for Applications

Nomi città

Hai un problema con Excel?

Nuova discussione

Nomi città
di Nic82 data: 05/03/2010

ciao ragazzi,

come faccio a riempire il range a1:a100 con i nomi random fra l'elenco di città milano, genova, torino, piacenza?

grazie!
di Rp71 (utente non iscritto) data: 05/03/2010
Butto lì un'idea con un esempio :
nelle celle f1:g4 (o dove vuoi tu) metti l'elenco

1 milano
2 genova
3 torino
4 piacenza

nell'intervallo a1:a100 metti la formula :

=cerca.vert(casuale.tra(1;4);$f$1:$g$4;2;falso)

saluti
r

di Nick82 (utente non iscritto) data: 05/03/2010
Ok ho fatto in questo modo grazie, ma mi sono dimenticato di specificare che avrei voluto farlo con una sub. quando si tratta di valori numerici sono capace, però con stringhe mi trovo un'attimo in difficoltà.

io pensavo a 4 celle come hai detto tu con i nomi delle città, e poi di fare una cosa del tipo

Dim z as string

' in A1 c'è Milano

Set z = Range("A1").Value

' in modo da avere la propietà in lettura _ 
e poi una cosa tipo

For Each C in Range("B1:B100")

C.Value = RND ... 'prendendo valori a casa fra t,u,v,z.

di Enzo (utente non iscritto) data: 05/03/2010
L'istruzione qui sotto mischia i dati nella colonna che vai ad evidenziare funziona in qualsiasi colonna
basta che la evidenzi fai partire la macro
ciao

    Dim c As Range
    Dim i As Integer
    Dim j As Integer
    Dim kk As Integer
    Dim Swap As String
    Dim NRighe As Integer
    Dim NColonne As Integer
    Set c = Selection
    NColonne = c.Columns(c.Columns.Count).Column - c.Column + 1
    NRighe = c.Rows(c.Rows.Count).Row - c.Row + 1
    If NColonne = 1 Then
    Randomize
    For kk = 1 To NRighe * 5
        i = Int((NRighe * Rnd) + 1)
        j = Int((NRighe * Rnd) + 1)
        Swap = c.Cells(i, 1).Value
        c.Cells(i, 1).Value = c.Cells(j, 1).Value
        c.Cells(j, 1).Value = Swap
    Next
    End If

Vuoi Approfondire?