va egy elképzelésem amit szeretnék megvalósítani libreoffice calcban:
Van 2 db munkafüzet munkalapom:
Az első neve: "Szavak". Ebben az "A" oszlopban angol szavak, "B" oszlopban a magyar megfelelői vannak (szimpla szótár).
A második neve: "Daily challenge"
A daily challenge munkalap "A1" cellájába egy függvény véletleszerűen kiír egy angol szót a "Szavak" munkalapon található "A" oszlop szavaiból. A "B1" cellába én írom a megoldást.
Ha a Magyar szópár nem egyezik meg a "Szavak" munkafüzetben található szópárral, akkor a "C1" cellába piros szöveggel a "helytelen" szó jelenik meg.
Ha a szópár egyezik a "Szavak" munkafüzetben található szópárral, akkor a "C1" cellába zöld szöveggel a "helyes" szó jelenik meg.
Ehhez valamicskét konyítok (ámátőr szinten), de sajnos többszöri próbálkozásra sem sikerült. Illetve "működik, de nem csinál semmit. Ime:
Kód: Egész kijelölése
=INDEX('Szavak’!A:A; VÉLETLEN.KÖZÖTT(1, DARAB2(Szavak!A:A)), 1)Illetve még próbálkoztam libreoffice basic-el, de ahhoz végkép süket vagyok. Interneten nézegettem lehetőségeket, és összetákoltam valamit, de itt se fut le semmi. Ime:
Kód: Egész kijelölése
Sub DailyChallenge()
Dim szavakSheet As Object
Dim dailyChallengeSheet As Object
Dim lastRow As Long
Dim randomIndex As Integer
Dim randomWord As String
' Az "Szavak" munkalap hivatkozása
szavakSheet = ThisComponent.Sheets.getByName("Szavak")
' A "Daily Challenge" munkalap hivatkozása
dailyChallengeSheet = ThisComponent.Sheets.getByName("Daily Challenge")
' Az "Szavak" munkalap utolsó nem üres sorának meghatározása az "A" oszlopban
lastRow = szavakSheet.getCellRangeByName("A1").getDataArray().getLength(0)
' Ellenőrizze, hogy van-e legalább egy szó az "Szavak" munkalapon
If lastRow > 0 Then
' Véletlenszerű index generálása
Randomize
randomIndex = Int((lastRow - 1 + 1) * Rnd + 1)
' Véletlenszerűen kiválasztott angol szó meghatározása
randomWord = szavakSheet.getCellByPosition(0, randomIndex).getString()
' Angol szó megjelenítése a "Daily Challenge" munkalap "A1" cellájában
dailyChallengeSheet.getCellByPosition(0, 0).setString(randomWord)
End If
End Sub
Előre is köszi a válaszokat.
