Excel Maniacs

時間割自動作成(4)

【´･ω･`】：下が時間割自動作成プロトタイプⅠの全コードだ。

　　　　　　取りあえず、見ておいて欲しい。

　　　　　　%Tanni_Total = Cells(1, 1)　　　　　!!書き込むべき単位数
    　　　　 %i = 2
   
               For %j = 1 To 1000
                       Randomize(ThisTime())             !!乱数の発生
                       %X = Int(Rand() * 5) + 2
                      %Y = Int(Rand() * 6) + 2
       
                     %Tannisu = Cells(%i, 9)             !!個々の科目の単位数
       
                   If Cells(%Y, %X) = "" Then　　　　!!科目名を書き込む
                            Cells(%Y, %X) = Cells(%i, 8)
                           %Count = %Count + 1
                  End If
       
                  If %Count = %Tannisu Then　　　!!科目の書き込みが指定の
                           %i = %i + 1　　　　　　　　　　!!単位数になったら次の科目へ
                          %Limit = %Limit + %Count
                           If %Limit = %Tanni_Total Then
                                   Stop　　　　　　　　　!!指定された単位数の合計分、　　
                          End If　　　　　　　　　　　　!!科目名を書き込んだら終了　
            
                        %Count = 0
            
                     End If
                        
         Next

時間割自動作成(3)

【´･ω･`】：サンプルファイルを開くと下の二つの表が現れる。

　　　　　　（snsSample009.lzhをダウンロード ）

*

*

*

*

*

(●`ε´●)：B2からF７のセルに科目名を割り振っていくというわけだな？

【´･ω･`】：うん。あと注意して欲しいのは一つセルに数式が埋め込まれている。

　　　　　　A1に=CountBlank(B2:F7)

　　　　　　・・・だ。

　　　　　　それに科目は10個ほど。単位数をキーにして降順に並んでいる。

　　　　　　科目を増やすのはたいしたマクロを組むに際しては手間ではない。

　　　　　　増やすならば、それに応じて数字を変えればいい。

(●`ε´●)：どうして単位数をキーにして降順なんだ？

【´･ω･`】：実際に時間割作成の作業に当たった人は経験的に知っていると

　　　　　　思うが、単位数の多いものからコマを組んでいった方が、作りやすいんだ。

(●`ε´●)：あと、火曜日の6限にに「総合」、木曜日の6限に「LHR」がすでに

　　　　　　組み込まれているようだが？

【´･ω･`】：うん。この曜日のこの時間には、この科目を・・・と既に決まっているものも

　　　　　　あるから、そういう科目はあらかじめ時間割に組み込んでおけるようにしたい。

時間割自動作成(2)

(●`ε´●)：おい、くまぷー！このブログがジャストブログ トップページ、

　　　　　「今週のピックアップブログ」に選ばれているぞ！！

【´･ω･`】：あ、ほんとうだ！

(●`ε´●)：おまえみたいな、いい加減なやつの戯言が選ばれるとはな！！

【´･ω･`】：うん、確かに。くまぷーのブログが選ばれるなんてありがたいことだ！！

(●`ε´●)：これを励みになお一層、内容を充実させないとな！！

【´･ω･`】：うん。

　　　　　　さて、それでは「時間割自動作成」だが、まず、第一段階として

　　　　　　ただランダムに時間割に科目を単位数分だけ当てはめていく

　　　　　　というところから始めようか。

(●`ε´●)：・・・ということは同じ日に同一の科目が入ることもあるし、

　　　　　　2時間続きの科目を指定する機能もないということだな。

【´･ω･`】：取りあえず、下敷きとなるファイルを用意したから

　　　　　　ダウンロードしておいてくれ。

snsSample009.lzhをダウンロード