Cykl „Pomocy!” – cz. 3 – opis pliku

Witam,
W poprzednich postach cyklu pokazałem umieszczanie komentarza do komórki oraz jak wstawić komentarz do arkusza.
Kolejną metodę możemy zastosować, jeżeli chcemy stworzyć pomoc dla całego pliku, a nie konkretnego arkusza. Zaczniemy od stworzenia nowego arkusza, który nazwiemy „pomoc” i wypełnienia go treścią pomocy (w pliku przykładowym, już ten arkusz jest).

Użyjemy teraz tej samej procedury VBA dla dwóch przycisków na dwóch arkuszach, dlatego dodamy do naszego pliku moduł VBA, instrukcja, jak to zrobić umieszczona jest w krótkiej pomocy.

Moduł jest w tej chwili pusty, należy wkleić do niego poniższy kod

sub PokazUkryjPomoc()
Static oldSheet As Object
Sheets(„pomoc”).Visible = Not Sheets(„pomoc”).Visible
If Not (oldSheet Is Nothing) Then
oldSheet.Select
Set oldSheet = Nothing
Else
Set oldSheet = ActiveSheet
Sheets(„pomoc”).Select
End If
End sub

Teraz wystarczy umieścić na naszych arkuszach przycisk uruchamiający powyższą procedurę. Umieszczamy przycisk tak jak jest to opisane w krótkiej pomocy, w kodzie procedury umieszczając poniższy kod:

PokazUkryjPomoc()

W ten sposób umieszczamy przycisk na dowolnej ilości arkuszy, a przede wszystkim na arkuszu pomocy.

Dodaj komentarz

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