• Zapisz się na newsletter, aby otrzymywać powiadomienia o najnowszysch wpisach.

Wielkość liter taka, jak w zdaniu (funkcja VBA)

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ć.

I na koniec plik z gotowcem do pobrania:

MalinowyExcel_Wielkość liter taka jak w zdaniu VBA dw.xlsm

 

Spodobał Ci się ten artykuł?

Jeśli TAK, zapisz się na newsletter, aby otrzymywać powiadomienia
o najnowszych wpisach (i tylko powiadomienia: zero spamu).


Tagi , , , , , , , , , , , , .Dodaj do zakładek Link.

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *