Toetsenbordsnelkoppeling om de hoofdletters van tekst in cellen te wijzigen in Excel 2010?

Paul’s suggestie is goed of je kunt je eigen macro’s schrijven en sneltoetsen toewijzen

Sub makeUPPER()
  ActiveCell = UCase(ActiveCell)
 End Sub

 Sub makeLOWER()
  ActiveCell = LCase(ActiveCell)
 End Sub

Ik heb de volgende techniek gebruikt om een kolom tekst om te zetten naar hoofdletters.

1. Verplaats de cursor naar een lege kolom.
2. Typ in de lege cel op dezelfde rij als de eerste cel die u wilt converteren, =upper(A3), als A3 de eerste cel is die u wilt converteren.
3. De eerder lege cel zou nu het hoofdletter equivalent van uw eerste cel met tekst moeten tonen.
4. Kopieer deze cel naar beneden in de kolom tot dezelfde hoogte als al uw tekst.
5. Je zou nu een kolom moeten hebben die equivalent is aan je tekst, maar dan allemaal in hoofdletters.
6. Markeer alle cellen met tekst in hoofdletters, en selecteer kopiëren.
7. Klik met de linkermuisknop op de eerste cel van uw brontekst (die niet in hoofdletters is), waardoor de cel geselecteerd wordt.
8. Klik met de rechtermuisknop.
9. Kies Plakken speciaal
10. Kies in de keuzelijst het keuzerondje “Waarden” en klik op OK.
11. Je hebt nu 2 kolommen met tekst in hoofdletters.
12. Verwijder de kolom met de =upper() formules.

Hetzelfde principe werkt voor Proper, en andere tekstmanipulatiefuncties.

Als u de uitstekende ASAP Utilities Excel addin installeert (gratis voor persoonlijk gebruik)… http://www.asap-utilities.com/download-asap-utilities.php

dit heeft ingebouwde HOOFDLETTERS en kleine letters opties (en nog een ziljoen andere) waaraan je sneltoetsen kunt toewijzen (zie hun website voor meer info)

Kopieer de tekst waarvan je de hoofdletters wilt veranderen, plak hem in Word, markeer hem en druk op shift + f3 tot alles in de gewenste hoofdletters staat, knip en plak terug.

Dit werkt voor mij het beste, omdat het werkt bij meerdere celselecties:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub