• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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á.

Uzamčeno - nelze přidávat nové příspěvky.

---

Opičák(5.4.2014 11:02)#018660

=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

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

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

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

Funguje suprově. Díky za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse