Navštíveno 1351x
mam tady jednoduchej dodaci list, kterej se nechova tak jak bych potreboval, zejmena co se cen tyka, jako ze ackoli nemam, zadany v danem radku zadny produkt, ani mnozstvi, ani cenu, tak ve sloupci cena mam napsano 0,00 Kč , misto toho aby tam byla uplne prazdna bunka. to je jeden problem
a druhej, na A4 musim mit ty dodaky dva, s tim ze spodni bude presna kopie toho horniho, proste cokoli nahore napisu, at se automaticky obevi i dole...
kdyz pouziju vylozene =cislo bunky sezhora, pokud je tam zadana hodnota zkopiruje se to spravne, ale pokud je bunka prazdna, tak se mi opet zkopiruje do bunky 0, takze bych mel pak plnej spodni dodak 0...
pokud je nekdo ochotny se na to podivat, poslu xls mailem, myslel jsem si ze to bude na minutku prace a nejak tradicne nevim co stim...
dik predem
To první řeším podmíněným formátováním, pokud je tam hodnota 0< tak je text černě, pokud je menší jak 0 (což "nic" je) tak je text bílej. Jde to udělat určitě čistěji , ale tohle to taky řeší :)
To druhé opět, "0" podmíněné formátování bílý text, cokoliv jiného černě :)
diky moc, je to uplne super ;-) a pro zensky to staci takhle :-D
Takhle dělám nabídky a výkazy výměr :)
13.06.2013, 20:49 |
Tony (M)
Kurna takova trivialita me nikdy nenapadla. Ja blbec to porad resim pres vzorce KDYZ(A1<>0;A2*A3;"")
:-)))
Proc to delat jednoduse, kdyz to jde slozite, ze? :-D
15.06.2013, 11:21 |
Arnie_one | Upraveno: 2013-06-15 11:23:36
řeším neustále u nás v controlingu
1) vlastní formmát a 0 zmizí (podmíněný formát obdoba) 0;-0;;@
2) podmíněné for. jak jste řekli
Nevýhoda obou ta 0 tam fyzicky je
3)=IF(A1=0,"",A1)- je to ale vzorec ne na puvodnim miste
4) V nastavení Zobrazení pro Sešit a nezobrazovat 0 hodnoty :)
A jelikož toto vše je nahov...no tak se to musí udělat makrem, protože předpokládám, že všichni počítate a né pouze zobrazujete.
5) Macro
Sub Delete()
'Macro které smaže vybrané hodnoty ve vybrané oblasti
Dim rng As Range, cell As Range, del As Range
'Range("A1:J707")zde napište požadovanou oblast, kde se budou mazat zadané hodnoty
Set rng = Intersect(Range("A1:J707"), ActiveSheet.UsedRange)
For Each cell In rng
'Zde zadejte hodnotu, která se má ve vybrané oblasti smazat "0" - přepsat na cokoliv jiného
If (cell.Value) = "0" _
Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub
