Tabelle auswerten | Makro?

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Karolus
********
Beiträge: 7532
Registriert: Mo, 02.01.2006 19:48

Re: Tabelle auswerten | Makro?

Beitrag von Karolus »

Hallo Dieter
Lottoziehung, Javascript ?
kommt mir irgendwie bekannt vor

Karo
LO7.4.7.2 debian 12(bookworm) auf Raspberry5 8GB (ARM64)
LO25.2.3.2 flatpak debian 12(bookworm) auf Raspberry5 8GB (ARM64)
gogo
*****
Beiträge: 207
Registriert: Mi, 10.11.2010 13:11

Re: Tabelle auswerten | Makro?

Beitrag von gogo »

http://www.ooowiki.de/CalcFunktionenEigene

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
in die Zelle A1 schreibst Du: 5
in die Zelle A2 schreibst Du: =Mal_Zwei(A1)

Dann steht in A2 ... etwa genau 10 ... hab's nicht selbst gerechnet
g
LucidLynx/WinXP LibreOffice v3.3.2 ab 03/12 v3.3.2 & v3.4.5
Karolus
********
Beiträge: 7532
Registriert: Mo, 02.01.2006 19:48

Re: Tabelle auswerten | Makro?

Beitrag von Karolus »

Hallo

Schau dir mal das Dokument im Anhang an, ( zuerst auf der eigenen Platte speichern und von dort öffnen )
py_lotto.ods
(69.42 KiB) 154-mal heruntergeladen
Den Quelltext gibts auch nochmal extra:

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 )
Gruß Karo
LO7.4.7.2 debian 12(bookworm) auf Raspberry5 8GB (ARM64)
LO25.2.3.2 flatpak debian 12(bookworm) auf Raspberry5 8GB (ARM64)
gogo
*****
Beiträge: 207
Registriert: Mi, 10.11.2010 13:11

Re: Tabelle auswerten | Makro?

Beitrag von gogo »

Dieter hat geschrieben: ... musst wissen, dass ich blutiger anfänger ...
und das wird sich in vielen Dingen so bald nicht ändern. Viel Spass noch in Deinem Leben.
g
LucidLynx/WinXP LibreOffice v3.3.2 ab 03/12 v3.3.2 & v3.4.5
Karolus
********
Beiträge: 7532
Registriert: Mo, 02.01.2006 19:48

Re: Tabelle auswerten | Makro?

Beitrag von Karolus »

Hallo
Dieter hat geschrieben:FICKT EUCH ALLE ICH BIN FERTIG!
Danke, gern geschehen, wir freuen uns immer wieder wenn wir unentgeltlich helfen können ! 8)

Karo
LO7.4.7.2 debian 12(bookworm) auf Raspberry5 8GB (ARM64)
LO25.2.3.2 flatpak debian 12(bookworm) auf Raspberry5 8GB (ARM64)
Antworten