< návrat zpět
MS Excel
Téma: Excel skonvertovanie textu na cislo (makro) 
Zaslal/a Peter40 30.11.2012 11:20
Ahojte,
na jednom liste som si skopiroval kontingencnu tabulku hned vedla, ktoru chcem dalej upravovat. Vsetko robim pomocou makra. Problem je ten, ze ked chcem po prekopirovani tabulky zmenit format stlpca pomocou:
Worksheets("List1").Columns(4).NumberFormat = "0"
tak mi to nezmeni samo. Zobrazi sa mi vedla kazdej bunky warning okienko a musim este manualne zaskrtnut "Convert To Number". Chcel by som aby to makro zvladlo samo, kedze este potrebujem aby pokracovalo.
Nasiel som aj jedno riesenie, ktore funguje spravne, ale neviem ako si to spravit univerzalne, ked sa mi zmeni pocet hodnot v stlpci "D":
For Each Convert In Range("D6:D1000")
Convert.Offset(0, 1).Value = "=VALUE(RC[-1]
Uzamčeno - nelze přidávat nové příspěvky.
Peter40(30.11.2012 11:26)#010488 
Polku mojho postu odseklo, tak to doplnim.
Este raz cely kod:
For Each Convert In Range("D6:D1000")
Convert.Offset(0, 1).Value = "=VALUE(RC[-1])"
Convert.Value = Convert.Offset(0, 1).Value
Convert.Offset(0, 1).Delete
Next Convert
1. otazka: Ako nastavim rozsah konvertovania od "D6" az po poslednu vyplnenu bunku v stlpci "D"?
2. otazka: Existuje aj nejake ine jednoduchsie riesenie?
Dakujem.
citovatStalker(30.11.2012 11:51)#010489 
http://wall.cz/excel-navod/chyba-cislo-je-ulozeno-jako-text
Zjištění posledního plného řádku
Radek = Range("D1").End(xlDown).Row
For Each Convert In Range("D6:D" & Radek)citovat Peter40(30.11.2012 12:40)#010492 Ahoj Stalker,
dakujem za velmi rychlu a funkcnu odpoved.
V mojom pripade som este musel zmenit Range na "D6", aby to fungovalo presne tak ako chcem.
Radek = Range("D6").End(xlDown).Row
Este raz vdaka.
citovat
RSS nejnovější články