PC-HELP.CZ

Dobrý den,
v příloze mám uvedená čísla formátována a uložena v buňkách jako text, což způsobuje potíže s výpočty. Potřeboval bych určitý script nebo postup jak tyto hromadně převést na čísla.
Díky.

Nabereš myší buňky, které takto formátovaná čísla obsahují, v menu vybereš Formát > Buňky a na kartě Číslo zvolíš položku Číslo.

Udělej přesně co ti radí mmmartin, jen je tu předtím potřeba udělat ještě jednu velice důležitou věc. Nevím, jak to máš nastavené v regionálním nastavení, ale pro desetinné místo by měla být čárka. Pokud máš tedy v regionálním nastavení čárku budeš se muset ve všech těchto číslech zbavit tečky. To udělej tak, že označ sloupec a dej zkratku Ctrl+H. Do kolonky Najít zadej tečku, do kolonky Nahradit dej čárku a kliknutím na tlačítko Nahradit vše převedeš tečky na čárky. Poté jak už psal mmmartin označ myší všechny čísla, případně celý sloupec s čísly, klikni pravým tlačítkem myší a z kontextového menu vyber možnost Formát buněk... Nyní označ možnost Číslo a v okénku Desetinná místa nastav nulu.

A pokud chceč skript, máš ho tady, lepší neumím:

Public cislo(1 To 28) As Single
Sub prevod()

For i = 2 To 28
Cells(i, 2).Replace What:=".", Replacement:=","
cislo(i) = Cells(i, 2)
Cells(i, 2) = cislo(i)
Next i

End Sub

Na tohle není potřeba žádných maker. Stačí Ctrl+H ...

to určitě stačí, ale spustit makro je záležitost na 1s .......

atari: Nakopírování makra do modulu pro člověka, který neumí s VBA není na 1s, nýbrž i kolikrát na celý den...
Ctrl+H je pro uživatele nejjednodušší volba. Necpěme každému makra pokud to opravdu není potřeba. Navíc to tvoje makro je tak trošku... uhm...

mike007: souhlasím s Tebou, vycházel jsem z toho, že byl požadavek také na skript a proto jsem ho i přiložil.
Já to vím, že můj skript je paskvil. V 80 letech nás na průmyslovce učili BASIC, a tím jsem skončil. Jinak teď jsem na stará kolena samouk, co jsem vyčetl z netu a knížek, tak používám (snažím se aby mi mozek nezakrněl). Neživí mě to, jen si usnadňuji občas práci v Excelu. Tak jestli můžu poprosit nějaké elegantnější řešení, tak předem děkuji.

Paskvil to rozhodně není, ale je za 1) zbytečné, za 2) pracuje jen s 28 řádky. Pokud je dat víc, makro na ně kašle.

Takže spíše takto:

Sub nahrada()
Dim cil, c As Range
Set cil = Sheets("Příklad").Range(Range("B2"), Range("B65536").End(xlUp))
For Each c In cil
c = Replace(c, ".", ",")
Next
End Sub

Chceš elegantní řešení? Tady je --> Ctrl+H

Pánové,
všem Vám moc děkuji za pomoc. Samozřejmě, že jsem měl v regionálním nastavení čárku a musel jsem se ve všech těchto číslech zbavit tečky. Proto jsem s tím nemohl hnout. Jak jednoduché a přitom parádní řešení. Ještě jednou děkuji.

No a jaké je pro tebe tedy parádní řešení, Ctrl+H nebo makro? Jelikož jsi při označování vyřešeného tématu správně neoznačil ten příspěvek, který ti nejvíce pomohl, ale označil jsi ten svůj, tak teď nikdo neví 1) co je pro tebe parádní řešení, 2) kdo ti nejvíce pomohl vyřešit problém.

Citace z návodu Jak označit dotaz/téma za vyřešený

2) přesuňte se na příspěvek, který nejvíce přispěl k vyřešení vašeho problému
3) v pravém horním okně klikněte na ikonu „fajfky“

Pouhým správným označením pomůžeš dalším lidem s podobným problémem najít okamžitě příspěvek, který ho pomohl vyřešit. Tak snad se příště povede.

mike007: dík za upravené makro.
Ono se jedná kdo k čemu to potřebuje, pokud to je jednou za čas, tak stačí CTRL+H .... . Ale já když takto upravuji postupně a různě desítky sloupců (které obsahují desítky až stovky řádků) tak hledám co nejefektivnější řešení, a to je makro. (Aspoň za něco můžu Billa pochválit... )