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

#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

Zápatí