| | Post: 52 | Registrato il: 07/12/2015
| Utente Junior | 2010 | | OFFLINE | |
|
20/05/2023 11:18 | |
Salve, ho bisogno di un file che mi estragga random le lettere dell'alfabeto (comprese K, J, ecc), se mi dice anche quante lettere mancano ancora meglio.
ps. non allego niente perché non so proprio da dove cominciare, mi sembra inutile allegare un file vuoto. Posso dire che magari si potrebbe sfruttare la prima colonna per l'elenco delle lettere e la seconda mi dice la lettera estratta (se può servire come suggerimento) |
|
| | Post: 7.279 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
20/05/2023 11:35 | |
Ciao Cristian, purtroppo non riesco a capire la tua necessità, vero non hai nulla e non sai da dove cominciare, però dici:
mi estragga random le lettere dell'alfabeto (comprese K, J, ecc), se mi dice anche quante lettere mancano ancora meglio.
non spieghi per random cosa intendi, o meglio random è un numero o lettera casuale, ma se non gli dici il numero di lettere o numeri non ti estrae niente, se gli dici 3 ti estrae "ABC" o "PFH" se numeri "165" o "321" e può riportare le lettere che rimangono, non avendo nessuna indicazione non succede niente
oppure scrivi "pippo" e vuoi le lettere che mancano.
però sono anche convinto che se spieghi il fine ultimo di quello che devi fare sarebbe meglio, altrimenti ci perderemmo in formule o macro che dovranno essere rivedute nuovamente.
Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 52 | Registrato il: 07/12/2015
| Utente Junior | 2010 | | OFFLINE | |
|
20/05/2023 12:26 | |
estragga random le lettere dell'alfabeto, ho le 26 lettere e me le deve estrarre una alla volta finché non finiscono. Random nel senso che se poi ricomincio l'estrazione da capo non deve darmele nello stesso ordine della prima volta |
| | Post: 100 | Registrato il: 03/05/2020
| Età: 62 | Utente Junior | 2007 | | OFFLINE | |
|
20/05/2023 16:51 | |
Cosi'
|
| | Post: 7.280 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
20/05/2023 18:08 | |
Ciao ecco il file con la macro che fa il lavoro, lunica cosa, ho fatto in modo di avere le lettere tutte unite oppure divise per cella, basta che nella cella gialla ci sial la Lettera "U" per averle unite e "D" per divise.
ogni volta che clicchi la freccia esce una nuova serie di lettere.
Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 3.506 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
21/05/2023 11:22 | |
ciao
propongo un'alternativa...
saluti
questo il codice nell'allegato
Dim mColl As New Collection, c As Integer
Sub LettereRnd()
Dim k As Boolean
If Range("B1") = 26 Then
MsgBox "Tutte le lettere sono state estratte"
Exit Sub
End If
c = Cells(2, Columns.Count).End(xlToLeft).Column + 1
If c < 5 Then c = 5
Do Until k <> False
lettera = WorksheetFunction.RandBetween(65, 90)
On Error Resume Next
mColl.Add lettera, CStr(lettera)
If Err = 0 Then k = True
On Error GoTo 0
Loop
If k Then
Cells(2, c) = Chr(lettera)
Range("B1") = Range("B1") + 1
Range("B2") = 26 - Range("B1")
End If
End Sub
Sub ClearAll()
Set mColl = Nothing
Range("B1:B2").ClearContents
Range("E2:AD2").ClearContents
End Sub
EDIT: sono curioso, se possibile puoi spiegare a cosa ti serve??
[Modificato da dodo47 21/05/2023 17:35] Domenico
Win 10 - Excel 2016 |
|
|