• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Podminene formatovani - vzorec pro VBA makro

Zaslal/a siruk 13.5.2021 15:59

Zdravim vas,

potrebuji prosim tento vzorec pro podminene formatovani vlozit do makra.
A($B4="/n";$N4<>3333)

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A($B4="/N";$N4<>3333)"
Pokud ho však vložím do VBA kodu, tak mi hlasi Compile error - Expected End of Statement.

Pokud vsak makro nahraju a vlozim tento kod, tak mi ho VBA prevede do tohoto formatu, ktery sice nehaze compile error, ale nefunguje.
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=""A($B4=""""/n"""";$N4<>3333)"""
Muze mi nekdo, prosim poradit, jak vzorec do VBA zapsat aby byl funkcni a kompilovatelny?

Diky

Zaslat odpověď >

---

elninoslov(13.5.2021 17:13)#050669

With Range("B4").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($B4=""/n"";$N4<>3333)")
.Font.Bold = True
.Interior.Color = vbRed
End With
Ale problém je v jazykovej mutácii Excelu. FormatConditions nemá možnosť vkladať vzorce v lokálnom prevedení (FormulaLocal). Bežne sa ale vo VBA vkladajú EN vzorce. No zrovna FormatConditions vkladá Local vzorce. Problém ale niesú len preklady, ale aj oddeľovače "," vs ";". Riešením by možno bolo dočasne rýchlo vložiť do bunky (alebo do Def. názvu) EN vzorec cez Formula, a prečítať ho naspäť ako FormulaLocal, a tento prečítaný vložiť do FormatConditions, keďže tam sa vkladajú len FormulaLocal. Pokus som ale nerobil. Možno neskôr...
Samozrejme v CZ nie je AND ale je tam A.

EDIT: tak predsa rýchlo...
Names.Add "LOCAL_HELP", RefersTo:="=AND($B4=""/n"",$N4<>3333)"
With Range("B4").FormatConditions.Add(Type:=xlExpression, Formula1:=Names("LOCAL_HELP").RefersToLocal)
.Font.Bold = True
.Interior.Color = vbRed
End With
Names("LOCAL_HELP").Delete
Ale kurzor musí byť na 1 riadku, v tomto prípade na B1.citovat

Vovka(31.8.2021 16:00)#051160

Problém v tomto případě není v lokalizaci vzorce, ale v nevhodném způsobu naplnění vlastnosti Formula1.
Zkuste zapsat příkaz takto:

Selection.FormatConditions.Add Type:=xlExpression, _
Formula1:="=A($B4=""/N"";$N4<>3333)"citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse