Škoda strácať čas nad takýmto zadaním.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Nahraď text
No ak si myslíš, že jeden z najlepších znalcov excelu na tomto fóre (xlnc) nie je dostatočne vzdelaný, tak potom budeš zbytočne hľadať rady na tomto fóre. To bude ako rozhovor medzi číňanom a hotentotom.
citovat
No tak som sa ti na to pozrel(ten prvý súbor). Na poštu chodiť nebudem.
Keďže tam nemáš žiadny vzorec ani makro to nerieši, tak asi tú tabuľku vyplňujete manuálne.
Tak tam nevypisujte "#DĚLENÍ_NULOU!", ale priamo 0%.
Takto je to jasné mne na prvý pohľad.
Ale zrejme hovoríme rôznymi jazykmi, čím by sa to vysvetľovalo
citovat
Hned to vidět není. Jak jsem již jednou uvedl, je lepší to řešit na úrovni vzorce nevymýšlet další zbytečné makro.
Nehodnotím kvalitu, zbytečnosti a dobu běhu makra (asi slušnej oddíl, když je na takovou blbost dost času).
Nicméně jsem si dal trochu práce najít co děláte makrem, když to zvládne "blbý" vzorec, ale proti gustu ....
V této části počítáte procenta (která chcete mimochodem nahradit pokud je výsledek chyba).
...
Range("F10").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
Selection.NumberFormat = "0.00%"
...
když už nic jiného IMHO by postačovalo základní ošetření:
...
Range("F10").Select
If Range("D10").Value = 0 Then ' to je buňka RC[-2]
ActiveCell.Value = "0.00%"
Else
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" ' proč sem nedáte přímo výsledek???
Selection.NumberFormat = "0.00%"
End If
...
nebo místo dělení vložit přímo ošetřený vzorec.
Excel umí hodně věcí, třeba i podmíněné formátování...
Pardon, ale tento způsob řešení, kdy se makrem dopočítávají vzorce mi přijde jako když blondýna sedící u PC počítá 3*6 na stolní kalkulačce.citovat
MS Excel
Téma: Nahraď text 
Zaslal/a Raders486 26.12.2016 14:55
Ahoj, potřebuji nahradit text v buňkách kde vyšlo "#DĚLENÍ_NULOU!" a to "0%"
Když však použiji níže uvedený kód tak to nefunguje. Poradíte prosím kde mám chybu?
Děkuji
Sub Makro1()
'odkotvit příčky
Rows("4:4").Select
ActiveWindow.FreezePanes = False
'najdi "#DĚLENÍ_NULOU!" a nahraď "0%"
ActiveSheet.Columns("C:N").Replace _
What:="#DĚLENÍ_NULOU!", Replacement:="0%", _
SearchOrder:=xlByColumns, MatchCase:=True
'ukotvit příčky
Rows("4:4").Select
ActiveWindow.FreezePanes = True
End Sub
Příloha: 
34035_nahradit.rar (28kB, staženo 35x)
34035_nahradit.rar (28kB, staženo 35x)
Strana: « předchozí 1
2
Radek-Klepacek napsal/a:
A jak je jistě všem vzdělaným známo, nulou dělit nelze a proto se objevuje toto "#DĚLENÍ_NULOU!"
Co je na tom nesrozumitelného??!!
No ak si myslíš, že jeden z najlepších znalcov excelu na tomto fóre (xlnc) nie je dostatočne vzdelaný, tak potom budeš zbytočne hľadať rady na tomto fóre. To bude ako rozhovor medzi číňanom a hotentotom.
citovatNeříkám, že není vzdělaný, ale ptá se mě pořád dokola na něco co je vidět hned na první pohled v první příloze, kterou jsem zde poslal.citovat
Iste, pýta sa stále dokola. Pretože dúfa, že ti konečne svitne a pochopíš, že zabránenie deleniu nulou máš vypodmienkovať vo vzorci a nemusíš potom riešiť makrom kraviny. Ale je to márne, je to márne, je to márne.citovat
Radek-Klepacek napsal/a:
Neříkám, že není vzdělaný, ale ptá se mě pořád dokola na něco co je vidět hned na první pohled v první příloze, kterou jsem zde poslal.
No tak som sa ti na to pozrel(ten prvý súbor). Na poštu chodiť nebudem.
Keďže tam nemáš žiadny vzorec ani makro to nerieši, tak asi tú tabuľku vyplňujete manuálne.
Tak tam nevypisujte "#DĚLENÍ_NULOU!", ale priamo 0%.
Takto je to jasné mne na prvý pohľad.
Ale zrejme hovoríme rôznymi jazykmi, čím by sa to vysvetľovalo
citovatRadek-Klepacek napsal/a:
...co je vidět hned na první pohled v první příloze, kterou jsem zde poslal.
Hned to vidět není. Jak jsem již jednou uvedl, je lepší to řešit na úrovni vzorce nevymýšlet další zbytečné makro.
Nehodnotím kvalitu, zbytečnosti a dobu běhu makra (asi slušnej oddíl, když je na takovou blbost dost času).
Nicméně jsem si dal trochu práce najít co děláte makrem, když to zvládne "blbý" vzorec, ale proti gustu ....
V této části počítáte procenta (která chcete mimochodem nahradit pokud je výsledek chyba).
...
Range("F10").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
Selection.NumberFormat = "0.00%"
...
když už nic jiného IMHO by postačovalo základní ošetření:
...
Range("F10").Select
If Range("D10").Value = 0 Then ' to je buňka RC[-2]
ActiveCell.Value = "0.00%"
Else
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" ' proč sem nedáte přímo výsledek???
Selection.NumberFormat = "0.00%"
End If
...
nebo místo dělení vložit přímo ošetřený vzorec.
Excel umí hodně věcí, třeba i podmíněné formátování...
Pardon, ale tento způsob řešení, kdy se makrem dopočítávají vzorce mi přijde jako když blondýna sedící u PC počítá 3*6 na stolní kalkulačce.citovat
Děkuji všem za zaslané připomínky a doporučení. I uvedená přirovnání jsou na úrovni.
Nicméně celý problém byl vyřešen hned první odpovědí a nebylo potřeba dál řešit.
I tak děkuji xlnc za jeho připomínky a ochotu ukázat jak se dají věci dělat správně.
Díky.citovat
Nicméně celý problém byl vyřešen hned první odpovědí a nebylo potřeba dál řešit.
I tak děkuji xlnc za jeho připomínky a ochotu ukázat jak se dají věci dělat správně.
Díky.citovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články