OpenOfficen käyttäjien harjoitustyötäydennys

Seuraavassa ohjeita sovelluksen tekemiseen niille, jotka tekevät harjoitustyön OpenOfficella tai jollakin muulla kuin MS Officen ohjelmalla. OpenOfficen makrot ovat hieman vaikeampia käsitellä kuin MS Officen makrot. Makroja ei voi nauhoittaa, kuten MS Officella, joten ne täytyy tehdä käsin tai käyttäen valmiina olevia makroja. Makrojen käyttäminen on kuitenkin sen verran hankalaa, että niiden käyttämistä harjoitustyössä ei vaadita. Makroja saa kuitenkin käyttää, jos haluaa, mutta seuraavassa olevilla tehtävillä voidaan korvata makrojen tekeminen. Tehtävien vastaukset on liitettävä osaksi käyttöohjedokumenttia.

1. Työkalujen käyttäminen

Harjoitustyössä on käytettävä muutamia taulukkolaskentatyökaluja, joiden käyttö kannattaisi yhdistää makroon. Koska makroja ei tarvitse tehdä, niin suunnittele kahteen erilaiseen makroon tulevat toimenpiteet. Toisen makroista täytyy liittyä jonkin työkalun käyttöön. Toimenpiteet täytyy kertoa vaihe vaiheelta! Työkalun käytössä täytyy kertoa kaikki tehtävät toimenpiteet ja valinnat.

2. Makron toimenpiteet

Selitä lyhyesti rivi riviltä mitä seuraava makro tekee. Jos et tiedä jonkin rivin toimintaa, niin merkitse se dokumenttiisi! Makro löytyy harjoitustyömallina käytetystä opiskelijasovelluksesta tenttitulosten lisäämien yhteydestä.

Sub lisaa_tenttitulos()
    ActiveSheet.Unprotect
    Range("A3").Select
    Selection.EntireRow.Insert
    Range("A2:L2").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    'Rows("3:3").Select
    Range("A3").Select
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

3. Makron toimenpiteet

Selitä lyhyesti rivi riviltä mitä seuraava makro tekee. Jos et tiedä jonkin rivin toimintaa, niin merkitse se dokumenttiisi! Makro löytyy harjoitustyömallina käytetystä opiskelijasovelluksesta harjoitustyön lisäämien yhteydestä.

Sub lisaa_harkka()
    ActiveSheet.Unprotect
    Range("A3").Select
    Selection.EntireRow.Insert
    Range("A2:F2").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A3").Select
    ActiveCell.FormulaR1C1 = InputBox("Anna opis ID")
    Range("C3").Select
    ActiveCell.FormulaR1C1 = InputBox("Anna Bonus")
    Range("D3").Select
    ActiveCell.FormulaR1C1 = InputBox("Anna HT1 PVM")
    Range("E3").Select
    ActiveCell.FormulaR1C1 = InputBox("Anna HT2PVM")
    Range("A3").Select
    ActiveSheet.Protect
End Sub