EXCEL (malá písmena automaticky na VELKÁ)

[Verxes]

Nadar,
chtěl bych se zeptat, jestli nevíte jak udělat v excelu toto:
Napíšu do buňky text a po opuštění buňky se změní písmena na VELKÁ (nebo nastavit nějak buňku, aby vždy vše cop do ní napíšu bylo velký), jako kdybych to psal CapsLockem..
Jde to nějak?

Dík

[Reklama]

[gyga]

Já ti přesně nevím, mám open office, ale co třeba naformátovat tu buňku a zvolit kapitály v písmu (nebo něco podobnýho), moc si to nepamatuju v excelu moc nedělám, musel bych to vidět.

[mikel]

Možná se pletu a někdo mi to vyvrátí, ale pokud vím, tak Excel tuto funkci nepodporuje. Jediné, co mě napadá je nahrazení jednotlivých znaků pomocí ASCII kódu nebo definovaných změn pro každé písmeno (Select Case).

[mike007]

Mikel : Ale fuj, všechno jde, když se chce (umí)

Verxes : Třeba tak, jak to je v příloze?

[Verxes]

Verxes : Třeba tak, jak to je v příloze?

Přesně tak , jak jsi toho tedy přesně docílil??

[mike007]

Klikni na záložku pravým tlačítkem myši a vyber možnost Zobrazit kód.
Tam je makro, které se o to stará.

[Jenda70]

Jeste jsem ti makro vylepsil, aby umelo menit velka pismena ve vice bunkach najednou. Podle me se to muze hodit, kdyz budes nakopirovavat texty pres schranku:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Application.EnableEvents = False

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
For i = 1 To Target.Count
Target(i).Value = UCase(Target(i).Value)
Next
End If

Application.EnableEvents = True
End Sub

Honza :-)))

[guest]

Namísto pravé strany a UCase:

= WorksheetFunction.Proper(Target(i).Value)

nebo

= StrConv(Target(i).Value), vbProperCase)