Czyli robimy Worda z Excela – tym razem przy pomocy VBA

W poprzednim wpisie pokazywałam formułę, którą zamieniałam pierwszą literę w komórce na wielką, a pozostałe na małe. Używałam do tego formuły. Metoda super, bo działa 🙂 Natomiast dla mnie aż się prosi o usprawnienie. Zakładam bowiem, że będę jej potrzebowała częściej niż tylko raz i nie chce mi się jej pisać za każdym razem. Wolę wpisać funkcję, która to zrobi. Niestety, jak pisałam ostatnio, Excel takiej funkcji nie posiada…

…a skoro nie posiada, to trzeba ją samodzielnie napisać w VBA! I o tym będzie dzisiejszy film.

A kod napisany w tym filmie to:

Function JakWZdaniu(Tekst As String)
    JakWZdaniu = UCase(Left(Tekst, 1)) & LCase(Right(Tekst, Len(Tekst) - 1))
End Function

Jego logika jest dokładnie identyczna, co formuły opisanej tutaj, tylko jest to odpowiednik w VBA.

Co jest jeszcze szalenie istotne, to pamiętaj, aby zapisać plik jako plik z obsługą makr, czyli z rozszerzeniem xlsm. A jeśli chcesz, aby ta funkcja działała w każdym otwartym przez Ciebie pliku Excela – zapisz ją np. jako dodatek do Excela – pod koniec tego artykułu opisuję jak to zrobić.