< návrat zpět

MS Excel


Téma: Přeformátování buňky rss

Zaslal/a 20.4.2009 8:29

Dobrý den,
obracím se na Vás s žádostí o radu. Ke své práci využívám program se skladovou a prodejní evidencí, který veškerá natěžená data shromažďuje na centrální server. Já potřebuji dále pracovat s některými sestavami, které si mohu exportovat do Excelu, ale po vygenerování sestavy jsou veškerá data v buňkách ve formátu "Obecný". Vzhledem k tomu, že s údaji v tomto formátu již nemůžu dále pracovat (matematické operace), snažil jsem se přeformátovat sloupce dle potřeby na "Číslo" a na "Měna", ale bez úspěchu. Formát je sice ve sloupci nastaven, ale samotné hodnoty v buňkách se přeformátují až po rozkliknutí buňky a následném Enteru. Těchto buněk je v každé sestavě 100 a více, proto Vás žádám o radu, jak toto vyřešit buď pomocí nějakého nástroje Excel, nebo pomocí VBA.

Předem děkuji

Zaslat odpověď >

icon #000537
admin
V takových případech se stává, že máte číslo uloženo jako text a excel na tuto chybu upozorňuje zeleným trojúhelníčkem v levém horním rohu buňky.

Po najetí myší na buňku se zobrazí vykřičník a po kliknutí na něj se zobrazí malá nabídka, kde pak stačí zvolit "Převést na číslo". Nezapomeňte si označit všechny buňky.citovat
#000642
avatar
Mám podobný problém. V buňce mám zadán vzorec, který se však spočítá až po rozkliknutí a Enteru. Jinak je vidět rovnou vzorec např. =A1 V mém případě se však žádný vykřičník neobjeví. Existuje i pro toto nějaké řešení? Jedná se řádově o stovky buněk.citovat
#000643
Jeza.m
Napadají mě hned 2 :-).
1) První buňce v daném sloupci nastavit formát buňky na Obecný, pak F2 nebo dvojklikem vlézt do editace buňky a beze změny potvrdit Enterem, čímž se ze zobrazeného vzorce stane počítaný vzorec a v buňce se objeví výsledek, tento vzorec pak křížkem vpravo dole roztáhnout na celou oblast, to jde buď tažením myši se stisknutým levým tlačítkem, nebo dvojklikem na křížek.

2) pomocí makra

Public Sub preformatovani()
Dim sloupec As Single
Dim radek As Single

sloupec = 5 'číslo požadovaného sloupce
radek = 2 ' počáteční řádek

Do While Cells(radek, sloupec) <> ""
Cells(radek, sloupec).NumberFormat = "General"
Cells(radek, sloupec).Formula = Cells(radek, sloupec).Text
radek = radek + 1
Loop

End Sub


toto platí za přepokladu že je předem v buňce vzorec v textové podobě.

No zkuste a uvidíte :-)

M@citovat

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