• アミューズメントプログラミング(第9回) 第8回

• 3年実験：あらき担当分なし

• データを整理して思ったのは、 データベースを正規化するというよりは、 不完全かつ不正確なデータベースに対して必要な情報を補完し、 データを補正するのが主要な作業だった。
• データを整理するのに、少なくとも次のキー(とその組み合わせ)によるソートが必要だった；
  • 担当者：担当者ごとに授業を括る
  • 時限, ソート曜日, ソート期：学期、曜日、時限で整列する
  • 春秋区分：セメスター開講とクォーター開講を括る
  • 科目番号、授業番号、授業番号枝番：複数の授業を開講する科目に対する 開講数の遺漏の無さや 科目番号、授業番号の重複のチェック
  • 括りメモ：上記のソートを組み合わせた後で、一つの授業に対応する科目を括る
• 不完全情報はほぼ「同時開講」に関するものであり、 学部、学科をまたぎ、課程年度をまたいでいて、 「目の子」でしか整理できないものもある。 そして不完全情報の全てを「目の子」で整理するには量が多すぎる。
• 1次情報の当事者である学科には、 学科をまたぐ情報のつながりを把握するのは難しい。
• 8年前の前回のシステム更新時と比べて(cf.2012.4)、 学部、学科、専攻、コースという異なるカリキュラムの数と 同時開講の絡みの数が 段違いに多くなっていて、 クロスチェックがシビアな作業になっている …これは惰性でいままでのカリキュラムのお手入れ法を継続したら、 事務方でのデータ処理が破綻してしまうことを示唆しているのかも。

Sub buttonClickHandler()
    Dim [declarations]
    
    nameButton = Application.Caller 'クリックしたボタンのTextが戻ってくる
    nameSheet = ActiveSheet.Name 'ボタンクリックは当然 ActiveSheet で起きる
    
    Select Case nameSheet
    Case [Sheet1]
        Select Case nameButton
        Case [Button1]
            [ret] = Application.Run([procedure name], [parameters])
        Case [Button2]
        ...
        End Select
    Case [Sheet2]
        Select Case nameButton
        Case [Button1]
            [ret] = Application.Run([procedure name], [parameters])
        Case [Button2]
        ...
        End Select
    ...
    End Select
End Sub