OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

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)

neutr

Člen

Registrace: 8. 3. 2007

Příspěvků: 3,468

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

---

Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

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É