Jeśli dopiero zaczynasz korzystać z VBA , powinieneś zacząć studiować nasz przewodnik VBA dla początkujących^{(VBA guide for beginners)} . Ale jeśli jesteś doświadczonym ekspertem VBA i szukasz bardziej zaawansowanych rzeczy, które możesz zrobić za pomocą VBA w programie Excel , czytaj dalej.

Możliwość wykorzystania kodowania VBA w ^(VBA)Excelu^(Excel) otwiera cały świat automatyzacji. Możesz zautomatyzować obliczenia w programie Excel^(Excel) , przyciski, a nawet wysłać e-mail. Istnieje więcej możliwości zautomatyzowania codziennej pracy z VBA , niż myślisz.

Zaawansowany przewodnik VBA dla programu Microsoft Excel^{(Advanced VBA Guide For Microsoft Excel)}

Głównym celem pisania kodu VBA w programie ^(VBA)Excel jest wyodrębnienie informacji z arkusza kalkulacyjnego, wykonanie na nim różnych obliczeń, a następnie zapisanie wyników z powrotem do arkusza kalkulacyjnego

Poniżej przedstawiono najczęstsze zastosowania języka VBA w programie Excel .

• Importuj^(Import) dane i wykonuj obliczenia
• Oblicz^(Calculate) wyniki po naciśnięciu przycisku przez użytkownika
• Wyślij^(Email) do kogoś wyniki obliczeń

Dzięki tym trzem przykładom powinieneś być w stanie napisać swój własny zaawansowany kod Excel VBA .

Importowanie danych i wykonywanie obliczeń^{(Importing Data and Performing Calculations)}

Jedną z najczęstszych rzeczy, do których ludzie używają programu Excel^(Excel) , jest wykonywanie obliczeń na danych, które istnieją poza programem Excel^(Excel) . Jeśli nie używasz VBA , oznacza to, że musisz ręcznie zaimportować dane, uruchomić obliczenia i wyprowadzić te wartości do innego arkusza lub raportu.

Dzięki VBA możesz zautomatyzować cały proces. Na przykład, jeśli nowy plik CSV jest pobierany do katalogu na komputerze w każdy poniedziałek^(Monday) , możesz skonfigurować kod VBA tak , aby był uruchamiany przy pierwszym otwarciu arkusza kalkulacyjnego we wtorek^(Tuesday) rano.

Poniższy kod importu uruchomi i zaimportuje plik CSV do arkusza kalkulacyjnego Excel .

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")
Cells.ClearContents

strFile = “c:\temp\purchases.csv”

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With

Otwórz narzędzie do edycji Excel VBA i wybierz obiekt ^{(Excel VBA)}Sheet1 . Z pól rozwijanych obiektów i metod wybierz opcję Arkusz^(Worksheet) i Aktywuj^(Activate) . Spowoduje to uruchomienie kodu za każdym razem, gdy otworzysz arkusz kalkulacyjny.

Spowoduje to utworzenie funkcji Sub Worksheet_Activate() . Wklej powyższy kod do tej funkcji.

To ustawia aktywny arkusz na Arkusz1^(Sheet1) , czyści arkusz, łączy się z plikiem przy użyciu ścieżki pliku zdefiniowanej za pomocą zmiennej strFile , a następnie pętla With przechodzi przez każdy wiersz w pliku i umieszcza dane w arkuszu, zaczynając od komórki A1 .

Jeśli uruchomisz ten kod, zobaczysz, że dane z pliku CSV są importowane do pustego arkusza kalkulacyjnego w ^(CSV)Arkuszu1^(Sheet1) .

Importowanie to dopiero pierwszy krok. Następnie chcesz utworzyć nowy nagłówek kolumny, która będzie zawierać wyniki obliczeń. W tym przykładzie załóżmy, że chcesz obliczyć 5% podatku płaconego od sprzedaży każdego przedmiotu.

Kolejność działań, które powinien wykonać Twój kod, jest następująca:

1. Utwórz nową kolumnę wyników o nazwie podatki^(taxes) .
2. Przejrzyj kolumnę sprzedanych jednostek i oblicz podatek od sprzedaży.^{(units sold)}
3. Zapisz wyniki obliczeń w odpowiednim wierszu w arkuszu.

Poniższy kod wykona wszystkie te kroki.

Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
Cells(1, 5) = "taxes"

For Each cell In rng
     fltTax = cell.Value * 0.05
     Cells(rowCounter, 5) = fltTax
     rowCounter = rowCounter + 1
Next cell

Ten kod wyszukuje ostatni wiersz w arkuszu danych, a następnie ustawia zakres komórek (kolumnę z cenami sprzedaży) zgodnie z pierwszym i ostatnim wierszem danych. Następnie kod przechodzi przez każdą z tych komórek, wykonuje obliczenia podatku i zapisuje wyniki w nowej kolumnie (kolumna 5).

Wklej powyższy kod VBA poniżej poprzedniego kodu i uruchom skrypt. Zobaczysz wyniki pojawią się w kolumnie E.

Teraz za każdym razem, gdy otworzysz arkusz programu Excel^(Excel) , automatycznie wyjdzie on i pobierze najświeższą kopię danych z pliku CSV . Następnie wykona obliczenia i zapisze wyniki do arkusza. Nie musisz już nic robić ręcznie!

Oblicz wyniki z naciśnięcia przycisku^{(Calculate Results From Button Press)}

Jeśli wolisz mieć bardziej bezpośrednią kontrolę nad uruchamianiem obliczeń, zamiast uruchamiać je automatycznie po otwarciu arkusza, możesz zamiast tego użyć przycisku kontrolnego.

Przyciski kontrolne^(Control) są przydatne, jeśli chcesz kontrolować, które obliczenia są używane. Na przykład w tym samym przypadku, co powyżej, co zrobić, jeśli chcesz użyć 5% stawki podatku dla jednego regionu i 7% stawki podatku w innym?

Możesz zezwolić na automatyczne uruchamianie tego samego kodu importu CSV , ale pozostawić kod obliczania podatku uruchamiany po naciśnięciu odpowiedniego przycisku.

Korzystając z tego samego arkusza kalkulacyjnego co powyżej, wybierz kartę Deweloper^(Developer) i wybierz Wstaw^(Insert) z grupy Kontrolki^(Controls) na wstążce. Wybierz przycisk ^{(push button)} ActiveX Control z menu rozwijanego.

Przeciągnij przycisk na dowolną część arkusza z dala od miejsca, w którym znajdą się dane.

Kliknij prawym przyciskiem myszy przycisk i wybierz Właściwości^(Properties) . W oknie Właściwości^(Properties) zmień Podpis na taki, jaki chcesz wyświetlić użytkownikowi. W tym przypadku może to być Calculate 5% Tax .

Zobaczysz ten tekst odzwierciedlony na samym przycisku. Zamknij okno właściwości^(properties) i kliknij dwukrotnie sam przycisk. Spowoduje to otwarcie okna edytora kodu, a kursor znajdzie się wewnątrz funkcji, która zostanie uruchomiona, gdy użytkownik naciśnie przycisk.

Wklej kod obliczenia podatku z powyższej sekcji do tej funkcji, zachowując mnożnik stawki podatku na poziomie 0,05. Pamiętaj, aby uwzględnić następujące 2 wiersze, aby zdefiniować aktywny arkusz.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")

Teraz powtórz proces ponownie, tworząc drugi przycisk. Zrób podpis Calculate 7% Tax .

Kliknij dwukrotnie^{(Double-click)} ten przycisk i wklej ten sam kod, ale ustaw mnożnik podatku 0,07.

Teraz, w zależności od tego, który przycisk naciśniesz, kolumna podatków zostanie odpowiednio obliczona.

Gdy skończysz, będziesz miał oba przyciski na swoim arkuszu. Każdy z nich zainicjuje inną kalkulację podatku i zapisze inne wyniki w kolumnie wynikowej. 

Aby to napisać, wybierz menu Deweloper^(Developer) i wybierz Tryb projektowania^{(Design Mode)} z grupy Kontrolki^(Controls) na wstążce, aby wyłączyć Tryb projektowania^{(Design Mode)} . To aktywuje przyciski. 

Spróbuj wybrać każdy przycisk, aby zobaczyć, jak zmienia się kolumna wyników „podatki”.

Wyślij e-mailem wyniki obliczeń do kogoś^{(Email Calculation Results to Someone)}

Co zrobić, jeśli chcesz wysłać wyniki w arkuszu kalkulacyjnym do kogoś e-mailem?

Możesz utworzyć inny przycisk o nazwie Wyślij arkusz do szefa,^{(Email Sheet to Boss)} korzystając z tej samej procedury powyżej. Kod tego przycisku będzie wymagał użycia obiektu CDO programu Excel^{(Excel CDO)} do skonfigurowania ustawień poczty e-mail SMTP i wysłania wyników pocztą elektroniczną w formacie czytelnym dla użytkownika.

Aby włączyć tę funkcję, musisz wybrać Narzędzia i odniesienia^{(Tools and References)} . Przewiń w dół do Microsoft CDO for Windows 2000 Library , włącz ją i wybierz OK .

Istnieją trzy główne sekcje kodu, które musisz utworzyć, aby wysłać wiadomość e-mail i osadzić wyniki w arkuszu kalkulacyjnym.

Pierwszym z nich jest skonfigurowanie zmiennych do przechowywania tematu, adresów Do i Od oraz treści wiadomości e-mail.^(From)

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set ws = ActiveWorkbook.Sheets("Sheet1")
strSubject = "Taxes Paid This Quarter"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "The following is the breakdown of taxes paid on sales this quarter."

Oczywiście treść musi być dynamiczna w zależności od wyników w arkuszu, więc tutaj musisz dodać pętlę, która przechodzi przez zakres, wyodrębnia dane i zapisuje wiersz na raz w treści.

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
strBody = strBody & vbCrLf

For Each cell In rng
     strBody = strBody & vbCrLf
     strBody = strBody & "We sold " & Cells(rowCounter, 3).Value & " of " & Cells(rowCounter, 1).Value _
     & " for " & Cells(rowCounter, 4).Value & " and paid taxes of " & Cells(rowCounter, 5).Value & "."
     rowCounter = rowCounter + 1
Next cell

Następna sekcja dotyczy konfiguracji ustawień SMTP , aby można było wysyłać wiadomości e-mail przez serwer SMTP . Jeśli używasz Gmaila^(Gmail) , jest to zazwyczaj Twój adres e-mail Gmaila^(Gmail) , hasło do Gmaila i serwer ^(Gmail)SMTP Gmaila^{(Gmail SMTP)} (smtp.gmail.com).

Set CDO_Mail = CreateObject("CDO.Message") 
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 .Update
End With

With CDO_Mail
     Set .Configuration = CDO_Config
End With

Zastąp [email protected] i hasło danymi swojego konta.

Na koniec, aby rozpocząć wysyłanie wiadomości e-mail, wprowadź następujący kod.

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

Uwaga^(Note) : jeśli podczas próby uruchomienia tego kodu zobaczysz błąd transportu, prawdopodobnie Twoje konto Google blokuje uruchamianie „mniej bezpiecznych aplikacji”. Musisz odwiedzić stronę ustawień mniej bezpiecznych aplikacji^{(less secure apps settings page)} i WŁĄCZYĆ tę funkcję.

Po włączeniu, Twój e-mail zostanie wysłany. Tak to wygląda dla osoby, która otrzymuje wiadomość e-mail z automatycznie wygenerowanymi wynikami.

Jak widać, jest wiele rzeczy, które można zautomatyzować za pomocą Excel VBA . Spróbuj poeksperymentować z fragmentami kodu, o których dowiedziałeś się w tym artykule, i stwórz własne unikalne automatyzacje VBA .

An Advanced VBA Guide For MS Excel

If you are just getting started with VBA, then you’ll want to start oυt studуing our VBA guide for beginners. But if you’re a seasoned VBA expert and you’re looking for more advanced things you can do with VBA in Excel, then keep reading.

The ability to use VBA coding in Excel opens up a whole world of automation. You can automate calculations in Excel, pushbuttons, and even send email. There are more possibilities to automate your daily work with VBA than you may realize.

Advanced VBA Guide For Microsoft Excel

The main goal of writing VBA code in Excel is so that you can extract information from a spreadsheet, perform a variety of calculations on it, and then write the results back to the spreadsheet

The following are the most common uses of VBA in Excel.

• Import data and perform calculations
• Calculate results from a user pressing a button
• Email calculation results to someone

With these three examples, you should be able to write a variety of your own advanced Excel VBA code.

Importing Data and Performing Calculations

One of the most common things people use Excel for is performing calculations on data that exists outside of Excel. If you don’t use VBA, that means you have to manually import the data, run the calculations and output those values to another sheet or report.

With VBA, you can automate the entire process. For example, if you have a new CSV file downloaded into a directory on your computer every Monday, you can configure your VBA code to run when you first open your spreadsheet on Tuesday morning.

The following import code will run and import the CSV file into your Excel spreadsheet.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")
Cells.ClearContents

strFile = “c:\temp\purchases.csv”

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With

Open the Excel VBA editing tool and select the Sheet1 object. From the object and method dropdown boxes, choose Worksheet and Activate. This will run the code every time you open the spreadsheet.

This will create a Sub Worksheet_Activate() function. Paste the code above into that function.

This sets the active worksheet to Sheet1, clears the sheet, connects to the file using the file path you defined with the strFile variable, and then the With loop cycles through every line in the file and places the data into the sheet starting at cell A1.

If you run this code, you’ll see that the CSV file data is imported into your blank spreadsheet, in Sheet1.

Importing is only the first step. Next, you want to create a new header for the column that will contain your calculation results. In this example, let’s say you want to calculate the 5% taxes paid on the sale of each item.

The order of actions your code should take is:

1. Create new results column called taxes.
2. Loop through the units sold column and calculate the sales tax.
3. Write the calculate results to the appropriate row in the sheet.

The following code will accomplish all of these steps.

Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
Cells(1, 5) = "taxes"

For Each cell In rng
     fltTax = cell.Value * 0.05
     Cells(rowCounter, 5) = fltTax
     rowCounter = rowCounter + 1
Next cell

This code finds the last row in your sheet of data, and then sets the range of cells (the column with the sales prices) according to the first and last row of data. Then the code loops through each of those cells, performs the tax calculation and writes the results into your new column (column 5).

Paste the above VBA code below the previous code, and run the script. You will see the results show up in column E.

Now, every time you open your Excel worksheet, it’ll automatically go out and get the freshest copy of data from the CSV file. Then, it will perform the calculations and write the results to the sheet. You don’t have to do anything manually anymore!

Calculate Results From Button Press

If you’d rather have more direct control over when calculations run, rather than running automatically when the sheet opens, you can use a control button instead.

Control buttons are useful if you want to control which calculations are used. For example, in this same case as above, what if you want to use a 5% tax rate for one region, and a 7% tax rate for another?

You could allow the same CSV import code to run automatically, but leave the tax calculation code to run when you press the appropriate button.

Using the same spreadsheet as above, select the Developer tab, and select Insert from the Controls group in the ribbon. Select the push button ActiveX Control from the dropdown menu.

Draw the pushbutton onto any part of the sheet away from where any data will go.

Right-click the push button, and select Properties. In the Properties window, change the Caption to what you’d like to display to the user. In this case it might be Calculate 5% Tax.

You’ll see this text reflected on the push button itself. Close the properties window, and double-click the pushbutton itself. This will open the code editor window, and your cursor will be inside the function that will run when the user presses the pushbutton.

Paste the tax calculation code from the section above into this function, keeping the tax rate multiplier at 0.05. Remember to include the following 2 lines to define the active sheet.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")

Now, repeat the process again, creating a second push button. Make the caption Calculate 7% Tax.

Double-click that button and paste the same code, but make the tax multiplier 0.07.

Now, depending which button you press, the taxes column will be calculated accordingly.

Once you’re done, you’ll have both push buttons on your sheet. Each of them will initiate a different tax calculation and will write different results into the result column. 

To text this, select the Developer menu, and select Design Mode form the Controls group in the ribbon to disable Design Mode. This will activate the push buttons. 

Try selecting each push button to see how the “taxes” result column changes.

Email Calculation Results to Someone

What if you want to send the results on the spreadsheet to someone via email?

You could create another button called Email Sheet to Boss using the same procedure above. The code for this button will involve using the Excel CDO object to configure SMTP email settings, and emailing the results in a user-readable format.

To enable this feature, you need to select Tools and References. Scroll down to Microsoft CDO for Windows 2000 Library, enable it, and select OK.

There are three main sections to the code you need to create to send out an email and embed spreadsheet results.

The first is setting up variables to hold the subject, To and From addresses, and the email body.

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set ws = ActiveWorkbook.Sheets("Sheet1")
strSubject = "Taxes Paid This Quarter"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "The following is the breakdown of taxes paid on sales this quarter."

Of course, the body needs to be dynamic depending on what results are in the sheet, so here you’ll need to add a loop that goes through the range, extracts the data, and writes a line at a time to the body.

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
strBody = strBody & vbCrLf

For Each cell In rng
     strBody = strBody & vbCrLf
     strBody = strBody & "We sold " & Cells(rowCounter, 3).Value & " of " & Cells(rowCounter, 1).Value _
     & " for " & Cells(rowCounter, 4).Value & " and paid taxes of " & Cells(rowCounter, 5).Value & "."
     rowCounter = rowCounter + 1
Next cell

The next section involves setting up the SMTP settings so that you can send email through your SMTP server. If you use Gmail, this is typically your Gmail email address, your Gmail password, and the Gmail SMTP server (smtp.gmail.com).

Set CDO_Mail = CreateObject("CDO.Message") 
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 .Update
End With

With CDO_Mail
     Set .Configuration = CDO_Config
End With

Replace [email protected] and password with your own account details.

Finally, to initiate the email send, insert the following code.

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

Note: If you see a transport error when trying to run this code, it’s likely because your Google account is blocking “less secure apps” from running. You’ll need to visit the less secure apps settings page and turn this feature ON.

After that’s enabled, your email will be sent. This is what it looks like to the person who receives your automatically generated results email.

As you can see there is a lot you can actually automate with Excel VBA. Try playing around with the code snippets you’ve learned about in this article and create your own unique VBA automations.

Related posts

• Najlepszy przewodnik VBA (dla początkujących), jakiego kiedykolwiek będziesz potrzebować

• Jak utworzyć makro lub skrypt VBA w programie Excel?

• Przewodnik po wszystkich rozszerzeniach plików Excel i ich znaczeniu

• Jak usunąć puste linie w Excelu?

• Napraw komunikat o błędzie MS Office „Nie można zweryfikować licencji”

• 4 sposoby konwersji Excela na Arkusze Google

• Jak przenosić kolumny w programie Excel

• Sprawdź wszystkie hiperłącza w dokumencie MS Word w kilka sekund

• Jak śledzić zależności w programie Excel

• Generuj losowy tekst lub tekst Lorem Ipsum w MS Word

• Jak zrobić wykres kołowy w programie Excel

• Jak scalić dane w wielu plikach Excel

• 2 sposoby korzystania z funkcji transpozycji programu Excel

• Jak naprawić wiersz w programie Excel

• Jak wstawić arkusz programu Excel do dokumentu programu Word?

• 4 sposoby użycia znacznika wyboru w programie Excel

• Jak korzystać z funkcji Speak Cells programu Excel

• Jak usunąć zduplikowane wiersze w programie Excel?

• Jak udostępnić plik Excel w celu łatwej współpracy?

• Jak otworzyć Word i Excel w trybie awaryjnym