時間割自動作成(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