< návrat zpět

MS Excel


Téma: Nahraď text rss

Zaslal/a 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: rar34035_nahradit.rar (28kB, staženo 35x)
Zaslat odpověď >

Strana:  « předchozí  1 2
#034056
avatar
Škoda strácať čas nad takýmto zadaním.citovat
#034057
avatar

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. 9citovat
#034058
avatar
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.citovat
icon #034060
avatar
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
#034061
avatar

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. 4
Tak tam nevypisujte "#DĚLENÍ_NULOU!", ale priamo 0%.

Takto je to jasné mne na prvý pohľad. 10
Ale zrejme hovoríme rôznymi jazykmi, čím by sa to vysvetľovalo 6citovat
#034062
Začátečník

Radek-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
#034063
avatar
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

Strana:  « předchozí  1 2

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