Excel Maniacs

一太郎マクロ初心者奮戦記Ⅱ・・・一太郎マクロを学ぶメリットは？

「一太郎マクロを勉強したいのだが、何か参考となる書籍があれば教えて欲しい」というような書き込みを他の掲示板でたまに見かける。一太郎そのものに関する書籍でさえ、ほとんど市販されていないのだからマクロに関する書籍など皆無である。需要もほとんど無いだろうからJUST SYSTEMもこれから、新しく発行する気などさらさら無いであろう。 　そもそも多くの教員がワープロを使っているような場面ではマクロによる処理がどうしても必要になるような事態はほとんど考えられない。その昔はマクロに頼らなければならなかったようなことも標準機能が充実してきているので、いちいちマクロを組まなくても済んでしまう・・・。 　例えば文書の中からある文字を検索して書体を変えたいとする。

そんなことは手作業でもできる！！

たとえその作業に数時間かかったとしても新にマクロを勉強して、そのマクロが正しく動作するか検証する時間までを考えれば、多くの場合

手作業の方が遙かに効率が良い！！

というのが本当のところなのではないだろうか？くまぷーは敢えてここで断言する！

多くの教員にとって 一太郎マクロを新に学ぶメリット は何一つ無い！！

それではくまぷーが今回、一太郎マクロに費やした時間は全くの無駄だったのか？実を言えば無駄どころか、一太郎マクロのお蔭で非常に楽しい時間を過ごすことができた。それは未知の言語を学ぶことは知らない町を旅するような気分にさせてくれるからだ。それも一太郎マクロの場合はガイドブックには書かれていない町を・・・。

Excel VBAじゃ本屋に行けばガイドブックが山のように売っていて簡単に手に入る。一太郎マクロではそうは行きません。

一太郎マクロが 楽しくないわけないじゃありませんか？！ (^｡^)

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

　　　　　　お見せしよう。