MS Excel

mám problém s funkcí , kterou jsem si napsal, proto abych, když mám nějakej seznam v tabulce(v Excelu), ho převedl (ty hodnoty) do jedné buňky, kterou štu hodnotu pak můžu zkopírovat do Accessu, abych je mohl dál filtrovat.
Takže jsem mezi ty hodnoty vložil "or" aby to Access bral a chci odstranit to poslední "or" jelikož za nim už nic neni. Tak jsem to chtěl odstranit funkcema "len" a "left", ale pořád tam to "or" je, tak nevíte jak na to? eventuálně proč to tak je?
díky

Function giveor(vbunky As Range)
For Each cell In vbunky
vmezi = vmezi + cell.Value & " or "
Next cell
vpocet = Len(vmezi)
giveor = Left(vmezi, vpocet - 4)
End Function

Zaslat odpověď >

Jeza.m(7.10.2009 19:16)#000760

Ahoj, můžu vidět ukázku v praxi - třeba na to přijdu, když si to budu moct zkusit.

M@citovat

me2d(8.10.2009 9:27)#000761

Když tu funkci hodím do modulu a pak v Ex. napíšu tu fci "+giveor(x:y)", tak mi to za poslední hodnotou hodí "or" a nevim jak se toho zbavit.

někde na sebou je třeba mít n hodnot, který pak vložim do toho vzorce, třeba "x" "2" ... zajímalo by mě jestli to někomu funguje.

díkycitovat

Jeza.m(8.10.2009 19:27)#000763

Tak jsem si to zkusil nasimulovat a chodí to dobře, akorát jsem tam přidal podímnku pro ověření jestli je v buňce nějaká hodnota, pro případ, že by některé buńky ve výběru byly prázdné, tak aby to tam nesázelo "or or".
Pokud to v předchozím případě házelo na konci or, tak nejspíš proto, že poslední buňka výběru byla prázdná a tudíž výsledek před oříznutím měl na konci ne 1 or, ale 2 or. Ale to je jen má teorie :-)

Příkládám test soubor.
M@

Příloha: zip

763_giveor.zip (7kB, staženo 37x)

citovat

me2d(9.10.2009 14:29)#000764

díky, funguje to perfektně, ale je zajímavý, že když je ta fce u toho souboru, tak je to v pohodě.

ale když ji mám v Ex2003 v Osobních projektech tak mi pořád hází na konci "or" asi se s tim budu muset smířit, možná by mě zajímalo proč to tak je.citovat

me2d(9.10.2009 14:59)#000765

už nic neřešte, už jsem na to přišel, jsem úplně blbej, kdysi jsem dělal doplněk, kde byla podobná fce, a jak jsem zjistl doplněk má přednost před personal.xls, ale omlouvám se moje blbost.citovat

Téma: problím s vba funkcí

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje