< návrat zpět
MS Excel
Téma: Přeformátování buňky 
Zaslal/a j.koli 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
admin(29.6.2009 13:11)#000537
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.
citovatReady(13.8.2009 16:02)#000642 
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.
citovatJeza.m(14.8.2009 8:35)#000643 
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
RSS nejnovější články