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

#1 21. 6. 2013 14:07:08

tanga2
Člen
Registrace: 21. 6. 2013
Příspěvků: 1

Mezisoučty a vyhledani shodnych jmen - VYŘEŠENO

Zdravim,
prosim o radu..
Mam subor1 ktorý pomocou fcie DATA-Mezisoucty upravím seskupím podla PRIJEMCE a scitam mezisoucty pro LITRE. Potom mam subor2 v ktorom mam mena prijemcov ktorych chcem v subore1 vyznacit/vymazat.

Nevadi mi ak sloupec zo suboru2 nakopirujem niekam do suboru1... Chcem len  aby zhodne mena zo suboru1 boli nejak oznacene farbou/alebou znackou vedla v sloupci...

PS: najlepsie by to bolo ak by ten subor1 ostal tak ako je (myslim tie mezisoucty...) akorat tam tie mena boli vyznacene/vymazane

velke DAKUJEM!!!!

odkazy na:
Subor1.xls
Subor2.xls


_________________________________________________

Značím jako vyřešené


;o)

Editoval sedlacekdan (10. 11. 2013 12:35:30)

Offline

#2 22. 6. 2013 16:09:11

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 2,678

Re: Mezisoučty a vyhledani shodnych jmen - VYŘEŠENO

Posílám makro, které jsem přizpůsobil Vašim potřebám. Makro vybarvuje žlutě položky v "Suboru1". Je poměrně pomalé (iterace položky Subor1 * položky Subor2).
- Aby fungovalo, musíte zadat adresu jako URL (po Subor2) přímo v kódu - je tam poznámka. (Nejlepší způseb je vytvořit hyperlink a z něj adresu zkopírovat)
- Soubor2 má tvrdě nastaven počet cyklů 300. To se dá přepsat podle potřeby (tak aby makro přečetlo samo kolik je tam záznamů).
- Také je možné to celé vyšperkovat a zejména zrychlit, ale chvíli by to trvalo.
- Je možné například vybarvit příslušnou položku v Suboru2 a (nebo) vymazat.
- Také je možné přímo mazání položek v Souboru1 a následně doznačit barvou v Suboru2.
- Makro, které je níže zkopírujte do sešitu Subor1 a přiřaďte k němu tlačítko

sub KontrolaLudi
Dim arg(0) As New com.sun.star.beans.PropertyValue
arg(0).Name = "Hidden" 
arg(0).Value = True
adresa = convertToURL("file:///C:/Documents%20and%20Settings/Petr%20Neudek/Dokumenty/Odesl%C3%A1no%20do%20f%C3%B3ra/tanga2/Subor2.ods")'Tohle chodilo u mne
'adresa = convertToURL("SEM vykopírujete adresu skladu - zjistíte to pomocí HYPERLINKU")
Subor1 = thisComponent
Dim oCell As Object
oCell = ThisComponent.CurrentController.getSelection()
With oCell.RangeAddress
SH = .Sheet
ER = .EndRow
End With
For j = 1 To ER
Subor_1 = Subor1.sheets(SH) 
pol_clovek1 = Subor_1.getCellByPosition(1,j)

Subor_2 = stardesktop.loadComponentFromUrl(adresa,"_blank",0,arg())
ludi_2 = Subor_2.sheets(0)
for i = 0 to 300  'Tady se nastavuje počet řádků v dokumentu Subor2 - je to pomalé, šlo by to předělat.
  pol_clovek2 = ludi_2.getCellByPosition(0, i)
  IF pol_clovek1.string = pol_clovek2.string Then  
  pol_clovek1.CellBackColor = RGB (255,255,0)'Tohle je barva podkladu
  End If   
next i
next j
Subor_2.close(True)
Print "Kontrola dokončena"
end sub

Když Vám nebude něco jasné napište


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 24. 6. 2013 19:18:38

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

Re: Mezisoučty a vyhledani shodnych jmen - VYŘEŠENO

Vítejte na fóru,
šlo by použít i podmíněné formátování s funkcí COUNTIF
Podmíněné formátování - čísla ve dvou sloupcích.


Samozřejmě by bylo nutné překopírovat seznam z Subor2 někam do Subor1 a upravit adresování v podmínkách.



;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

Zápatí