Excel Maniacs

学級通信･･･自由な発想が大事だよ

遠足は八景島シーパラダイス…ということなので「学級通信」の ネタになるものはないかと八景島シーパラダイスのホームページを 見ていたところ…ありました、ありました！！

(^○^)

八景島シーパラダイスにはブルー・フォール、バイキング、 サーフコースターと三つの絶叫系アトラクションがありますが、 その中のサーフコースターというジェットコースターの紹介文に注目です。 （以下引用） ★サーフコースター

海に突き出したループと海の上を爽快に駆け抜けるサーフコースター。 走行距離が長く海中に引き込まれていくような感覚は、病みつきになること 間違いなし。乗車中の表情を撮影するサービス「サーフコースターフォト」が ３回目のループを抜けたあとにあるから、カメラのポイントを探して笑顔で ポーズを決めてみよう。夜にはライトアップ されて、また違った乗り心地が 味わえるはず！サーフコースターは１番前の席が人気だけど、絶叫マシンが 好きな人は後方に乗ることが多いんだって。というもの後方のほうが 引っ張られる力が強く、迫力があるから。さらに、すいているときよりも乗車 人数が多いほうが、重さが増えて速くなるという話。また、乗車時間帯に よっても若干スピードに違いがあるという噂も･･･。何度も乗って確かめてみて！ （引用終わり、下線はくまぷー）

下線の部分に注目です。特に赤字の部分に！「重さが増えて速くなる」と あります。これはガリレオに対する挑戦でしょうか！ ガリレオ以前の時代は重い物体の方が軽い物体より落下速度が大きいと 信じられていました。それがガリレオの時代になると有名なピサの斜塔の 実験により

落下速度は物質の重さには依存しない

ということがわかりました。「落下速度は物質の重さに依存しない」ということは 軽い物でも重い物でも落ちる速さは同じだということです。実生活では重い物体 の方が軽い物体より落下速度が大きいような気がします。 でも空気抵抗がものすごく小さければガリレオの言うように「落下速度は 物質の重さに依存しない」のです。 　ここでくまぷーが注目するのはガリレオの「常識」にとらわれない、 「落下速度は物質の重さに依存しない」のではないかという発想です。 よくそんなことに気がついて実験をする気になったなぁ、と感心します。 　シーパラに行ったらガリレオに想いをは馳せながらサーフコースターに 乗ってみるのも良いかもしれません。

※ガリレオ…Galileo Galilei(1564-1642)　ルネサンス末期の イタリアの科学者、落体の法則や振り子の等時性を発見し 近代力学の創始者となる。

時間割自動作成(13)

【´･ω･`】：今回はまず、サブプロシージャ、Main_Partからだ。

　　　　　　まず見てくれ。

Sub Main_Part()
%Tanni_Total = Cells(13, 10)
    %i = 2
   
    For %j = 1 To 10000
        Randomize(ThisTime())            !!乱数の発生
        %X = Int(Rand() * 6 + 1)
        %Y = Int(Rand() * 6 + 1)
       
        %Tannisu = Cells(%i, 9)
      
            
        If Cells(%Y + 1, %X) = "" Then
          If Cells(%i, 9) > Cells(%i, 10) Then
            If Not Kamoku_Check(%X, %i) Then
                Cells(%Y + 1, %X) = Cells(%i, 8)
               
            End If
          End If
        End If
       
        If Cells(%i, 10) = %Tannisu Then
            
            %Limit = %Limit + Cells(%i, 10)
            %i = %i + 1
            If %Limit = %Tanni_Total Then
             Exit Sub
            End If
            
        End If
            
            
    Next
End Sub   

(●`ε´●)：なんだ、プロトタイプⅡのコードとやっていることは

　　　　　　同じだな。

【´･ω･`】：うん、まずPut2jikanで２時間続きの科目を書き込み、

　　　　　残りの科目を空いているところにMain_Partで書き込むだけだからな。

　　　　　一応全てのコードを掲載しておこう。

%MyRange=Range("B2:F7")
%Cnt=0
Do While %Cnt <10000
        Range("B2:F7")=%MyRange
        Put2Jikan
        Main_Part
        If Cells(13, 9) = Cells(13, 10) Then
         MsgBox("Done")
         Stop
        End If
        %Cnt =%Cnt+1
Loop
MsgBox("解が見つかりませんでした。")

Sub Main_Part()
%Tanni_Total = Cells(13, 10)
    %i = 2
   
    For %j = 1 To 10000
        Randomize(ThisTime())            !!乱数の発生
        %X = Int(Rand() * 6 + 1)
        %Y = Int(Rand() * 6 + 1)
       
        %Tannisu = Cells(%i, 9)
      
            
        If Cells(%Y + 1, %X) = "" Then
          If Cells(%i, 9) > Cells(%i, 10) Then
            If Not Kamoku_Check(%X, %i) Then
                Cells(%Y + 1, %X) = Cells(%i, 8)
               
            End If
          End If
        End If
       
        If Cells(%i, 10) = %Tannisu Then
            
            %Limit = %Limit + Cells(%i, 10)
            %i = %i + 1
            If %Limit = %Tanni_Total Then
             Exit Sub
            End If
            
        End If
            
            
    Next
End Sub   

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

Sub Put2Jikan()
               
    %Limit = 0
   
    %i = 2
   
    For %j = 1 To 1000
        Randomize(ThisTime())            !!乱数の発生
        %X = Int(Rand() * 6 + 1)
        %Y = Int(Rand() * 6 + 1)
         
        If Cells(%i, 11) = 1 Then
            If %Y = 1 Or %Y = 2 Or %Y = 3 Or %Y = 5 Then
                 If Cells(%Y + 1, %X) = "" And \\
                       Cells(%Y + 1 + 1, %X) = "" Then
                  
                     If Not Kamoku_Check(%X, %i) Then
                         Cells(%Y + 1, %X) = Cells(%i, 8)
                         Cells(%Y + 1 + 1, %X) = Cells(%i, 8)
                         %i = %i + 1
                         %Limit = %Limit + 2
                     End If
                 End If
            
                
            End If
        Else
            %i = %i + 1
        End If
        If %i = 12 Then
         Exit Sub
        End If
    Next
   

End Sub

【´･ω･`】：これで当初の目標・・・・

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

　　　　・・・は達成した。

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

使い方は・・・

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

snsSample011.lzhをダウンロード

三四郎マクロで時間割自動作成プログラムラムを作る・・・（終了）

時間割自動作成(12)

【´･ω･`】：下がサブプロシージャ、Put2jikanのコードだ。

(●`ε´●)：２時間続きの科目を書き込むコードだったな。

【´･ω･`】：うん。

Sub Put2Jikan()
               
    %Limit = 0
   
    %i = 2
   
    For %j = 1 To 1000
        Randomize(ThisTime())            !!乱数の発生
        %X = Int(Rand() * 6 + 1)
        %Y = Int(Rand() * 6 + 1)
       
       
       
       
        If Cells(%i, 11) = 1 Then
            If %Y = 1 Or %Y = 2 Or %Y = 3 Or %Y = 5 Then
                 If Cells(%Y + 1, %X) = "" And \\
                       Cells(%Y + 1 + 1, %X) = "" Then
                  
                     If Not Kamoku_Check(%X, %i) Then
                         Cells(%Y + 1, %X) = Cells(%i, 8)
                         Cells(%Y + 1 + 1, %X) = Cells(%i, 8)
                         %i = %i + 1
                         %Limit = %Limit + 2
                     End If
                 End If
            
                
            End If
        Else
            %i = %i + 1
        End If
        If %i = 12 Then
         Exit Sub
        End If
    Next
   

End Sub

【´･ω･`】：基本的にはプロトタイプⅡの「核になる部分」のコードと

　　　　　　やっていることは変わらない。

　　　　　　違いは・・・

　　　　　　If %Y = 1 Or %Y = 2 Or %Y = 3 Or %Y = 5 Then

　　　　　・・・で書き込むべき時間が１時間目、２時間目、３時間目

　　　　　あるいは５時間目になっているかをチェックする。

(●`ε´●)：４時間目だと、それに続く時間が５時間目になり

　　　　　　昼休みを挟むことになるので不可、６時間目だと

　　　　　　それに続く時間が存在しない７時間目になってしまうので

　　　　　　不可、というわけだな？

【´･ω･`】：うん、その通り。そしてさらに・・・

　　　　　　 If Cells(%Y + 1, %X) = "" And \\
                       Cells(%Y + 1 + 1, %X) = "" Then

　　　　　　・・・でその時間が空いているかをチェックする。

(●`ε´●)：大きな違いはそれだけか？

【´･ω･`】：うん。後はサブプロシージャMain_Partが残るだけだが

　　　　　眠くなったので次回回しだ。