Kalkulator, który oblicza optymalne ułożenie formatek na arkuszu, podając wielkość arkusza i wielkości użytków.
Kroki do wykonania:
1. Otwórz nowy skoroszyt:- Otwórz Excel.
- Kliknij "Plik" w górnym menu.
- Wybierz "Nowy", a następnie "Pusty skoroszyt".
2. Włącz kartę Deweloper:- Kliknij "Plik" w górnym menu.
- Wybierz "Opcje".
- Przejdź do "Dostosuj Wstążkę".
- Zaznacz "Deweloper" i kliknij "OK".
3. Wprowadź dane wejściowe:- Wprowadź wielkość arkusza w komórkach (np. A1 dla szerokości, A2 dla wysokości).
- Wprowadź wielkości użytków w tabeli (np. kolumny B i C dla szerokości i wysokości użytków).
4. Napisz makro do optymalizacji:- Kliknij na zakładkę "Deweloper".
- Wybierz "Visual Basic", aby otworzyć edytor VBA.
- Wstaw nowy moduł, klikając "Wstaw" -> "Moduł".
- Wpisz poniższy kod makra:
Sub OptymalizujUlozenie() Dim szerokoscArkusza As Double Dim wysokoscArkusza As Double Dim szerokoscFormatki As Double Dim wysokoscFormatki As Double Dim i As Integer Dim j As Integer Dim wynik As String
szerokoscArkusza = Range("A1").Value wysokoscArkusza = Range("A2").Value
wynik = ""
For i = 1 To Range("B1").End(xlDown).Row szerokoscFormatki = Cells(i, 2).Value wysokoscFormatki = Cells(i, 3).Value
If szerokoscFormatki <= szerokoscArkusza And wysokoscFormatki <= wysokoscArkusza Then wynik = wynik & "Formatka " & i & " pasuje na arkusz." & vbCrLf Else wynik = wynik & "Formatka " & i & " nie pasuje na arkusz." & vbCrLf End If Next i
MsgBox wynik End Sub
- Zapisz i zamknij edytor VBA.
5. Dodaj przycisk do uruchamiania makra:- Przejdź do karty "Deweloper".
- Kliknij "Wstaw", a następnie wybierz "Przycisk (Formant formularza)".
- Umieść przycisk na arkuszu.
- Kliknij prawym przyciskiem myszy na przycisku i wybierz "Przypisz makro".
- Wybierz makro "OptymalizujUlozenie" i kliknij "OK".
6. Testowanie kalkulatora:- Wprowadź wielkość arkusza w komórkach A1 i A2.
- Wprowadź wielkości użytków w kolumnach B i C.
- Kliknij przycisk, aby uruchomić makro i zobaczyć wyniki.