un amico vorrebbe passare a openoffice, un bel po di tempo fa gli feci
un piccolo programma per il gioco del lotto con delle macro, potreste
darmi delle indicazioni su come trasformarle per ooo???
eccone una per esempio :-) grazie in anticipo di ogni indicazione
Sub bari()
'
' bari Macro
ActiveSheet.Unprotect
Range("A11").Select
numero1 = Range("Foglio1!A10").Value
colonna_ruota_1 = 3
colonna_ruota_consecutiva = 8
colonna_ruota_precedente = 48
colonna_ruota_diametrale = 28
Range("B9").Value = colonna_ruota_1
Range("F6").Value = colonna_ruota_consecutiva
Range("J6").Value = colonna_ruota_precedente
Range("N6").Value = colonna_ruota_diametrale
Range("A11:A31").ClearContents
Range("B11:B31").ClearContents
k1 = 11
For i = Range("Foglio1!A2").Value To Range("Foglio1!C2").Value Step -1
For j = 0 To 4
If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1
Then Range("Foglio1!A" & k1).Value = i
If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1
Then Range("Foglio1!B" & k1).Value = 1 + j
If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1
Then k1 = k1 + 1
Next j
Next i
ambi
Range("A10").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingCells:=True
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
