Celle: mescolare valori in modo random

ramus

unread,

Mar 10, 2016, 6:29:45 PM3/10/16

to

Ho 8 celle (una sotto l'altra, diciamo da C1 a C8) e in ognuna di esse
c'è una parola.

E' possibile (come?) creare un pulsante che mescola queste celle in modo
random?

Per capirsi ... con chi lo conosce... se fosse un array e usassi php
potrei usare array_rand o shuffle()

--
ramus

martello

unread,

Mar 11, 2016, 11:01:02 AM3/11/16

to

> E' possibile (come?) creare un pulsante che mescola queste celle in modo
> random?

Scrivendo una macro in star basic.

zamb...@gmail.com

unread,

Mar 11, 2016, 1:42:42 PM3/11/16

to

crei una colonna a fianco con in ogni cella una formula tipo "=CASUALE.TRA(1;1000)"
ogni volta che ne hai bisogno ordini le righe in base a quella colonna: ad ogni ordinamento il numero casuale viene ricalcolato e quindi l'ordinamento successivo cambierà
se non riesci vedo di creare un file di esempio
ciao
Luigi

ramus

unread,

Mar 11, 2016, 7:52:33 PM3/11/16

to

martello <mart...@martello.martello> wrote:

> Scrivendo una macro in star basic.

beh... immaginavo che per comandare un pulsante ci volesse una
macro........

Ma quale? Hai del codice da suggerirmi?

--
ramus

ramus

unread,

Mar 11, 2016, 7:52:34 PM3/11/16

to

<zamb...@gmail.com> wrote:

> crei una colonna a fianco con in ogni cella una formula tipo
> "=CASUALE.TRA(1;1000)" ogni volta che ne hai bisogno ordini le righe in
> base a quella colonna: ad ogni ordinamento il numero casuale viene
> ricalcolato e quindi l'ordinamento successivo cambierà se non riesci vedo
> di creare un file di esempio ciao Luigi

Ottimo, potrei fare così... Ma è possibile portare il tutto a funzionare
cliccando su un pulsante? Vorrei farlo usare anche a mio padre che non
sa niente di menu e ordinamenti...
--
ramus

martello

unread,

Mar 12, 2016, 5:17:53 AM3/12/16

to

>> Scrivendo una macro in star basic.
>
> beh... immaginavo che per comandare un pulsante ci volesse una
> macro........
>
> Ma quale? Hai del codice da suggerirmi?
>

Beh devi programmare un po'.
Con le seguenti funzioni puoi leggere e scrivere le celle di calc.
Un po' di codice in basic per mescolarle e il gioco è fatto.

'_______________________________________________

Sub ScriviCellaPerPosizione (foglio,colonna,riga,stringa)
' Scrivi una stringa in una cella
Doc = ThisComponent
Sheet = Doc.Sheets(foglio)
Cell = Sheet.getCellByPosition(colonna, riga)
Cell.string = stringa
End Sub

'_______________________________________________
Function LeggiCellaPerPosizione (foglio,colonna,riga)
' Leggi una stringa da una cella
Doc = ThisComponent
Sheet = Doc.Sheets(foglio)
Cell = Sheet.getCellByPosition(colonna, riga)
LeggiCellaPerPosizione =Cell.String
End function
'_______________________________________________

Per aggiungere il pulsante devi aprire la barra degli strumenti di
controllo formulario.
Vai in editing, aggiungi il pulsante, lo associ alla macro che hai fatto
ecc. ecc.

zamb...@gmail.com

unread,

Mar 12, 2016, 12:26:26 PM3/12/16

to

basta dirgli di cliccare sul pulsante ordina nella barra standard: ci sono disegnate le lettere A e Z una sull'altra e una freccia in giù

ramus

unread,

Mar 12, 2016, 5:45:17 PM3/12/16

to

<zamb...@gmail.com> wrote:

> basta dirgli di cliccare sul pulsante ordina nella barra standard: ci sono
> disegnate le lettere A e Z una sull'altra e una freccia in giù

-.-

--
ramus