Takto?
No keby si ty priložil súbor, tak by to už asi bolo vyriešené.
No lebo máš český excel. Ja nepoznám všetky funkcie aj v češtine.
Tak ja neviem, čo ti to tam ukazuje.
Klikni na tú bunku, potom F2 a ENTER.
No ale zo zadania nevyplývalo, že to chceš v stlpci A aj vymazať.
Použi tento vzorec. V stlpci F sú tie čísla PSČ.
=SUBSTITUTE(SUBSTITUTE(A1;F1;" ");LEFT(F1;3)&" "&RIGHT(F1;2);" ")
ani toto nejde? Aký máš excel? 2010?
No tu je to upravené v exceli 2010.
Milan: trochu si ma nakopol aj ty s tým IsNumeric.
Ale dokonalé to nie je. Ak by tam bolo napríklad pred PSČ telefonne číslo, tak vyberie telefónne číslo. Ale to už testovať asi neviem.
=LEFT(A2;FIND("/";A2)-4)&C2&RIGHT(A2;LEN(A2)-FIND("/";A2)+1)
Prípadne si stredníky zameň za čiarky.
Public Function psc(text As String) As String
Dim a As String
psc=""
text = Replace(text, " ", "", , , 1)
For i = 1 To Len(text)
a = Mid(text, i, 5)
If IsNumeric(a) Then
If a Like "#####" Then
psc = a
Exit Function
End If
End If
Next i
End Function
A čo tak toto?
elseif If Cells(1, 1) <> PRAVDA Then
Rows("10:20").EntireRow.Hidden = false
V hárku faktura2 to máš trochu upravené pre excel 2007. Ja tu mám iba excel 2003, takže nemám funkciu IFERROR.
Tebe by to však malo fungovať.
V bunke B2 stlač klávesu F2 a potom CTRL+SHIFT+ENTER
Potom to skopíruj do celej tabuľky.
Urobil som pokus. Vyfarbil som jednu bunku "bez výplne". Nič sa vizuálne nezmenilo, ale bola označená ako posledná použitá. Teda ako keby som ju vyfarbil nejakou farbou. Zrušiť sa to dalo vymazať format. Alebo vymazať všetko. Teda v tej bunke.
Pre tvorcov excelu je teda jedno, či sa označí bunka farbou, alebo "bez výplne". Je to vec konvencie.
Alebo takto.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.