5600 Békéscsaba, Derkovits sor 2.
TÁMOP 2.2.7-B-2-13/1-2014-004 „Békési Megyei Képzési Klaszter, avagy gyakorlatorientált ágazati szak- és felnőttképzési együttműködések a megye hátrányos helyzetű térségeinek felzárkóztatása érdekében” projekt
A MUNKÁLTATÓK JÖVŐBELI FOGLALKOZTATÁSI IGÉNYEINEK FELMÉRÉSE
250 ELEMSZÁMÚ MUNKÁLTATÓI MINTÁN
A MUNKÁLTATÓK JÖVŐBELI FOGLALKOZTATÁSI IGÉNYEINEK FELMÉRÉSÉRE KIDOLGOZOTT KÉRDŐÍV ADATRÖGZÍTŐ (ADATFELVEVŐ) FELÜLETÉNEK DOKUMENTÁCIÓJA.
CFK_II/1.
Békéscsaba, 2015. április 30. Készítette: …………….………….…………………….. Medovarszky Pál
A célfeladatban meghatározott feladat: II) A munkáltatók jövőbeli foglalkoztatási igényeinek felmérése 250 elemszámú munkáltatói mintán 1) A rögzítési adatstruktúra kialakítása, az adatrögzítési felület tervezése, az adatkimutatás elvárásainak összefésülése, az adatrögzítő felület tesztelése, elkészítése. Előzmény A célfeladatban meghatározott funkciók ellátására olyan elektronikus adatrögzítési felület biztosítása, mely képes a szakemberek által kidolgozott szakmai kérdésekre adott válaszok rögzítésére és azok elektronikus formában való tárolására, valamint a kodifikációnak köszönhetően egységes adatstruktúrában megjeleníteni az adatokat. Mindezek mellett arra is törekednünk kellett, hogy a kérdőíveket kitöltő munkaadók rendelkezzenek azokkal a szoftvereszközökkel, melyekkel a kérdőív megválaszolható. A törekvésem az volt, hogy lehetőség szerint olyan adatrögzítő felületet biztosítsak, melyek túl azon, hogy biztosítják a fenti kritériumok teljesülését, önmagukban is alkalmasak a munkaadók általi kitöltésre, tehát nagyobb elemszám esetén ne legyen szükség adatrögzítők igénybe vételére. A feladat végrehajtása, alkalmazott szoftver eszközök A minél szélesebb körben történő adatkitöltés és a lehető legmagasabb válaszadási hajlandóság elérése érdekében a célfeladat kiírásra 2 elektronikusan kitölthető rögzítő felületet készítettem, az egyik egy Adobe pdf űrlapkitöltős kérdőívsablon, míg a másik egy Microsoft Office Excel 2007 munkafüzetbe szerkesztett kérdőív. Mindkét kérdőívsablon megfelelt a projekt korábbi szakaszában szakemberek által kidolgozott és a projekttagok által egyeztetett és jóváhagyott, papír alapon megszerkesztett kérdőívnek.
Az Adobe Acrobat Reader - pdf űrlapkitöltős rögzítő felület Ezen kitöltési formát azon megkérdezetteknek szántam, akik nem rendelkeznek Microsoft Office Excel szoftverrel. Esetükben a meglehetősen elterjedt és az Internetről ingyenes letölthető Adobe Reader szoftver nyitott lehetőséget az űrlap alapra szerkesztett kérdőív kitöltésére.
Ezen alternatíva előnye, hogy akár az üres kérdőívplatform, akár a már kitöltött kérdőív nyomtatható és így akár papír alapon is eljuttatható a megkérdezettekhez, illetve visszajuttatható a kérdező szervezethez. Másik előnye a már említett ingyenesen elérhető „kitöltőszoftver”. Kétségtelen hátránya ugyanakkor, hogy egyszerű űrlap felépítése nem teszi lehetővé sem a bonyolult összefüggés- és ellentmondás-relációk beépítését a kérdőívbe, másrészről nem tartalmaznak kodifikált választólistás alternatívamezőket, így szabad kitöltésű minden mező, tehát feltétlenül szükséges az adatok ellenőrzése, hibajavítása és bizonyos esetekben utólagos kodifikációja. Mindezek mellett a feltételes elágazásokat eredményező kérdések sem programozhatóak, tehát a kitöltés a különböző kérdések közötti körülírt eltérítő-utasításokkal meglehetősen bonyolult. Ez utóbbi hiányosságokat igyekszik kiküszöbölni a kidolgozott Excel alapú kérdőív űrlap. A kitöltő felület kinézete kitöltés közben:
A Microsoft Office Excel platformú rögzítő felület Az űrlapmodulú kitöltő felület Ms Office Excel táblázatkezelő szoftverrel készült, kitöltésének is alapfeltétele ezen program megléte. A kitöltő felület Visual Basic makrókkal kezeli le valamennyi, kitöltés során szükséges és biztosított interaktív funkciót. A szoftver használata során fontos beállítás, hogy a kitöltő hardveren történő indításkor, az Excel betöltésekor a makrók futtatása feltétlenül engedélyezve legyen. Amennyiben ez alapbeállításként nincs biztosítva, úgy azt az alábbi linkek leírása szerint biztosítani szükséges: :Microsoft Office 2007 esetében, Microsoft Office 2010 esetében A megírt makrók a kitöltés során a vezérlőobjektumokkal (nyomógombok) következő funkciókat kezelik: Kérdéslapok közötti navigációk (előrelépés, visszalépés, tetszőleges lap elérése) Kérdőív mentése. Feltételes elágazású kérdések, válasz alapján történő továbbirányítása
a
Mindezek mellet valamennyi kodifikált mező (TEAOR, FEOR, végzettség, szakképzettség) legördülő választólistás mezőérvényesítéssel is rendelkezik, így az előre meghatározott értékeken kívüli választás nem volt lehetséges. Az egymással összefüggéseket mutató számadatok ellenőrzését is elvégzi az űrlap, melyet figyelmeztető hibajelzéssel jelöl a kitöltő számára. A kitöltő felület kinézete kitöltés közben:
5600 Békéscsaba, Derkovits sor 2.
A navigációt, a mentést és a feltételes elágazású kérdések, válasz alapján történő továbbirányítását biztosító Visual Basic parancssorok Sub Indulas() Sheets("II. kérdés").Select End Sub Sub Nincsallas() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("128:65536").Select Selection.EntireRow.Hidden = True ActiveSheet.Protect pass Sheets("III. kérdés").Select Range("A1").Select End Sub Sub Vanallas() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("128:65536").Select Selection.EntireRow.Hidden = False Rows("181:65536").Select Selection.EntireRow.Hidden = True Range("B132:E132").Select ActiveSheet.Protect pass End Sub Sub nincsvalt() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = False Rows("11:65536").Select Selection.EntireRow.Hidden = True Sheets("IV. kérdés").Select Range("a1").Select End Sub Sub Szerkezet() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = False Rows("99:65536").Select
Selection.EntireRow.Hidden = True Range("P14").Select ActiveSheet.Protect pass End Sub Sub Bovites() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = Rows("99:188").Select Selection.EntireRow.Hidden = Rows("11:99").Select Selection.EntireRow.Hidden = Rows("188:65536").Select Selection.EntireRow.Hidden = Range("P103").Select ActiveSheet.Protect pass End Sub
False False True True
Sub megszunes() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("187:276").Select Selection.EntireRow.Hidden = False Rows("11:187").Select Selection.EntireRow.Hidden = True Rows("276:65536").Select Selection.EntireRow.Hidden = True Range("P191").Select ActiveSheet.Protect pass End Sub Sub kezdolapra() Sheets("Kérdőív").Select Range("a1").Select End Sub Sub masodikkerdesre() Sheets("II. kérdés").Select Range("a1").Select End Sub Sub harmadikkerdesre() Sheets("III. kérdés").Select Range("a1").Select
End Sub Sub negyedikkerdesre() Sheets("IV. kérdés").Select Range("a1").Select End Sub Sub otodikkerdesre() Sheets("V. kérdés").Select Range("a1").Select End Sub Sub hatodikkerdesre() Sheets("VI. kérdés").Select Range("a1").Select End Sub Sub vankepz() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = Rows("38:65536").Select Selection.EntireRow.Hidden = Rows("60:69").Select Selection.EntireRow.Hidden = Rows("70:65536").Select Selection.EntireRow.Hidden = Range("F18").Select ActiveSheet.Protect pass End Sub
False True False True
Sub nincskepz() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = False Rows("38:58").Select Selection.EntireRow.Hidden = False Rows("11:37").Select Selection.EntireRow.Hidden = True Rows("70:65536").Select Selection.EntireRow.Hidden = True Range("i55").Select ActiveSheet.Protect pass End Sub
Sub vantanszerz() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = False Rows("38:65536").Select Selection.EntireRow.Hidden = True Range("f18").Select ActiveSheet.Protect pass End Sub Sub nincstanszerz() pass = "xxxxxx" ActiveSheet.Unprotect pass Rows("11:65536").Select Selection.EntireRow.Hidden = False Rows("11:37").Select Selection.EntireRow.Hidden = True Rows("38:58").Select Selection.EntireRow.Hidden = False Rows("59:65536").Select Selection.EntireRow.Hidden = True Range("a1").Select ActiveSheet.Protect pass End Sub Sub mentes() Dim sFile As String Dim fPath As String Sheets("Kérdőív").Select If Range("C34") = "" Then sFile = "Kérdőív" Else sFile = Range("C34") MsgBox "Kérem adja meg hová kívánja menteni a kitöltött kérdőívet! A file elnevezése kitöltött adószám esetén a 'cég adószáma.xls', kitöltetlen adószám esetén 'Kérdőív.xls' lesz!" With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show If .SelectedItems.Count <> 0 Then fPath = .SelectedItems(1) & "\" ActiveWorkbook.SaveAs fPath & sFile & ".xls" MsgBox "A kérdőív '" & sFile & ".xls' néven mentésre került a(z) " & fPath & " könyvtárba" End If End With End Sub
A többválasztós lekérdezésekhez értéket rendelő VB parancssorok: II. kérdés Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("t158").Value = 1 If CheckBox1.Value = False Then Range("t158").Value = 0 End Sub Private Sub CheckBox12_Click() If CheckBox12.Value = True Then Range("t176").Value = 1 And Range("i176").Select If CheckBox12.Value = False Then Range("t176").Value = 0 End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("t160").Value = 1 If CheckBox2.Value = False Then Range("t160").Value = 0 End Sub Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Range("t162").Value = 1 If CheckBox3.Value = False Then Range("t162").Value = 0 End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then Range("t164").Value = 1 If CheckBox4.Value = False Then Range("t164").Value = 0 End Sub Private Sub CheckBox5_Click() If CheckBox5.Value = True Then Range("t166").Value = 1 If CheckBox5.Value = False Then Range("t166").Value = 0 End Sub Private Sub CheckBox6_Click() If CheckBox6.Value = True Then Range("t168").Value = 1 If CheckBox6.Value = False Then Range("t168").Value = 0 End Sub Private Sub CheckBox7_Click() If CheckBox7.Value = True Then Range("t170").Value = 1 If CheckBox7.Value = False Then Range("t170").Value = 0 End Sub Private Sub CheckBox8_Click()
If CheckBox8.Value = True Then Range("t172").Value = 1 If CheckBox8.Value = False Then Range("t172").Value = 0 End Sub Private Sub CheckBox9_Click() If CheckBox9.Value = True Then Range("t174").Value = 1 If CheckBox9.Value = False Then Range("t174").Value = 0 End Sub
IV. kérdés Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("t158").Value = 1 If CheckBox1.Value = False Then Range("t158").Value = 0 End Sub Private Sub CheckBox12_Click() If CheckBox12.Value = True Then Range("t176").Value = 1 And Range("i176").Select If CheckBox12.Value = False Then Range("t176").Value = 0 End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("t160").Value = 1 If CheckBox2.Value = False Then Range("t160").Value = 0 End Sub
Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Range("t162").Value = 1 If CheckBox3.Value = False Then Range("t162").Value = 0 End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then Range("t164").Value = 1 If CheckBox4.Value = False Then Range("t164").Value = 0 End Sub Private Sub CheckBox5_Click() If CheckBox5.Value = True Then Range("t166").Value = 1 If CheckBox5.Value = False Then Range("t166").Value = 0 End Sub Private Sub CheckBox6_Click() If CheckBox6.Value = True Then Range("t168").Value = 1 If CheckBox6.Value = False Then Range("t168").Value = 0
End Sub Private Sub CheckBox7_Click() If CheckBox7.Value = True Then Range("t170").Value = 1 If CheckBox7.Value = False Then Range("t170").Value = 0 End Sub Private Sub CheckBox8_Click() If CheckBox8.Value = True Then Range("t172").Value = 1 If CheckBox8.Value = False Then Range("t172").Value = 0 End Sub Private Sub CheckBox9_Click() If CheckBox9.Value = True Then Range("t174").Value = 1 If CheckBox9.Value = False Then Range("t174").Value = 0 End Sub
V. kérdés Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("t41").Value = 1 If CheckBox1.Value = False Then Range("t41").Value = 0 End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("t43").Value = 1 If CheckBox2.Value = False Then Range("t43").Value = 0 End Sub Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Range("t45").Value = 1 If CheckBox3.Value = False Then Range("t45").Value = 0 End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then Range("t47").Value = 1 If CheckBox4.Value = False Then Range("t47").Value = 0 End Sub Private Sub CheckBox5_Click() If CheckBox5.Value = True Then Range("t49").Value = 1 If CheckBox5.Value = False Then Range("t49").Value = 0 End Sub Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then Range("t51").Value = 1 If CheckBox6.Value = False Then Range("t51").Value = 0 End Sub Private Sub CheckBox7_Click() If CheckBox7.Value = True Then Range("t53").Value = 1 If CheckBox7.Value = False Then Range("t53").Value = 0 End Sub Private Sub CheckBox8_Click() If CheckBox8.Value = True Then Range("t55").Value = 1 And Range("i55").Select If CheckBox8.Value = False Then Range("t55").Value = 0 End Sub
VI. kérdés Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("t41").Value = 1 If CheckBox1.Value = False Then Range("t41").Value = 0 End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("t43").Value = 1 If CheckBox2.Value = False Then Range("t43").Value = 0 End Sub Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Range("t45").Value = 1 If CheckBox3.Value = False Then Range("t45").Value = 0 End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then Range("t47").Value = 1 If CheckBox4.Value = False Then Range("t47").Value = 0 End Sub Private Sub CheckBox5_Click() If CheckBox5.Value = True Then Range("t49").Value = 1 If CheckBox5.Value = False Then Range("t49").Value = 0 End Sub Private Sub CheckBox6_Click() If CheckBox6.Value = True Then Range("t51").Value = 1 If CheckBox6.Value = False Then Range("t51").Value = 0 End Sub
Private Sub CheckBox7_Click() If CheckBox7.Value = True Then Range("t53").Value = 1 If CheckBox7.Value = False Then Range("t53").Value = 0 End Sub Private Sub CheckBox8_Click() If CheckBox8.Value = True Then Range("t55").Value = 1 And Range("i55").Select If CheckBox8.Value = False Then Range("t55").Value = 0 End Sub
Az elektronikus kérdőívek készítése során alkalmazott szoftver eszközök: Microsoft Office Excel 2007 Adobe Acrobat
Elektronikus adathordozón (CD) csatolt mellékletek: Adobe Reader formátumú „Foglkérdőív_ver_1.3.pdf” file Microsoft Office Excel 2007 formátumú „Foglkérdőív_ver_1.3.xls” file
Békéscsaba, 2015. április 30.
…….………….…………………….. Medovarszky Pál
