< návrat zpět

MS Excel

Téma: Změna formátu buňky po "odentrování" rss

Zaslal/a KENTAUR 5.4.2014 8:08

Ahoj, mám prosbu,
Zadávám do sloupce „A“ hodnoty ve formě „příjmení jméno“. Mezi příjmením a jménem je vždy mezera. Potrebuji striktně nastavit makrem, aby výstup po odentrování bunky byl „PŘÍJMENÍ Jméno“. Jde mi o ten formát. Příjmení nastavit na velká písmena a jméno na malá s prvním velkým písmenem. Příloha asi není nutná.

stop Uzamčeno - nelze přidávat nové příspěvky.
Opičák(5.4.2014 11:02)#018660
Opičák
=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1));"")citovat
marjankaj(5.4.2014 11:29)#018661
avatar

Opičák napsal/a:

=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1));"")

Doplnil by som o funkciu PRPOER=VELKÁ2

=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & VELKÁ2(ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1)));"")citovat
KENTAUR(5.4.2014 11:45)#018662
avatar
Ten vzorec od Marjankaj funguje korektně, ale já jsem myslel ten formát vytvořit makrem přímo v té bunce po stisku ENTER( aby ta vyplněná bunka nastavila ten formát sama sobě) - tedy neco jako - Private Sub Worksheet_Change. Tedy jestli to vůbec jde.citovat
marjankaj(5.4.2014 12:12)#018663
avatar
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo chyba
a = Split(Target)
a(0) = UCase(a(0))
For i = 1 To UBound(a)
a(i) = WorksheetFunction.Proper(a(i))
Next i
Target = Join(a)
chyba:
End Subcitovat
KENTAUR(5.4.2014 15:17)#018665
avatar
Funguje suprově. Díky za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje