Sprawdź się

Pobierz arkusz do ćwiczeń:

RnagXkJpZo3Pr

Przycisk do pobrania pliku ZIP z treścią zadania.

Plik ZIP o rozmiarze 15.25 KB w języku polskim

Pokaż ćwiczenia:

Ćwiczenie 1

Wykorzystując plik znajdujący się w załączniku do pobrania, stwórz formularz (bez pisania kodu do jego uruchomienia), za pomocą którego do bazy pracowników firmy dodawane będą następujące dane nowych pracowników:

Imię (pole tekstowe)
Nazwisko (pole tekstowe)
Dział (lista rozwijalna)

Ćwiczenie 2

W puste miejsca wprowadź brakujące elementy kodu napisanego do uruchomienia formularza Nowy Pracownik.

Kliknij, aby wyświetlić wersję ćwiczenia dla Microsoft Excel

Kliknij, aby wyświetlić wersję ćwiczenia dla LibreOffice Calc

R1SyJM36pQpK1

Dim oOknoDialogowe As Object



Sub otworzOknoDialogowe()

    BasicLibraries.LoadLibrary("Tools")

    oOknoDialogowe = LoadDialog("Standard", "ufNowyPracownik")

    tablica = Array("Kadry", "Księgowość", "Magazyn", "Sekretariat", "Sprzedaż", "Zarząd")

    ComboBox = oOknoDialogowe.getControl("cbxDzial")

	ComboBox.addItems(tablica, 0)

	oOknoDialogowe.Execute()

End Sub



Sub dodajWpis()

	

	document = ThisComponent

	Sheets = document.Sheets

	Sheet = Sheets.getByName("Arkusz1")

	Controller = document.getcurrentController

	Controller.setActiveSheet(Sheet)

	

	For i = 1 to 1048577

		ActiveCell = Sheet.getCellByPosition(0,i)

		If ActiveCell.getType() = com.sun.star.table.CellContentType.1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4 Then

			Sheet.getCellByPosition(0,i).setValue(i)

			TextFormularza = oOknoDialogowe.getControl(1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4)

			Sheet.getCellByPosition(1,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			TextFormularza = oOknoDialogowe.getControl("tbNazwisko")

			Sheet.getCellByPosition(2,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			TextFormularza = oOknoDialogowe.getControl("cbxDzial")

			Sheet.getCellByPosition(1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			Exit For

		End If

	Next i

	

End Sub

Dim oOknoDialogowe As Object



Sub otworzOknoDialogowe()

    BasicLibraries.LoadLibrary("Tools")

    oOknoDialogowe = LoadDialog("Standard", "ufNowyPracownik")

    tablica = Array("Kadry", "Księgowość", "Magazyn", "Sekretariat", "Sprzedaż", "Zarząd")

    ComboBox = oOknoDialogowe.getControl("cbxDzial")

	ComboBox.addItems(tablica, 0)

	oOknoDialogowe.Execute()

End Sub



Sub dodajWpis()

	

	document = ThisComponent

	Sheets = document.Sheets

	Sheet = Sheets.getByName("Arkusz1")

	Controller = document.getcurrentController

	Controller.setActiveSheet(Sheet)

	

	For i = 1 to 1048577

		ActiveCell = Sheet.getCellByPosition(0,i)

		If ActiveCell.getType() = com.sun.star.table.CellContentType.1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4 Then

			Sheet.getCellByPosition(0,i).setValue(i)

			TextFormularza = oOknoDialogowe.getControl(1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4)

			Sheet.getCellByPosition(1,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			TextFormularza = oOknoDialogowe.getControl("tbNazwisko")

			Sheet.getCellByPosition(2,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			TextFormularza = oOknoDialogowe.getControl("cbxDzial")

			Sheet.getCellByPosition(1. VALUE, 2. 1, 3. EMPTY, 4. "tbImie", 5. 3, 6. 2, 7. "ufNowyPracownik", 8. 4,i).setString(TextFormularza.getText)

			TextFormularza.Text = ""

			Exit For

		End If

	Next i

	

End Sub

Ćwiczenie 3

W stworzonym wcześniej formularzu Nowy Pracownik dodaj przycisk Zamknij, który będzie kończył pracę z formularzem i napisz do tej czynności odpowiedni kod.

Ćwiczenie 4

Jakie polecenie powinien zawierać kod napisany dla przycisku stworzonego w arkuszu kalkulacyjnym, który będzie uruchamiał formularz Nowy Pracownik? Zaznacz właściwą odpowiedź.

Kliknij, aby wyświetlić wersję ćwiczenia dla Microsoft Excel

Kliknij, aby wyświetlić wersję ćwiczenia dla LibreOffice Calc

Ćwiczenie 5

Którego z obiektów nie można stworzyć za pomocą kontrolek dostępnych w obszarze Toolbox/Przybornik? Zaznacz właściwą odpowiedź.

Kliknij, aby wyświetlić wersję ćwiczenia dla Microsoft Excel

Kliknij, aby wyświetlić wersję ćwiczenia dla LibreOffice Calc

Ćwiczenie 6

Zaznacz właściwe odpowiedzi. Formularz widoczny w edytorze możemy uruchomić za pomocą:

Kliknij, aby wyświetlić wersję ćwiczenia dla Microsoft Excel

Kliknij, aby wyświetlić wersję ćwiczenia dla LibreOffice Calc

R1PYPTyDHBJfu3

Ćwiczenie 7

R1cGo0jftVAmB3

Ćwiczenie 7

Ćwiczenie 8

Oceń prawdziwość zdań.

Kliknij, aby wyświetlić wersję ćwiczenia dla Microsoft Excel

Kliknij, aby wyświetlić wersję ćwiczenia dla LibreOffice Calc

Prezentacja multimedialna

Dla nauczyciela

Microsoft Excel

LibreOffice Calc

Microsoft Excel

LibreOffice Calc