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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse