Excel Maniacs

時間割自動作成(10)

【´･ω･`】：さあ、いよいよ最終バージョン、プロトタイプⅢの公開だ。

(●`ε´●)：どんな仕様だったっけ？

【´･ω･`】：仕様は以下の通りだ。

• あらかじめ特定の科目を特定の曜日の特定の時間に組み込める。
• 同じ科目を同じ日に２時間履修することの無いようにする。
• ２時間続きの科目を設定できるようにする。

【´･ω･`】：今回はプロトタイプⅡに、２時間続きの科目を設定できる機能を

　　　　　付け加えた。画面は下のようになる。

*

*

*

*

使い方は・・・

1. 科目名を設定し・・・
2. 単位数を設定・・・（30単位になるように）・・・
3. 二時間続きにしたい科目には１を入力・・・
4. マクロ「時間割作成03」を実行。

サンプルファイルを用意したので試して欲しい。

snsSample011.lzhをダウンロード

時間割自動作成(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に設定し直す。

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

　　　　　　

　　　　　　

時間割自動作成(8)

【´･ω･`】：下が時間割自動作成プログラムⅡの核となる部分だ。

!!時間割自動作成プロトタイプⅡ
!!同じ日に同じ科目を入れない

!!時間割表を火・木の6限にそれぞれ総合・LHRを

!!先指定したままクリアー、
Range("B2:F6").Select()
Range("B7").Select(true)
Range("D7").Select(true)
Range("F7").Select(true)
Selections.Clear(1, false, false, false)

MsgBox("時間割を作ります")

!!ここから時間割作成

   %空欄の数 = Cells(1, 1)　!!書き込むべき単位数

   %科目 = 2
   
    For %試行回数 = 1 To 1000
        Randomize(ThisTime())           !!乱数の発生
        %列 = Int(Rand()* 5) + 2
        %行 = Int(Rand() * 6) + 2
       
       
        %該当科目の単位数  = Cells(%科目, 9)　 !!個々の科目の単位数
       
        If Cells(%行, %列) = "" Then
        　　!!同一科目の履修がなければ
        　　!!科目名を書き込む
            If Not 重複検査(%列,%科目) Then　　　
                Cells(%行, %列) = Cells(%科目, 8)
                %書き込済み科目名 = %書き込済み科目名 + 1
            End If
        End If
       
       !!科目の書き込みが指定の
　　　　!!単位数になったら次の科目へ
        If %書き込済み科目名 = %該当科目の単位数  Then　
           %科目 =%科目 + 1
            %書き込んだ単位数  = %書き込んだ単位数  + %書き込済み科目名
            
           !!指定された単位数の合計分
            !!科目名を書き込んだら終了、
            If %書き込んだ単位数  = %空欄の数 Then
             Stop
            End If
            %書き込済み科目名 = 0
            
        End If
            
            
    Next
MsgBox("ﾀﾞﾒﾎﾟ") 

【´･ω･`】：時間割自動作成プログラムⅠと大きく違うのは

　　　　　赤字の部分だ。

(●`ε´●)：赤字の部分？

【´･ω･`】：うん、そこで重複検査(%列,%科目)を呼び出して

　　　　　同じ列、つまり同じ曜日にに科目名が重複していないかを

　　　　　検査して、重複していなければ時間割に科目名を書き込むように

　　　　　している。　

(●`ε´●)：単純だな。では重複検査(%列,%科目)のコードは？

【´･ω･`】：それも単純なコードだ。次回、時間割自動作成(8)で

　　　　　　お見せしよう。