vba - ITTalk.pl

0

VBA Excel / 2017/07/09

Jak ukryć lub odkryć arkusze w Excel makrem VBA? Chcesz ukryć dowolny wybrany arkusz Excela przy użyciu makra? Jedyne, co musisz wpisać w VBA to krótki kod odpowiadający za zaznaczenie arkusza, który chcesz ukryć oraz polecenie ukrywające Visible = False. Zróbmy krótki przykład na dowolnym skoroszycie. Spróbujmy ukryć Arkusz2. Sam kod wygląda następująco:

Sheets("Arkusz2").Visible = False

1	Sheets("Arkusz2").Visible = False

Jeśli chcesz odwrócić działanie i odkryć wybrany przez Ciebie arkusz, kod makra będzie wyglądał następująco:

Sheets("Arkusz2").Visible = True

1	Sheets("Arkusz2").Visible = True

Jak odkryć wszystkie ukryte arkusze jednocześnie w Excel makrem VBA? Chcesz odkryć wszystkie arkusze w Excel po kolei? Jeśli część arkuszy w Twoim skoroszycie jest ukryta, najlepiej skorzystać z pętli For Each Next zaznaczającej wszystkie arkusze. Pętla po zaznaczeniu każdego arkusza powinna ustawić jego widoczność na wartość True. Przykład makra odpowiadającego za odkrywanie wszystkich arkuszy zamieszczam poniżej:

Sub ArkuszeWszytkieOdkryj()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Visible = True
Next WS
End Sub

1

2

3

4

5

6

Sub ArkuszeWszytkieOdkryj()

Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets

WS.Visible = True

Next WS

End Sub

Podobne przykłady użycia VBA w Excelu publikuję w tym dziale. Zamieszczam też plik Excela z przykładem makra: 9_ittalk_ukrywanie_odkrywanie_arkuszy_excel.xlsm

0

Jak zapisać plik makrem Excel przez VBA

VBA Excel / 2017/07/08

Makro zapisujące plik Excela – Jak je napisać? Szukasz kodu makra VBA zapisującego Twój plik Excel? Poniżej krótkie przykłady kodów zapisujących pliki Excel z użyciem VBA. W każdym z przykładów jest użyty fragment kodu, wstawiony by program Excel nie pytał nas za każdym razem, czy na pewno chcemy nadpisać plik:

Application.DisplayAlerts = False

1	Application.DisplayAlerts = False

W pierwszej kolejności możemy zapisać plik, w którym jest kod źródłowy makra Excel. By to zrobić korzystamy z tego kodu:

Sub ZapisywaniePlikuMakrem1()
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub

1

2

3

4

Sub ZapisywaniePlikuMakrem1()

Application.DisplayAlerts = False

ThisWorkbook.Save

End Sub

Jeśli chcemy, by plik został zapisany w formacie xlsm, a więc Skoroszyt programu Excel z Obsługą makr, powinniśmy skorzystać z następującego kodu:

Sub ZapisywaniePlikuMakrem2()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\katalog\nazwa_pliku.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

1

2

3

4

Sub ZapisywaniePlikuMakrem2()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="c:\katalog\nazwa_pliku.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Jeśli chcemy, by plik Excela zapisał się w formacie xlsx, bo np nie chcemy, by ktoś zobaczył źródło naszych programów, korzystamy z kodu zapisu bez obsługi makr, a więc:

Sub ZapisywaniePlikuMakrem3()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\katalog\nazwa_pliku.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

1

2

3

4

Sub ZapisywaniePlikuMakrem3()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="c:\katalog\nazwa_pliku.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Więcej informacji o zapisywaniu plików Excela Makrem znajdziesz na tej tym blogu. Jeśli chcesz zapisać plik Excela makrem z datą w nazwie pliku, opis makra znajdziesz tutaj. Jeśli makro zapisujące plik ma go zapisywać w formatach xlsb, html itp, najprostszą metodą będzie tutaj nagranie makr zapisujących. Plik z przykładem zapisywania makrem zamieszczam poniżej: zapisywanie_pliku_excel_makrem_vba.xlsm

0

Jak korzystać z funkcji MsgBox VBA w Excel

VBA Excel / 2017/07/08

MsgBox Vba -jak programować okno Okno funkcji Vba MsgBox najłatwiej uruchomić w następujący sposób. Tworzymy edytorze VBA nowy moduł z programem sub(). W programie wpisujemy treść komunikatu, która ma się nam wyświetlić w Excelu w oknie MsgBox VBA. Sam program uruchamiamy klawiszem F5 lub wybieramy nasze makro w zakładce Developer. Kod przykładu poniżej:

Sub MsgBoxPrzyklad()
MsgBox "Treść komunikatu okna MsgBox"
End Sub

1

2

3

Sub MsgBoxPrzyklad()

MsgBox "Treść komunikatu okna MsgBox"

End Sub

Kod to przykład funkcji MsgBox w Microsoft Excel. Jeśli chcesz, by okno MsgBox w Excel miało także tytuł, wpisz go po przecinku. Oba teksty wyświetlane przez Msgbox Excel powinny być zapisane w cudzysłowie. Oddzielamy je w tym wypadku dwoma przecinkami zostawiając pusty argument odpowiadający za Treść przycisków pomiędzy treścią komunikatu, a tytułem okna. Przykład z oknem i tytułem poniżej:

Sub MsgBoxPrzyklad2()
MsgBox "Treść komunikatu okna MsgBox", , "To jest tytuł okna"
End Sub

1

2

3

Sub MsgBoxPrzyklad2()

MsgBox "Treść komunikatu okna MsgBox", , "To jest tytuł okna"

End Sub

Więcej rozszerzonych informacji na temat funkcji VBA MsgBox Excel znajdziesz na tej stronie. Sam plik Excela z przykładem zamieszczam tutaj: MsgBox VBA Excel – okno funkcji.xlsm