Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 
Nepodařilo se připojit k serveru.

#1 9. 8. 2011 11:33:50

oriesok
Člen
Registrace: 9. 8. 2011
Příspěvků: 3

funkcia pre kopírovanie buniek medzi listami - VYŘEŠENO

Ahojte, potreboval by som pomôcť. V OO calc by som potreboval vytvoriť funkciu, ktorá by po stlačení určeného tlačidla prekopírovala hodnoty z dvoch buniek z listu 1 do listu 2 do správnych buniek. Prikladám vzorovú tabuľku.

Editoval oriesok (9. 8. 2011 15:18:54)

Offline

#2 9. 8. 2011 11:42:05

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: funkcia pre kopírovanie buniek medzi listami - VYŘEŠENO

Skuska.ods

Tu je odkaz na tu tabulku.

Nezapomínejte prosím zkopírovat adresu souboru do Vašeho příspěvku.
;o)


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 9. 8. 2011 14:05:46

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: funkcia pre kopírovanie buniek medzi listami - VYŘEŠENO

Tak toto by mělo fungovat. Uložte do maker, vytvořte tlačítko a spojte s makrem.

sub vyhledej_kopiruj
doc = thisComponent
listy = doc.sheets()
zdroj_list = listy.getByName("List2")
cil_list = listy.getByName("List3")
jmeno = zdroj_list.getCellRangeByName("E4").string ' vyhledávací kritéria
mesic = zdroj_list.getCellRangeByName("E3").string
zdroj_suma = zdroj_list.getCellRangeByName("E6").string
zdroj_hodiny = zdroj_list.getCellRangeByName("E7").string


for i = 0 to 24 ' pro sloupce 0 - 24
 hledej_mesic = cil_list.getCellByPosition(i, 3).string ' (A-Y:4)
 if hledej_mesic = mesic then ' najde první shodu
  exit for
 endif
next i
for j = 0 to 100 ' pro řádky 0 - 100
 hledej_jmeno = cil_list.getCellByPosition(0, j).string ' (A:1-100)
 if hledej_jmeno = jmeno then ' najde přvní shodu
  exit for
 endif
next j


suma = cil_list.getCellByPosition(i,j) ' ve sloupci a řádku, kde byla shoda    
hodiny = cil_list.getCellByPosition(i+1, j) ' vedlejší buńky než suma
suma.string = zdroj_suma ' vložíme hodnotu
hodiny.string = zdroj_hodiny ' vložíme hodnotu

end sub

Skuska 2.ods


;o)


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#4 9. 8. 2011 15:15:10

oriesok
Člen
Registrace: 9. 8. 2011
Příspěvků: 3

Re: funkcia pre kopírovanie buniek medzi listami - VYŘEŠENO

Funguje to skvele, Ďakujem

Offline

#5 10. 8. 2011 06:48:56

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: funkcia pre kopírovanie buniek medzi listami - VYŘEŠENO

Ještě malý tip, pokud si makro spojíte s Vaším kombinovaným polem - změna stavu položky, nebudete potřebovat ani tlačítko. Makro se spustí po kliknutí na jméno a automaticky kopíruje hodnoty.


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

Nepodařilo se připojit k serveru.

Zápatí