Nemám excel 2010, ale stejně si tipnu
Podle mne je to ztraceno v překladu (ve verzi 2010 nějaký aktivní lokalizátor přeložil RIGHT jako VPRAVO místo obvyklého ZPRAVA - možná později opraveno nějakou aktualizací - nevím)
Zkuste následující úpravu - jestli pomůže With Range(Range("q2"), Range("q2").End(xlDown))
.FormatConditions.Delete
On Error Resume Next
.FormatConditions.Add Type:=xlExpression, Formula1:="=ZPRAVA(r2;2)=""km"""
If Not Err.Number = 0 Then
.FormatConditions.Add Type:=xlExpression, Formula1:="=VPRAVO(r2;2)=""km"""
End If
On Error GoTo 0
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With '.FormatConditions(1).Font
End With 'Range(Range("q2"), Range("q2").End(xlDown))
podla mna netreba ani debugovat to a staci tam dat len anglicky nazov:
With Range(Range("G2"), Range("G2").End(xlDown))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=RIGHT(R2;2)=""km"""
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End With
Standa-B(1.4.2015 21:21)citovat#024342 Dík za náměty. Podle očekávání u mého EXCEL 2010 Profesional náhrada instrukce ZPRAVA instrukcemi VPRAVO nebo RIGHT nefunguje. Jen mne překvapuje , že EXCEL 2010 Profesional vzorec "=RIGHT(r2;2)=""km""" akceptuje bez hlášení chyby, ale nastavené formátování se neprovede (jak píšu výše, formátování nefunguje).
Zítra to vyzkouším u uživatelů aplikace excel s tím problémovým Makrem s nefunkční instrukcí, kteří mají EXCEL 2010 Standard. Pak se ozvu.
A zkusils "Right" a místo středníku, čárku?
Nemusím to ani zkoušet abych věděl, že to fungovat nemůže.
Mluvím o českém excelu:
Pokud napíšete do buňky vzorec=RIGHT(B2;2)tak vás excel pustí, ale výsledkem bude #NÁZEV. RIGHT není integrovaná funkce, ale může to být uživatelská funkce a proto excel nezablokuje její vložení.
Naproti tomu při pokusu vložit =RIGHT(B2,2)to excel prostě nedovolí, protože jako oddělovač argumentů slouží ";". Čárka je oddělovač desetinných míst a proto je výraz B2,2 vyhodnocen jako chybný - není číslo, není odkaz a není ani text.
@Palooo - rozhodně nestačí ;) - nemyslete si že mne nenapadlo použít anglický vzorec. Jenže FormatConditions nezná Formula/FormulaLocal. A jak jsem napsal, český excel toto prostě nepochopí tak, jak byste si přál ;)
@Standa-B
Podle toho co jsem teď napsal, by ale neměl fungovat ani kód, který jsem vložil já - ale stejně to zkuste.
Jen mne překvapuje , že EXCEL 2010 Profesional vzorec "=RIGHT(r2;2)=""km""" akceptuje bez hlášení chyby
On Vám tu chybu hlásí, jenže Vy ji nevidíte, protože je výsledkem ve vzorci pro podmíněné formátování - výsledek je #NÁZEV a proto se formátování nezmění - to se provede pouze, pokud je výsledek PRAVDA. Takže ji hlásí tak, že neprovede formátování ;) - vložte vzorec do buňky a uvidíte ;)
Co by ale mělo fungovat je vzorec=IFERROR(VPRAVO(R2;2);ZPRAVA(R2;2))="km"nebo=COUNTIF(R2;"*km")
A ještě jen technická - pokud budete takto napsaný kód používat výhradně v česky lokalizoaných excelech, bude to fungovat - nicméně, pokud už byste ho spustil v jiné lokalizaci, fungovat to nebude. Tady bych šel asi cestou definovaného názvu, protože ten si každá lokalizace přeloží automaticky - ale to jen tak na okraj ;)
to som netusil ze v ceskom to nejde lebo v Nemeckom a Slovenskom to ide.
alebo vytcorit si vlasnu funkciu a riesit to cez VBA tam uz ten prikaz urcite nebude premenovany do jazyku :)
Standa-B(2.4.2015 9:29)citovat#024352 Děkuji všem za pomoc při řešení dotazu. Omluvte mne, že Vaše náměty nemohu testovat obratem na svém PC. Musím se obracet na kolegy v "jiných městech", kteří mají EXCEL 2010 Standard ve svých PC, a moje aplikace jim havaruje.
Jen dodám, že celá aplikace pro EXCEL má několik tisíc programových řádků ve Visual Basic a je provozována na řadě počítačů s OS XP až W8.1 s EXCEL 2003, 2007 a 2010. Dále byla převedena také do Finštiny a pracují s ní technici ve Finsku.
Úkolem aplikace je převod vstupního jednoduchého kódovaného datového TXT souboru chybových dat z lokomotivy do přehledné formy tabulky EXCEL s textovými názvy chyb a reálnými fyzikálními jednotkami včetně grafických výstupů a statistiky.
Aplikace se vyvíjí od roku 2005 a byla upgradována vždy při každé nové verzi EXCEL a OS.
Nyní jsme narazili na problém u EXCEL 2010 Standard, který se snažím s Vaší pomoci vyřešit.
Ideální by bylo, kdyby někdo z mých odborných poradců měl přístup k EXCEL Standard a náměty měl možnost hned ověřit. Na dálku s uživateli se mi pracuje obtížně.
@Palooo
to som netusil ze v ceskom to nejde lebo v Nemeckom a Slovenskom to ide.
Pokud je ekvivalent fce ZPRAVA v německém excelu RIGHT tak Vám to fungovat bude. Pokud ne, tak Vám nevěřím, že to funguje (myslím funkční podmíněný formát) ;))
alebo vytcorit si vlasnu funkciu a riesit to cez VBA tam uz ten prikaz urcite nebude premenovany do jazyku :)
Tohle jsem jako nečetl ;)))
@Standa-B
Jednoduché řešení - nainstalujte si doma Office 2010 Standard na virtuální počítač a ověřte si to.
Všechny 3 řešení, které jsem Vám nabídl fungují na českém excelu 2007 a jsem si na 99% jistý, že poslední dva budou fungovat i na českém excelu 2010 Standard. Takže pokud nemáte možnost zkoušet, změňte ve Vašem kóduSelection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZPRAVA(r2;2)=""km""naSelection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(R2;""*km"")"Technická: Pokud to vyvíjíte od roku 2005, už byste mohl vědět, jak se zbavit těch Selectů...
Ve Finsku mají česky lokalizovaný excel? Pokud ne, jste si jistý, že jim tam funguje podmíněný formát se vzorcem:=ZPRAVA(r2;2)="km"?
RSS nejnovější články