MS Excel

Téma: Změna velikosti prvního písmene v buňce

Zaslal/a Tonn 25.11.2016 16:42

Dobrý večer,
na instenetu jsem našel tento skript
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Value = UCase(Target.Value)
End Sub

dělá to všechny velké písmena vždy v jednom sloupci v určeném pořadí. Šlo by to prosím přepsat na to, aby bylo změněno pouze první písmeno?

Zaslat odpověď >

Pavlus(25.11.2016 16:53)#033586

Například takto:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End If

End SubP.citovat

Uživatelské menu

Nejste přihlášen(a)

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.