Ho provato a cercare una soluzione con un numero casuale di numeri casuali (
) ma c'è un piccolo problema:
l'ultimo numero potrebbe superare il massimo deciso o essere più piccolo del minimo deciso.
Nell'esempio che ti allego ho optato per lasciare che il problema potrebbe essere che l'ultimo sia più grande perchè ho visto che capita meno frequente...ma capita.
Ho provato varie soluzioni ma il problema è sempre che l'ultimo o un'altro dei numeri sia più alto del massimo.
Con le mie competenze mi fermo qui...se qualcuno più bravo riesce a risolvere questo dilemma, sarei curioso anche io di sapere la soluzione.
Ah, per comodità ho dato un nome a tutta la colonna B (chiamandola "ColonnaB") così da poter chiamarla col nome nella macro invece di dover chiamare l'intervallo.
Codice: Seleziona tutto
Sub Main
s=thiscomponent.sheets(0)
min=s.getcellbyposition(1,0).value
max=s.getcellbyposition(1,1).value
fine=s.getcellbyposition(1,2).value
somma=0
riga=0
s.getCellRangeByName("ColonnaB").clearContents(7)
do while somma < fine
a = int (rnd()*100)
if a > min and a < max then
somma = somma + a
if somma > fine then
somma = somma - a
a = fine - somma
if a < min then
s.getcellbyposition(2,riga-1).value = s.getcellbyposition(2,riga-1).value + a
exit do
else
s.getcellbyposition(2,riga).value = a
exit do
end if
exit do
end if
s.getcellbyposition(2,riga).value = a
riga = riga + 1
end if
loop
End Sub
