< návrat zpět

MS Excel


Téma: VB v Excel Standard a Excel profesional rss

Zaslal/a 1.4.2015 13:16

Mám problém ve zpracování jedné instrukce Visual Basic, která funguje v EXCEL 2003, 2007 a 2010-profesional. V EXCEL 2010-Standard se VB na této instrukci zastaví s hlášením "Run time error '5': invalid procedure call or argument".
Instrukce vytváří jednoduchý podmíněný formát, kdy podle výrazu "km" v jedné buňce v řádku se jiná buňka stejného zvýrazní tučně a čeveně. Tato instrukce má tvar

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=ZPRAVA(r2;2)=""km"""

a je součásti jednouché programové sekvence

Range("q2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZPRAVA(r2;2)=""km"""

With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With

Pro EXCEL 2010 Standard jsem zkusil tento podmíněný formát přeskočit vložením instrukce

On Error GoTo EXCEL2010Standard

Takže uvedená sekvence měla tvar

Range("q2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Delete
On Error GoTo EXCEL2010Standard
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZPRAVA(r2;2)=""km"""

With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
EXCEL2010Standard:

Toto přeskočení se neuplatní u EXCEL 2003, 2007 ani u EXCEL 2010 profesional a podmíněný formát se provede. Pokud u těchto třech Excelů umyslně udělám ve vzorci chybu, např. místo ZPRAVA napíšu v instrukci ZxxRAVA, je podmíněný formát spolehlivě přeskočen.

Pokud stejnou sekvencí obsahující On Error GoTo spustím pod EXCEL 2010 Standard, tak 1x sekvence projde bez hlášení s přeskočením podmíněného formátu a pak různě (4x, 6x atd) skončí chybovým hlášením na té kritické instrukci.

Napadne někoho, jaké řešení by měl tento problém pro EXCEL 2010 Standard? Potřebuji, aby Makro, které obsahuje tuto frekvenci, fungovalo u všech verzí EXCEL stejně, nebo by stačilo napsat ten přeskok tak, že by se v EXCEL Standard ta instrukce spolehlivě vynechávala přeskočením celé uvedené sekvence.

Dík za případné náměty. Nevím, proč by měl být EXCEL 2010 Standard ošizen právě ve zpraování instrukcí pro podmíněný formát.

Zaslat odpověď >

Strana:  « předchozí  1 2
icon #024359
eLCHa
@Standa-B
Přiznám se, že jsem programátor na "baterky". Profesně jsem elektronik. Navíc oslavím tento rok sedmdesátku. Vyvíjím systémem "pokus-omyl"...nad kterými odborník programátor žasne a kroutí hlavou. Je ale fakt, že moje rozsáhlá aplikace funguje a je využívána servisními techiky lokomotiv.

Většinou na zmínku o věku nereaguji (irelevantní), nicméně udělám u 70 výjimku. Máte můj respekt, držím Vám palce.

Nevím co by na to řekl odborník programátor, já jakožto amatér nežasnu - jsem zvyklý a vždy je pro mně důležitější jestli to funguje. Ale na ty Selecty mám tak trochu alergii ;))

Jestli mohu poradit - opravdu si nainstalujte virtuální PC
např. VirtualBox - nainstalujte na něj systém. Budete mít na disku vytvořený soubor, který si zazálohujete. Poté na něj nainstalujte excel. Po 30 dnech můžete jeho virtuální disk nahradit zálohou a znovu pouze doinstalovat excel (není třeba znovu instalovat systém). Vyhnete se reinstalaci navíc Vám to umožní mít více instalací excelu na jednom PC aniž by se navzájem ovlivňovaly a můžete mít i více systémů - aniž by se ovlivňovaly.
http://technet.idnes.cz/virtualni-pc-jak-udelat-z-jednoho-pocitace-dva-fow-/software.aspx?c=A090410_151928_software_vsecitovat
icon #024361
eLCHa
ThisWorkbook.Names.Add Name:="vbaFormatCondition1", RefersToR1C1:="=RIGHT(RC[1],2)=""km"""
Range("Q2:Q10").FormatConditions.Add Type:=xlExpression, Formula1:="=vbaFormatCondition1"
Tyto dva řádky kódu jsou ukázkou, jak využít pojmenovaný vzorec - pokud zapracujete do kódu, bude to (odvážné tvrzení - vždy bych asi měl napsat mělo by to ;))) ) fungovat ve všech verzích excelu bez ohledu na lokalizaci a verzicitovat
#024374
avatar

eLCHa napsal/a:

.... Takže pokud nemáte možnost zkoušet, změňte ve Vašem kódu....na
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(R2;""*km"")"
....

Ta instrukce "COUNTIF" je myslím jednoduché a geniální řešení popsaného problému. Ověřil jsem si funkčnost celého programového řádku VB doma na svém EXCEL 2010 Profesional.
Měl jsem již na prověření v EXCEL Standard připraven jenoduchý vorec
"=r2="" km"""
Tento vzorec však vyžaduje pevný současný počet 3 mezer před údajem km. Protože data do aplikace zadává uživatel parametricky podle typu lokomotivy, musel by mít parametr km předepsaný přesný tvar s třemi mezerami. Řešení s COUNTIF a se zástupnou * před km je stejně univerzální jako původně dva znaky zprava.
Pokud ověření na EXCEL 2010 Standard bude zítra úspěšné, má ode mne přítel eLCHa "medaili".
Řešení s využitím pojmenovaného vzorce zatím odložím. Není to pro nás amatéry již tak přehledné jako COUNTIF.
Ozvu se jak dopadnou testy.citovat
#024487
avatar
Tak jsem se konečně dostal k ověření vzorce =COUNTIF(R2;""*km""
ve Visual Basic místo původního vzorce
=ZPRAVA(r2;2)=""km""
ve verzi EXCEL 2010 Standard.
Vzorec ve VB s "COUNTIF" je nyní funkční u všech uživatelů ve všech EXCELECH 2003, 2007, 2010 (Profi i Standard).
Vzorec =ZPRAVA.... je normálně funkční při zápisu do buňky EXCEL i pro Standard. Problém s tímto vzorcem se tak týkal asi jen Visual Basic.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09