時間割自動作成(9)

【´･ω･`】：下が１日に同一科目を履修しているかいないかを検査する

　　　　　　関数のコードだ。

Private Function 重複検査(%曜日 , %科目 ) As Boolean
    !!同一曜日に同じ科目がないかチェックする
    !!同じ科目があればTrueをかえす。
   
    重複検査 = False
   
    %科目名 = Cells(%科目, 8)
    For %i = 2 To 7
        If Cells(%i, %曜日) = %科目名 Then
          重複検査 = True
        End If
    Next
       
   
   
End Function

(●`ε´●)：で、どんな動きをするんだ？

【´･ω･`】：この関数は重複があればTRUEを、そうでなければFALSEを返す。

　　　　　　まず、最初に・・・

　　　　　　重複検査 = False

　　　　　　・・・・で、とにかく重複はないということにしておく。

　　　　　　そして、つぎの・・・

　　　　　　%科目名 = Cells(%科目, 8)

　　　　　　・・・変数科目名に検査するべき科目名を格納しておく。

　　　　　　そして、次のForループで、当該曜日の１時間目から

　　　　　　６時間目までを調べて、もしも重複があれば・・・

　　　　　　重複検査 = True

　　　　　　･･･で関数の戻り値をTRIUEに設定し直す。

(●`ε´●)：単純だな。