Skrót klawiaturowy do zmiany wielkości liter tekstu w komórkach w Excelu 2010?

Propozycja Pawła jest dobra lub można napisać własne makra i przypisać klawisze skrótów

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

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

Użyłem następującej techniki, aby przekonwertować kolumnę tekstu na duże litery.

1. Przesuń kursor na pustą kolumnę.
2. W pustej komórce w tym samym wierszu co pierwsza komórka, którą chcesz przekonwertować, wpisz =upper(A3), jeśli A3 jest pierwszą komórką, którą chcesz przekonwertować.
3. W poprzednio pustej komórce powinien teraz pojawić się odpowiednik dużych liter z pierwszej komórki tekstu.
4. Skopiuj tę komórkę w dół kolumny na tę samą wysokość, co cały twój tekst.
5. Powinieneś teraz mieć kolumnę odpowiadającą Twojemu tekstowi, ale całą pisaną wielkimi literami.
6. Podświetl wszystkie komórki z dużymi literami i wybierz opcję kopiuj.
7. Kliknij lewym przyciskiem myszy na pierwszą komórkę tekstu źródłowego (która nie jest pisana wielkimi literami), co spowoduje zaznaczenie komórki.
8. Kliknij prawym przyciskiem myszy.
9. Wybierz Wklej Specjalnie
10. W oknie listy zaznacz przycisk radiowy “Wartości” i kliknij OK.
11. Teraz będziesz miał 2 kolumny tekstu z dużymi literami.
12. Usuń kolumnę zawierającą formuły =upper().

Ta sama zasada działa w przypadku funkcji Właściwe i innych funkcji związanych z manipulacją tekstem.

Jeśli zainstalujesz doskonały dodatek ASAP Utilities Excel (darmowy do użytku osobistego)… http://www.asap-utilities.com/download-asap-utilities.php

to ma wbudowane opcje UPPER CASE i lower case (jak również milion innych), do których możesz przypisać klawisze skrótów (zobacz ich stronę internetową po więcej informacji)

Skopiuj tekst, który chcesz zmienić przypadek do wklejenia do word zaznaczyć go i naciśnij shift + f3 aż wszystko w przypadku, który chcesz i wyciąć i wkleić z powrotem.

Działa to najlepiej dla mnie, ponieważ działa na wielu selekcjach komórek:

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