Ciao a tutti
qualcuno può suggerirmi come si crea una semplice macro con excel per fargli generare numeri casuali
(ad esempio fargli scegliere 5 numeri a caso da una "griglia" 10 x 10)
Grazie dell'aiuto
Ciao
Moderatori: Anthony47, Flash30005
Option Explicit
Public Function Random(limiteinf As Long, limitesup As Long) As Long
Random = Int((limitesup - limiteinf + 1) * Rnd + limiteinf)
End Function
Public Function RandomCell(intervallo As Range) As Variant
Dim riga As Long, colonna As Long
With intervallo
colonna = Random(1, .Columns.Count)
riga = Random(1, .Rows.Count)
RandomCell = .Cells(riga, colonna)
End With
End Function
=randomcell(F4:O13)
Public Function RandomCellValue() As Variant
Dim riga As Long, colonna As Long
Do
riga = Int(10 * Rnd + 1)
colonna = Int(10 * Rnd + 1)
Loop Until riga > 1 Or (riga = 1 And colonna > 5) 'scarta i valori nelle celle A1:E1
RandomCellValue = Range("A1").Cells(riga, colonna).Value '<== supponendo che la tabella cominci in A1
End Function
Sub test()
Dim i As Long
For i = 1 To 5
Cells(i, 12).Value = RandomCellValue 'restituisce 5 valori in colonna L
Next i
End Sub
Range("A1")
Sheets("Pippo").Range("A1")
Sub Casuale()
Columns("A:E").ClearContents
For RR = 1 To [I2]
For CC = 1 To 5
Ini:
Ncas = Int(Rnd([L2]) * [L2]) + 1
If Ncas < [K2] Then GoTo Ini
If CC > 1 Then
For CCC = 1 To CC - 1
If Cells(RR, CCC).Value = Ncas Then GoTo Ini
Next CCC
End If
Cells(RR, CC).Value = Ncas
Next CC
Next RR
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 91 ospiti