Mozna za to muze vcerejsi vecirek, ale tenhle problem jsem nejak nepochopil, nemel bys nejakej priklad?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hledat text z oblasti.
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Hledat text z oblasti. 
Zaslal/a 5.3.2010 14:27
Potřebuji přes podmíněné formátování (obarvit) vyhledat naráz texty z vícero buněk ve sloupci B v textech ve sloupci A a to i pokud je ve sloupci A v buňce i jiný text kromě textu ze sloupce B bez rozlišení velikosti písmen. Nevíte jak na to?
Uzamčeno - nelze přidávat nové příspěvky.(6.3.2010 14:56)#001318
Ve sloupci B máš seznam obcí v jednom okrese, co buňka to obec: Kolodějov, Pavlov, Straková....
Ve sloupci A je seznam restaurací v celém kraji, u každé restaurace je uveden název, ulice, obec: U Petra, Švermova 13, Žamberk – co řádek to jedna restaurace.
No a v seznamu A restaurací je třeba označit jen restaurace v obcích obsažených v seznamu B.
Zkoušel jsem to přes podmíněné formátování přes funkci hledat, ale ta funguje jen pro hledání slova z jedné buňky – tj. hledat každou obec zvlášť, ale né z vícero buněk naráz. Půjde to?citovat
Ve sloupci A je seznam restaurací v celém kraji, u každé restaurace je uveden název, ulice, obec: U Petra, Švermova 13, Žamberk – co řádek to jedna restaurace.
No a v seznamu A restaurací je třeba označit jen restaurace v obcích obsažených v seznamu B.
Zkoušel jsem to přes podmíněné formátování přes funkci hledat, ale ta funguje jen pro hledání slova z jedné buňky – tj. hledat každou obec zvlášť, ale né z vícero buněk naráz. Půjde to?citovat
Ahoj, než vymýšlet jak toho docílit vzorcem, tak je rychlejší napsat makro, případně vlastní funkci.
Zkusil jsem to přes makro:
Public Sub oznac()
For Each cell In Range("RESTAURACE")
For Each cell2 In Range("OBCE")
If InStr(1, cell, cell2) <> 0 Then cell.Interior.Color = vbRed
Next
Next
End Sub
podmínkou je mít pojmenované oblasti:
RESTAURACE = seznam všech restaurací (např. A1:A100)
OBCE = seznam všech obcí (např. B1:B20)
M@citovat
Zkusil jsem to přes makro:
Public Sub oznac()
For Each cell In Range("RESTAURACE")
For Each cell2 In Range("OBCE")
If InStr(1, cell, cell2) <> 0 Then cell.Interior.Color = vbRed
Next
Next
End Sub
podmínkou je mít pojmenované oblasti:
RESTAURACE = seznam všech restaurací (např. A1:A100)
OBCE = seznam všech obcí (např. B1:B20)
M@citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články