>> 松山東雲女子大学 - Matsuyama Shinonome College Title 授業評価アンケート集計プログラムについて Author(s) 小西, 敏雄 Citation 松山東雲女子大学人文科学部紀要. vol.25, no., p.49- Issue Date

Size: px

Start display at page:

Download ">> 松山東雲女子大学 - Matsuyama Shinonome College Title 授業評価アンケート集計プログラムについて Author(s) 小西, 敏雄 Citation 松山東雲女子大学人文科学部紀要. vol.25, no., p.49- Issue Date"

ひでかたかひ
4 years ago
Views:

1 >> 松山東雲女子大学 - Matsuyama Shinonome College Title 授業評価アンケート集計プログラムについて Author(s) 小西, 敏雄 Citation 松山東雲女子大学人文科学部紀要. vol.25, no., p.49- Issue Date URL Rights Note This document is downloaded IYOKAN - Institutional Repository : the EHIME area

2 松山東雲女子大学人文科学部紀要,25:49-67,2017 授業評価アンケート集計プログラムについて On a VBA Program Created for Generating Class Evaluation Questionnaires 小西敏雄 Toshio KONISHI ( 心理子ども学科子ども専攻 ) 要約 2015 年度より授業評価アンケートが Web 化され集計の担当者として VBA による集計プログラムを自作したキーワード :VBA アンケート集計 [Abstract] This paper introduces a VBA program created by the author for generating class evaluation questionnaires. Key words: VBA program, class evaluation questionnaire 1. 授業評価アンケート集計について文部科学省の平成 26 年度私立大学等改革総合支援事業の私立大学等教育研究活性化設備整備事業が採択され本学では授業評価システムとして Limesurvey を導入し平成 27 年度から授業評価アンケートの Web 上での実施を開始した Limesurvey は Linux 上で動作するフリーのアンケート集計ソフトウェアであるこのソフトを Web サーバに設置し公開することにより不特定多数を対象としたアンケート調査と Web 上でのリアルタイムな集計も可能になった本学では従来より紙ベースでの授業評価アンケートを実施してきた教員が調査対象として選んだ授業科目について学期の最終回終了間際のタイミングで受講している学生にアンケート設問用紙を配布し回答を記入させその場で回収していたその場で回収できるので高い回収率が期待できるのであるが用紙で回収するため必然的にデータは外部業者に委託して手入力で行っていた文部科学省の調査などでは全授業科目に対する実施を推奨する方向であり本学でも全授業科目に対して実施する方向を数年前から模索していた 49

3 小西敏雄今回 Limesurvey を導入したことで設問用紙を印刷するための用紙代印刷のインク代データ入力に関する費用が削減でき全授業科目に対してより効率的な調査が期待された平成 27 年度前学期から実際に Limesurvey を導入するとソフト自体で出力する様式が定型化しており本学で従来から実施している教員別に科目別の集計を行うことが困難であることが分かった従来から使用していた様式で出力するために集計用の VBA プログラムを開発することが必要となった今回の論文はこの作成過程と最終的なプログラムを報告する 2. 出力形式の工夫本学では図 1 に示す授業評価アンケートの質問紙を従来から実施していた集計結果は図 2 のように科目別に帯グラフで各要素と実数を表示し担当教員に集計結果として配布されてきた図年度まで実施されていた授業評価アンケートの設問用紙 50

4 授業評価アンケート集計プログラムについて図 2 配布用の集計結果表 51

5 小西敏雄以上の様式のものを基本的な構造を変えないで同等の情報を提供できる様式を検討した最初の案は手書きで図 3 を構想したこの図を基に出力形式を設計した図 3 レイアウトの設計 52

6 授業評価アンケート集計プログラムについて教員別に集計結果を配布する必要があるので配布用のフォーマットを図 4 のようにエクセルで作成した図 4 配布用集計シート 53

小西敏雄開発開始直後は配布用のフォーマットごと VBA プログラムで作成する予定であったが全教員分を集計するにあたり教員ごとに実施するたび一枚ずつ作成していくのは時間の無駄であることに気が付いたプログラム作成をできるだけ簡単にするために配布用フォーマットの該当欄にカウントした数字を順次書き換えしていく方法を採用した事前作業として

7 小西敏雄開発開始直後は配布用のフォーマットごと VBA プログラムで作成する予定であったが全教員分を集計するにあたり教員ごとに実施するたび一枚ずつ作成していくのは時間の無駄であることに気が付いたプログラム作成をできるだけ簡単にするために配布用フォーマットの該当欄にカウントした数字を順次書き換えしていく方法を採用した事前作業として先に教員コードを用いてアンケートデータを並べ替えし教員ごとの塊に整理するそして完成した配布用フォーマットを入力シートとして事前に作成しておき別のシートにその表をコピーしてその下に各教員別データを記録する形で教員別シートを作成した結果的にこの方法で処理時間の短縮ができた 3. データの文字化け対策 Limesurvey からアンケート結果を回収するためには以下の手順が必要である 1. サーバに接続し Limesurvey に LDAP を使用してログインするアンケートの作者であれば誰でもログインできる 2. 回収するアンケートを選ぶ今回は学生による授業評価アンケートとしたこれは事前に Limesurvey の設定方法に従って調査票のデータを入力しておく必要がある 3. 回答と統計を選ぶ 4. 結果をアプリケーションに出力を選びフォーマットを CSV 見出しを質問コード回答を回答コードとしデータ出力をクリックするこのデータ出力の結果は文字コードの初期設定が UTF-8 であるので Windows の PC で開くと回答データが文字化けして得られるこのため Windows のメモ帳を開きダウンロードしたファイルをそこへドロップするファイル名前を付けて保存とし文字コードを UTF-8 から ANSI へ変更して保存するこの操作でエクセルで扱えるデータに変わるデータの書式は図 5 のように選択肢が A 1 A2, のように記述される図 5 Limesurvey から出力された結果 54

授業評価アンケート集計プログラムについてこれを通常の数値に変えるために Value(Right( データ,1)) 選択肢の値の大小が逆転する場合には 5 - Value(Right( データ,1)) と変換する必要があるこれはデータ集計前に事前に準備しておくそして科目コードから授業科目名と教員名を vlookup

8 授業評価アンケート集計プログラムについてこれを通常の数値に変えるために Value(Right( データ,1)) 選択肢の値の大小が逆転する場合には 5 - Value(Right( データ,1)) と変換する必要があるこれはデータ集計前に事前に準備しておくそして科目コードから授業科目名と教員名を vlookup 関数でつないで図 6 のような集計用のデータが得られる図 6 科目コードと担当者コードをつないで得られた集計用データ 4.VBA によるアンケート集計プログラム以上の準備の上で 2015 年 10 月に次のプログラムを作成した 2015 年度には 2010 年度以前の旧課程の学生が存在したので心理専攻子ども福祉専攻の項目がある 55

9 小西敏雄リスト 1 Attribute VB_Name = "Module 1" Sub furiwake() 授業評価アンケート Limesurvey 用教員別集計プログラム (Ver.1) T.Konishi(c) Dim X, Oldsheet As Worksheet Dim kstart As Integer Dim jiyuuk, kubun As String Dim wa As Single n = Application.WorksheetFunction.CountA(Range(" 評価データ!a1:ag1")) a = Application.WorksheetFunction.CountA(Range(" 評価データ!d1:d10000")) j = 1 Worksheets(" 評価データ ").Activate i = 2 sname = Cells(i, 7).Value Set Oldsheet = ActiveSheet Worksheets(" 集計結果 ").Copy after:=worksheets(" 集計結果 ") ActiveSheet.Name = sname Oldsheet.Activate kstart = 100 idx = 1 For k = 1 To n Worksheets(sname).Cells( 100, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k For i = 3 To a sname 1 = Cells(i, 7).Value If sname1 = sname Then 56

10 授業評価アンケート集計プログラムについて kstart = kstart + 1 For k = 1 To n Worksheets(sname).Cells(kstart, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k Else sname = sname 1 Set Oldsheet = ActiveSheet Worksheets(" 集計結果 ").Copy after:=worksheets(" 集計結果 ") ActiveSheet.Name = sname kstart = 100 idx = idx + 1 Oldsheet.Activate For k = 1 To n Worksheets(sname).Cells(kstart, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k End If Next i アンケート集計処理 kstart = 100 For kkk = 3 To idx + 2 Worksheets(kkk).Activate Cells( 3, 2).Value = Cells(kstart, 7).Value kk = Application.WorksheetFunction.CountA(Range("d 100:d 10000")) IY = 3 ist = kstart IYY = IY + 1 jiyuuk = "" 57

11 小西敏雄 kamoku = Cells(ist, 5).Value Cells( 5, IY).Value = kamoku kamokun = 1 For ii = 1 To kk s = Cells( 99 + ii, 8).Value Cells(s + 5, IYY).Value = Cells(s + 5, IYY).Value + 1 s = Cells( 99 + ii, 9).Value Cells(16 + s, IYY).Value = Cells( 16 + s, IYY).Value + 1 s = Cells( 99 + ii, 10).Value Cells(21 + s, IYY).Value = Cells( 21 + s, IYY).Value + 1 s = Cells( 99 + ii, 11).Value Cells(23 + s, IYY).Value = Cells( 23 + s, IYY).Value + 1 s = Cells( 99 + ii, 12).Value Cells(27 + s, IYY).Value = Cells( 27 + s, IYY).Value + 1 For jj = 1 To 19 s = Cells(99 + ii, 12 + jj).value If s = 0 Then GoTo tugi Cells(2 * jj + 30, IY + s - 1).Value = Cells(2 * jj + 30, IY + s - 1).Value + 1 tugi: Next jj kubun = "/" If Cells(99 + ii, 32) <> "" Then jiyuuk = jiyuuk + CStr(Cells(99 + ii, 32)) + kubun If Cells(100 + ii, 5) = "" Then GoTo nxt If Cells(100 + ii, 5) <> kamoku Then Cells( 70, IY).Value = jiyuuk 58

12 授業評価アンケート集計プログラムについて jiyuuk = "" IY = IY + 4 kamoku = Cells( ii, 5).Value kamokun = kamokun + 1 IYY = IY + 1 Cells( 5, IY).Value = kamoku End If Next ii nxt: IY = 3 For l = 1 To kamokun For ii = 1 To 19 wa = 0# nn = 0# For mm = 1 To 4 wa = wa + Cells( 2 * ii + 30, mm + IY - 1) * mm nn = nn + Cells( 2 * ii + 30, mm + IY - 1) Next mm If nn = 0 Then GoTo nxt 1 scoave = wa / nn Cells( 2 * ii + 31, IY) = Application.WorksheetFunction.Round(scoave, 1) nxt1: Next ii IY = IY + 4 Next l Next kkk End Sub 上記のプログラムを実行した結果は図 7 である 59

13 小西敏雄図 7 アンケート集計結果 (2015) 60

14 授業評価アンケート集計プログラムについて 5.VBA によるアンケート集計プログラム ( 改良版 ) 2016 年度には FD 委員会主導でアンケート項目の見直しが行われ図 8 のような項目に変更された各設問の問いかけ方も学生主体のところを明確にした授業改善のためのアンケート - 松山東雲女子大学松山東雲短期大学 2016 年度前学期 - 属性項目 F0 時間割コードを入力してください F1 あなたの所属学科専攻についてあてはまる数字を1つ選んで下さい 1. 子ども専攻 2. 心理福祉専攻 3. 国際文化学科 4. 保育科 5. 秘書科 6. 現代ビジネス学科 7. 食物栄養専攻 8. 介護福祉専攻 9. 科目等履修生 SEC 生など F2 あなたの学年についてあてはまる数字を1つ選んでください 1.1 年 2.2 年 3.3 年 4.4 年 5. その他あなたが受けたこの授業科目についてお答えください (Q3 以外 ) 1. そう思わない 2. どちらかといえばそう思わない 3. どちらかといえばそう思う 4. そう思う Q1 あなたはシラバスを読んで理解した上でこの授業を履修しましたか Q2 あなたはこの授業に意欲的に取り組みましたか Q3 あなたはこの授業を何回欠席しましたか 1.0 回 2.1~2 回 3.3 回以上 4. わからない Q4 あなたはスマホ私語飲食居眠りをしないなど教室でのマナーをきちんと守りましたか Q5 担当教員の話し方や態度学生に対する接し方は適切だった Q6 担当教員は学生に質問や意見を求めたりするなど学生の反応を確かめながら授業を進めていた Q7 あなたは授業でわからないところがあったときなど授業中あるいは授業時間外に担当教員に質問あるいは相談をしましたか Q8 質問や提出物に対して担当教員から適切なフィードバック ( 応答 ) が得られた Q9 この授業科目の目的 ( この科目を学修する意義 ) は担当教員により明確に示された Q10 この授業は全体として内容がよく整理されまとまっていた Q11 この授業の毎回のテーマははっきりしていた Q12 この授業の進み方時間配分は適切だった Q13 この授業では黒板や提示教材などが理解しやすかった Q14 この授業での教材 ( テキスト参考文献配布プリントなど ) は適切であった Q15 この授業は事前学習事後学習 ( 予習復習 ) に必要な時間またはその学修内容が明確であった Q16 あなたはこの授業の事前学習事後学習 ( 予習復習 ) を十分に行いましたか Q17 あなたはこの授業から刺激を受けて関連する知識や学問にさらなる興味関心をもつようになりましたか Q18 この授業の成績評価に関しては評価項目 ( 学修過程や学修成果をどのような観点から評価するのか ) や配点基準が明確である Q19 この授業は全体としてシラバス通りに行われていた Q20 総合的に判断してこの授業は満足できるものであった Q21 特に何かあれば記入してください ( 自由記述 ) Q22 あなたは授業でのディスカッション ( ゼミあるいはグループワーク等での討論意見交換質疑応答 ) に積極的に参加しましたか Q23 あなたは授業でのプレゼンテーション ( ゼミあるいはグループワーク等での発表 ) の準備に十分な時間をかけて取り組みましたか Q24 授業でのディスカッションやプレゼンテーションにおいて担当教員から適切なコメントやアドバイスをもらえた図 8 アンケート質問項目 (2016) 61

15 小西敏雄さらに前述の心理専攻子ども福祉専攻の学生が居なくなったのでこの項目を削除して以下のプログラム (Ver. 2 ) を作ったリスト 2 Attribute VB_Name = "Module 1" Sub furiwake() 授業評価アンケート Limesurvey 用教員別集計プログラム (Ver.2) T.Konishi(c) Dim X, Oldsheet As Worksheet Dim kstart As Integer Dim jiyuuk, kubun As String Dim wa As Single n = Application.WorksheetFunction.CountA(Range(" 評価データ!a1:ag1")) a = Application.WorksheetFunction.CountA(Range(" 評価データ!d1:d10000")) j = 1 Worksheets(" 評価データ ").Activate i = 2 sname = Cells(i, 7).Value Set Oldsheet = ActiveSheet Worksheets(" 集計結果 ").Copy after:=worksheets(" 集計結果 ") ActiveSheet.Name = sname Oldsheet.Activate kstart = 100 idx = 1 For k = 1 To n Worksheets(sname).Cells( 100, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k 62

16 授業評価アンケート集計プログラムについて For i = 3 To a sname 1 = Cells(i, 7).Value If sname1 = sname Then kstart = kstart + 1 For k = 1 To n Worksheets(sname).Cells(kstart, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k Else sname = sname 1 Set Oldsheet = ActiveSheet Worksheets(" 集計結果 ").Copy after:=worksheets(" 集計結果 ") ActiveSheet.Name = sname kstart = 100 idx = idx + 1 Oldsheet.Activate For k = 1 To n Worksheets(sname).Cells(kstart, k).value = Worksheets(" 評価データ ").Cells(i, k).value Next k End If Next i アンケート集計処理 kstart = 100 For kkk = 3 To idx + 2 Worksheets(kkk).Activate Cells( 3, 2).Value = Cells(kstart, 7).Value kk = Application.WorksheetFunction.CountA(Range("d 100:d 10000")) IY = 3 ist = kstart 63

17 小西敏雄 IYY = IY + 1 jiyuuk = "" kamoku = Cells(ist, 5).Value Cells( 5, IY).Value = kamoku kamokun = 1 For ii = 1 To kk s = Cells( 99 + ii, 8).Value Cells(s + 5, IYY).Value = Cells(s + 5, IYY).Value + 1 s = Cells( 99 + ii, 9).Value Cells(14 + s, IYY).Value = Cells( 14 + s, IYY).Value + 1 For jj = 1 To 23 s = Cells(99 + ii, 9 + jj).value If s = 0 Then GoTo tugi Cells(2 * jj + 18, IY + s - 1).Value = Cells(2 * jj + 18, IY + s - 1).Value + 1 tugi: Next jj kubun = "/" If Cells(99 + ii, 33) <> "" Then jiyuuk = jiyuuk + CStr(Cells(99 + ii, 33)) + kubun If Cells(100 + ii, 5) = "" Then GoTo nxt If Cells(100 + ii, 5) <> kamoku Then Cells( 66, IY).Value = jiyuuk jiyuuk = "" IY = IY + 4 kamoku = Cells( ii, 5).Value kamokun = kamokun + 1 IYY = IY

18 授業評価アンケート集計プログラムについて Cells( 5, IY).Value = kamoku End If Next ii nxt: IY = 3 For l = 1 To kamokun For ii = 1 To 23 wa = 0# nn = 0# For mm = 1 To 4 wa = wa + Cells( 2 * ii + 18, mm + IY - 1) * mm nn = nn + Cells( 2 * ii + 18, mm + IY - 1) Next mm If nn = 0 Then GoTo nxt 1 scoave = wa / nn Cells( 2 * ii + 19, IY) = Application.WorksheetFunction.Round(scoave, 1) nxt1: Next ii IY = IY + 4 Next l Next kkk End Sub 上記のプログラムを実行した結果は図 9 である 65

19 小西敏雄図 9 アンケート集計結果 (2016) 66

20 授業評価アンケート集計プログラムについて 6. 課題と考察 2015 年から 2 年間 Web 上での授業評価アンケートの実施を行い回答の回収率がきわめて低く全学生の提出を義務化する方向を検討する必要を感じた授業最後に授業評価アンケートに回答をする時間を特に設けてもアンケートの回答は成績等に無関係であるので意識的に回答しない学生が多数存在したある授業では自由記述欄に自分の学生番号を書きなさい未提出の学生を確認しますとアナウンスして回収率を高めてみたが主体的な回答ではなく何か空しい気がした今回作成したプログラムは実行前の段階までに行う事前作業が多くその処理を自動化する望ましい設問が変化がないのであればパソコン操作に詳しい者でなくても回答の処理が実施できるように作っておくことが望ましい今回は開発時間の都合で事前作業が多い仕様である Web 上で実施する事業評価アンケート実施に関する問題点として上記のほか以下のものが考えられるすべての設問に回答していないものをどうするか? 回収率を高くする工夫として学生番号の入力を義務としてはどうか?( この場合回答が教員に対する批判と受け取られ個人の成績評価等で不利益が発生しないように対処しないといけない ) 科目コードを手入力させたと思われる科目については入力ミスが発生している QR コードを事前に印刷し配布しておくなどアンケート調査時の補足資料が必要かもしれない 2017 年度からは本学 FD 委員会主導で授業評価アンケートの回答率を向上させるためマークシート読み取り用のスキャナを導入して学生に最終回の授業終了直前にマークシートを配布して授業評価アンケートを回答させる方法に変わる予定である今回作成したプログラムの使命は 2017 年度後学期の集計作業で最後となるしかしマークされたシートから読み取られたデータに対してデータ形式の交換等の事前作業を行うことで今回のプログラムを若干修正するだけで対応ができると思われる今後より優れたシステムに改良を加えていく予定である 67

大阪工業大学授業アンケートシステム教員側画面操作説明

大阪工業大学授業アンケートシステム教員側画面操作説明本マニュアルは継続して使用いただきますので各自で保存願います ( 内容に変更が生じた場合には再度配布します ) 大阪工業大学授業アンケートシステム C-Learning 教員側画面操作マニュアル担当部署 : 工大教務課 1 2014.12 Ver.4.0 目次非常勤講師の先生など学外からシステムにアクセスする方法 0. 学外から学内ネットワークを利用する方法 (VPN) 3P 教員側画面の基本的な使い方