Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 Re: Calc » Rozbalovací seznam pomocí makra » 27. 7. 2019 09:41:43

pánové díky za váš čas, šlo mi prakticky čistě jen o tu funkci:

Function vlozPlatnost(oCell as object, pole(), optional sVychozi$) 'vloží do buňky rozbalovací seznam jako z menu Data/Platnost; při zadání sVychozi nastaví i výchozí text v buňce
	dim oValid, s$, i%, sUv$
	if NOT isMissing(sVychozi) then oCell.string=sVychozi 'výchozí hláška do dané buňky
	rem vytvoření řetězce s položkami seznamu
	sUv=chr(34) 'znak uvozovky "
	s=sUv 'řetězec s položkami do seznamu s první otevírací uvozovkou; musí jít o řetězec ve formátu: "možn1";"možn2";"možn3" atd.
	for i=lbound(pole()) to ubound(pole()) 'prochází položky seznamu
		s=s & pole(i) & sUv 'přidá položku s uzavírací uvozovkou
		if i<>ubound(pole()) then s=s & ";" & sUv 'když nejde o poslední položku tak ještě vloží středník a otevírací uvozovku pro další položku
	next i
	rem nastavit seznam do buňky
	oValid=oCell.Validation 'výchozí Data/Platnost v buňce
	with oValid
		.Type=com.sun.star.sheet.ValidationType.LIST 'jakožto seznam
		.setFormula1(s) 'položky seznamu
		.IgnoreBlankCells=true 'ignorovat prázdné buňky
		.ShowList=1 'zobrazení vybírátka (šedý čtverček s černým trojúhelníkem pro výběr hodnot)
	end with
	oCell.Validation=oValid 'nastavit do buňky daný seznam
End Function

#2 Re: Calc » Rozbalovací seznam pomocí makra » 26. 7. 2019 13:37:49

Možná je to tím horkem, ale já v tom řešení mého problému nevidím smile

#3 Re: Calc » Rozbalovací seznam pomocí makra » 26. 7. 2019 13:08:52

Jde mi spíš o následující problém: kopíruji a různě skládám data z jednoho listu do druhého. Jeden sloupec mám s buňkami, kde by měl být v každé buňce select s možnostmi. Chtěl bych jen spustit makro a ve druhém listu se mi provedou připravené akce + vytvoření sloupce se selecty, které nemají na ničem závislost. Jde jen čistě o vytvoření sloupce selectů bez toho abych musel někam klikat, jen v makru.

#4 Calc » Rozbalovací seznam pomocí makra » 26. 7. 2019 12:21:58

davef8
Odpovědí: 7

Zdravím, poprosím o drobnou radu, je možné nějak jednoduše vytvořit rozbalovací seznam do buňky pomocí makra se 3 danými hodnotami (ano, ne, nevím)? Něco jako:

thisComponent.Sheets(1).getCellByPosition(i,j).něco = jednoduchý kód pro seznam

díky

#6 Calc » Makro, odkaz na vedlejší list » 24. 7. 2019 11:23:51

davef8
Odpovědí: 3

Zdravím, mám 2 listy a makrem kopíruji některé údaje z jednoho do druhého. Je možné docílit toho, že pak když kliknu to buňku druhého listu, abych tam měl vzorec a ne jen string? Např. =list1.A2 ? Nikde to nemohu dohledat

teď to dělám následovně: thisComponent.Sheets(2).getCellByPosition(i,j).String = thisComponent.Sheets(1).getCellByPosition(3,j).Value

díky

#8 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 3. 5. 2019 15:11:04

Teď už to vypadá funkční, kde mohu prosím odstranit tu hlášku?

#9 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 3. 5. 2019 15:06:25

Problém nastal u podílu 49/100, vyzkoušeno i na testovacích datech, pokud jsem změnil podíl na tuto hodnotu, tak to také neprojelo se stejnou chybou

#10 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 3. 5. 2019 14:17:15

Mohu přeci jen ještě poprosit o radu? U jedněch ostrých dat se vyskytl problém viz. screen: https://uloz.to/!zeWFDSp7PiCH/screen-jpg

Zřejmě způsobují hodnoty ve sloupci F, kde může být např. 1/10, nebo klidně 49/2400

#12 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 3. 5. 2019 08:34:47

Super, takto to je přesně jak potřebuji. Ještě jeden drobný detail, šlo by vždy u posledního "čísla" odstranit čárku? A pokud by to nezabralo moc času, přidat tedy navíc ještě ten sloupec s výpisem parcel mezi svislítky vedle sloupce "výměra parcely". Jinak je to asi komplet.

#13 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 3. 5. 2019 06:52:37

neutr napsal(a)

- To není velký problém. Jde o čísla parcel a když se sečtou m2 tak to asi stačí, jenže pak nebude znám výsledný počet dílů na stejné parcele. Zpětný přepočet asi není potřeba - chodilo by to do % ale vyjádřit poměr by byla hra se zlomky - dost nepříjemné vyjádření ačkoliv možné.

Nevím jestli správně chápu co mi tu píšete. Se sloupcem "číslo" již nebudu dále pracovat, ale pokud se požívá tento sloupec pro další přepočet, dal by se přidat ještě další pomocný sloupec a ten použít pro přepočet? Nevím, jen přemýšlím nahlas smile

Děkuji

#14 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 2. 5. 2019 18:06:00

wow, vypadá to dobře, děkuji, mám jen problém, že když v LibreOffice dám spustit makro, začne mi tam vyskakovat několikrát (více jak 10x) prázdné upozornění viz. screen https://uloz.to/!MRxFdwOhndV1/screen-jpg (na funkci to zřejmě nemá vliv)

Mohl bych ještě poprosit aby:

- ve sloupci číslo místo např. 128| 151| 151| 151| 151| 151| 151 bylo jen 128, 151 (vypsat jen neduplicitní čísla, tady budou vždy jen celá, kladná čísla)
- sloupec výměra parcely, orná půda a trvalý travní porost aby se ty hodnoty v jednotlivých sloupcích sečetly např.  místo 41315| 6750 aby bylo jen 48065...... v těchto sloupcích budou jen čísla s max. 2 des. místy
- pokud jsem správně pochopil, že je možné automaticky roztáhnout sloupce ve druhém listu na šířku obsahu, to by se určitě hodilo
- zkoušel jsem těch 10/12 a funguje to

ještě jednou díky za váš čas

#15 Re: Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 2. 5. 2019 14:09:31

Děkuji za odpověď. Práce s daty je následující. Externí program vygeneruje data do xslx souboru viz. první tabulka a makro může data převést klidně do nového listu, kde se s těmito daty dále pracuji. Formát může být xslx. Jde o to aby se tento úkon dal opakovat při každém vygenerování xslx externím programem. Takže asi pak vždy budu importovat do nově vygenerovaného souboru makro a spustím ho, případě použiji vždy ten jeden sešit, kde do prvního listu vložím nová data a spustím makro?

#16 Calc » Sloučení řádků dle určitých kritérií - VYŘEŠENO » 2. 5. 2019 12:07:22

davef8
Odpovědí: 18

Zdravím,

byl by někdo ochoten napsat makro na sloučení řádků dle určitých kritérií? Nedokáži odhadnout složitost, možná práce na chvilku možná ne.

Soubor s testovacími daty a zadání: http://mp3stahuj.cz/zadani.xlsx

díky i za případné rady

#17 Re: Calc » Zachování hodnot i na jiném PC » 6. 4. 2019 18:01:49

díky za odpověď, nakonec mi stačilo odpojit zdroj dat

#18 Calc » Zachování hodnot i na jiném PC » 6. 4. 2019 10:09:27

davef8
Odpovědí: 2

Zdravím,

mám sešit a list (L1) a v něm určité hodnoty. Tyto hodnoty převádím do dalšího listu (L2) a odkazuji na ně např. =$L1.A2, poté nad druhým listem dám Přesunout nebo kopírovat list a dám kopírovat jako nový dokument, Poté tento dokument Uložím jako.. Je nějak možné docílit toho, že data v nově uloženém sešitu budou vidět třeba i na jiném PC, které nebude mít zdrojový sešit? Pokud kliknu do buňky v novém sešitu vidím tam teď něco jako ='file:///C:/Users/neco/databaze.xlsx'#$L1.A2

díky za odpověď

#20 Calc » Pomoc se sloučením buněk » 22. 11. 2018 10:40:35

davef8
Odpovědí: 2

Zdravím,

byl by někdo tak hodný a pomohl mi se slučováním buňek v libreoffice? Mám tabulku:

http://www.mp3stahuj.cz/screen.jpg

Pevně jsou dány první 2 sloupce. Sloupec Group (C) přidává hodnotu stejných hodnot A a poslední stejný v C nemá hodnotu (pak dle toho odfiltruji vyfiltruji) se vzorcem =IF(AND($A$2:$A$10=A3);A2;""). Poradit potřebuji jak vypsat sloupec D dle následujícího klíče, viz. obrázek

Je tu někdo, kdo by byl schopný poradit? díky

Zápatí

Používáme FluxBB