Excel – zmiana układu od prawej do lewej

Dawno dawno temu mój znajomy mieszkający na stancji wyszedł do ubikacji nie blokując komputera. Złośliwa współlokatorka wrzuciła na jego profil na FB zdjęcie z USG. Biedak kilka dni musiał się tłumaczyć rodzinie i znajomym, że jednak nie będzie ojcem.

Ot taka kara za niezablokowanie komputera! My będziemy nieco bardziej cywilizowani. Możemy zmienić ustawienia arkusza tak aby komórki były wyświetlane od prawej do lewej (tak jak ma to miejsce na poniższym rysunku).

Aby zrobić ten psikus musi być widoczna karta Deweloper, która domyślnie jest ukryta. Jak wyświetlić kartę Deweloper opisałem w notce: Co zrobić, aby pojawiła się karta Deweloper?

Następnie na karcie Deweloper należy kliknąć w przycisk Właściwości. Pojawi się okienko Properties (ang. właściwości). Należy w tym okienku zmienić właściwość DisplayRightToLeft z False na True.

Uwaga: tę właściwość zmieniamy tylko dla bieżącego arkusza. Jeśli w skoroszycie znajduje się więcej arkuszy, to należy ową procedurę powtórzyć dla każdego arkusza z osobna! Można również napisać makro, które dla wszystkich otworatych skoroszytów zmienia ustawienia każdego arkusza. Najlepiej jest podpiąć ten kawałek kody pod procedurę Workbook_Open lub Auto_Open.

Sub Psikus()
    Dim wBook, Sh

    For Each wBook In Workbooks
        For Each Sh In wBook.Sheets
            Sh.DisplayRightToLeft = True
        Next Sh
    Next wBook
End Sub