OpenOffice.info

Code: Alles auswählen

function Mal_Zwei(bezugZelle)
on error goto Err_Mal_Zwei

 Mal_Zwei = bezugZelle *2

exit function
Err_Mal_Zwei:
Mal_Zwei = "Fehler!!!"
end function

Code: Alles auswählen

#!
# -*- coding: utf_8 -*-

import uno
from random import sample

context = XSCRIPTCONTEXT

def lotto():
    return tuple(sorted( sample(range(1,50),6)))

def setlottoziehungen(dummy=None):
    starc, startrow = 0, 5
    doc = context.getDocument()
    sourcerange = doc.getCurrentSelection()
    sheet = sourcerange.getSpreadsheet()
    sheet.getCellRangeByPosition(0,5,5,1000000).clearContents(1)
    anzahl =  int(sheet.getCellRangeByName("B1").getValue())
    endrow = startrow + anzahl -1
    out = tuple([ lotto() for _ in range(anzahl) ])
    outrange = sheet.getCellRangeByPosition(0,5,5,endrow)
    outrange.setDataArray( out )