Excel Maniacs

ATOK・・・恐るべし！！(ﾟﾛﾟ)ｷﾞｮｪ

くまぷーの出入りしているSNSで話題になっていたんですが

なんとATOKを使って変換すると・・・

つんく → つんく♂

もーむす → モー娘。

らるくあんしえる → L'Arc-en-Ciel

に変換されるんですね。oｏＯ(゜ペ／)／ひゃ

しゃらんきゅう　が　シャ乱Ｑ　になっちゃうし

みにもに　が　ミニモニ｡　になるんですね。

でも・・・

つのだひろ　は　つのだ☆ひろ　にならないし

とわえもわ　は　トワ・エ・モワ　にならないんだよな。

でもこのブログはJustSystemのひとも見ているみたいだから

次のバージョンでは変換可能になるかも・・・(^^ゞ

※ちなみに、くまぷーのATOKは２００５です。

時間割自動作成(7)

【´･ω･`】：時間割自動作成プロトタイプⅡの公開だ。

(●`ε´●)：プロトタイプⅠとどこがちがうんだ？

【´･ω･`】：Ⅰでは単にランダムに科目名を当てはめていくだけだったけど

　　　　　　Ⅱでは同じ日に同じ科目を履修することがないように

　　　　　　してある。

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

(●`ε´●)：文書マクロの「時間割作成02」を実行すればいいんだな？

【´･ω･`】：うん。

snsSample010.lzhをダウンロード

ネストの階層の深さ

今日は本当に五月晴れ。とてもいい天気でどこかに

遊びに行きたくなってしまいます。(^。^)

さて今日のお題は

★関数ネストの階層の深さ

エクセル（２００３まで）にはご存じの通り、７階層の

制限がありますが、三四郎には７階層の制限はありません。

いったい、何階層まで大丈夫なのかわかりませんが、

エクセルよりは深いところまで大丈夫です。

　そんなに深くしたって式が読みづらくなるだけだろって

ツッコミは厳禁(^^ゞ


　たしか、１２３も７階層の制限はなかったはず。

エクセルは以前、１２３からユーザを乗り換えさせようと

思って互換性を売りにしていた次期があったよね。

でもエクセルに７階層の制限があったのでは、

けっこう１２３のファイルを読み込んだときに

エラーがでてしまったのでは…。

一太郎マクロ初心者奮戦記・・・一太郎マクロの基本は

本日で一太郎マクロをやり始めて約２ヶ月になる（2006/12/04現在）。 悪児さんのレベルには到底比べるべくもないが初心者は 初心者なりに見えてきたことがあるのでそれを書き留めることにする。 　一太郎マクロをマスターするため覚えなければならないことは何か？ 一太郎のヘルプであるマクロバイザーによると関数の数は ２２５３もあるという。それを全て知らなければ一太郎でマクロを 組むことは出来ないのか？そんなことは絶対にない。 今回、一太郎マクロを囓ってみて感じたことだが、 一太郎マクロで特に覚えなければならない関数の数は それ程多くない。 一太郎マクロで大切な関数は １．文字を書き込む関数：Insert() ２．文字を読み取る関数：GetCharacter() 　上の二つはいずれもカーソル位置に文字を書き込み、カーソル位置の文字を読み取るのであるから、あとはカーソルを移動させる関数・・・ ３．右、左、上、下、ジャンプなど・・・ これぐらいの使い方がわかれば後はなんとかなるとおもう。 　・・・というのは条件分岐のIF文やSelect文は別に 一太郎マクロに特有のものではないし、 繰り返しのFor文やDo～Loopも特に一太郎マクロに 特有のものではない。

一太郎マクロで何かをやろうと思ったら、 基本はたったの３つしかない！！ くまぷーは敢えてここに断言する！！恐れることは何もない！！ 一太郎マクロでは

Insert()とGetCharacter() それにカーソル移動の 命令を覚えれば何とかなる！！

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(4)

GetString()を使ってWord Listの単語を読み込み、その単語の

文字数を隣の列に出力するプログラムを作る。下がWord Listのイメージだ。

*

*

*

*

*

*

*

*

*

*

コードは下のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)
範囲選択開始(.単位=1)
範囲選択単位(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=24,.文字位置=109)

%Str = GetString()
%Num = Size(%Str)　　　 !!Size関数は配列の個数を返す。

For %i = 1 to %Num
　　　　%Length(%i) =Len(%Str(%i))
Next

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=68)
For %i= 1 to %Num
　　　　削除(.回数=2)
　　　　Insert(%Length(%i))
　　　　DownCell()
Next

上記のコードはサンプルファイルのなかに「文字取得２」という

名前のマクロとして登録されている。

WORD_FIND02.lzhをダウンロード

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(3)

  前回はGetCharacter()をカーソル位置の文字を取得した。

今回はGetString()を使って文字を取得する。まず始めに

GetString()をヘルプで調べてみよう。以下がヘルプの記載だ。

★GetString(取得方法)
機能	指定した範囲の文字列が配列で返ります。
引数	取得方法	取得方法を数値で指定(省略:1)
		1　１行の文字列を配列要素にする(従来の動作)
		2　罫線セル内の文字列も配列要素にする
説明	あらかじめ指定した範囲の文字列が1次元配列で返ります。取得方法が１の場合は、1行の文字列を1つの配列要素とします。取得方法が２の場合は、罫線セル内の文字列も１つの配列要素とします。返値の配列の添字は1から連続する正の整数です。

  では実際にGetString()を使ってみよう。下のように５人の名前が書いてあるとする。

*

*

*

*

.*

*

         ここで５人の名前を選択して・・・

*

*

*

*

*

*

*

%Str = GetString()

上記のコードを実行すると・・・なんと・・・

%Str(1) = "くまぷー" %Str(2) = "悪児さん"     %Str(3) = "ジョー３さん" %Str(4) = "呑さん" %Str(5) = "かずさん"

・・・と記述したのと同じ事になる。当然、下のように記述すると %Str =GetString MsgBox(%Str(3))

英語教師のための一太郎・・・発音記号を入力する

【´･ω･`】：今回は「英語教師のための一太郎」ということで 　　　　　　発音記号の入力の仕方を紹介しよう。 （●｀ε´●）：おいら、今まで試験問題を作るとき、発音記号の 　　　　　　　部分だけ手書きでやっていたよ。そんなことが 　　　　　　　できるのか？！ 【´･ω･`】：うん、簡単だ。下のようにやればいい。

１．まず、下のようにATOKパレットを表示させ、 「メニュー」アイコンをクリックする。

２．「入力の設定を変える」→「半角入力モード」→「発音半角入力」。 するとATOKパレットが下のようになる。

【´･ω･`】：これで発音記号を入力することができる。 キーと記号の対応は下の表を参考にしてくれ。 ※数字をテンキーで打っても発音記号は入力できません。

（●｀ε´●）：「英語教師のための一太郎」というよりも 　　　　　　　「英語教師のためのATOK」だな。 【´･ω･`】：まあな。ただ、これはワード上でやっても 　　　　　うまくいかないようだ。（word2000） （●｀ε´●）：ところで発音記号にアクセント記号を付けるには 　　　　　　　どうしたらいいんだ？ 【´･ω･`】：あ、その説明を忘れていた。「無変換」キーを1回押すと 　　　　　　下のように第1アクセント記号が表示される。

【´･ω･`】：そのまま「１」キーを押せば下のようになる。

【´･ω･`】：そしてまた、「無変換」キーを２回押すと 　　　下のように第２アクセント記号が表示される。

【´･ω･`】：そのまま「１」キーを押せば下のようになる。

（●｀ε´●）：こういうことを「初任研」や「５年研」で 教えてくれればよかったのにな．．．

※バグ情報 　Windows XPのパソコンでATOK 2005を使用し、 キーボードから発音記号を入力した場合、 ［2］キー～［8］キーに割り当てられている記号が 一太郎上に入力できないという現象を確認されています。 該当する方はこちらをどうぞ。

時間割自動作成(6)

【´･ω･`】：それでは解説をしよう。まず、最初の1行・・・

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

　　　　　　Cells(1, 1)　には=CountBlank(B2:F7)が入っている。よって

　　　　　　変数%Tanni_Total にはこれから、書き込むべき科目名が

　　　　　　いくつあるのかが格納される。

(●`ε´●)：では2行目の・・・

　　　　 %i = 2

　　　　　　・・・はなんだ？

【´･ω･`】：これは現在、何の科目名を書こうとしているのかを示す変数だ。

　　　　　%i = 2は2行目、つまり科目名が英語であることを示している。
   
(●`ε´●)：この後の・・・      

　　　　　　Randomize(ThisTime())             !!乱数の発生
                       %X = Int(Rand() * 5) + 2
                       %Y = Int(Rand() * 6) + 2

               ・・・は？

【´･ω･`】：ランダムに%X、%Y座標を決める。そこに科目名を

　　　　　　書き込んでいくんだ・・・

　　　　　　%Tannisu = Cells(%i, 9)             !!個々の科目の単位数

　　　　　　・・・%Tannisu には個々の科目の単位数を格納しておく。

　　　　　　%i=2 であるなら英語の単位数だ。
　　　　
        　　　 If Cells(%Y, %X) = "" Then　　　　!!科目名を書き込む
                            Cells(%Y, %X) = Cells(%i, 8)
                           %Count = %Count + 1
                  End If

　　　　　　さっき、ランダムに決められた%Y・%XをもとにしてCells(%Y, %X)が

　　　　　　空欄ならばそこに科目名を書き込んでいく。

(●`ε´●)：%Count = %Count + 1　というのは？

【´･ω･`】：%Countにいくつ、おなじ科目名を書き込んだのかを

　　　　　　記憶させておく。

　　　　　　もしも%Count = %Tannisu 、つまり、

　　　　　　指定された単位数だけ科目名を書き込んだなら

　　　　　　%iを１増加させて次の科目の処理に移る。

(●`ε´●)：変数%Limitの役割は？

【´･ω･`】：一つ一つの科目の単位数の合計だ。これが・・・

  If %Limit = %Tanni_Total Then
                Stop　　　　　　　　　!!指定された単位数の合計分、　　
   End If　　　　　　　　　　　　!!科目名を書き込んだら

・・・%Tanni_Total 、つまり書き込むべき単位数に

達したら、処理を終了する・・・。

(●`ε´●)：それを・・・

　　　　　　For %j = 1 To 1000　のループで１０００回繰り返すというわけだな？

【´･ω･`】：うん、１０００回もやれば、解が見つかるだろう・・・ということで

　　　　　　特に１０００回でなくてもよい。

　　　　　　　

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

Topメニューをご覧ください。

現在は主に

• 一太郎マクロ初心者奮戦記
• 時間割自動作成

の二つが併行して掲載されています。

ブログの場合、一つの話題だけが

続いているのならば話の流れを摑みやすいのですが

複数の話題が法則なしに取り上げられていると

混乱を起こしやすいようです。

Topメニューをご覧ください。

そうすれば話の流れを摑みやすくなると思います。m(__)m

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　くまぷー

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(2)

今回はGetCharacter()を使ってリストの英単語を読み取り、

その長さを隣の列に出力するというプログラムをつくる。

下図がそのイメージだ。

*

*

*

*

*

*

*

*

*

*

*

*

プログラムのコードは下のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)

For %y = 1 to 20
　　　　%Str=""
　　　　For %x = 1 to 12
　　　　　　　　%S = GetCharacter()
　　　　　　　　If %S= " " Or %S = "　" Then
　　　　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　　　右
　　　　　　　　%Str = %Str & %S
　　　　Next
　　　　%MyWord(%y)=%Str
　　　　%Length(%y) = Len(%Str)
　　　　ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=(5+%y),.文字位置=44)
Next

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=68)
For %i= 1 to 20
　　　　削除(.回数=2)
　　　　Insert(%Length(%i))
　　　　DownCell()
Next

GetCharacter()は１文字ずつしか読み取れないために

上記のコードで１２回ループして変数%Strに１単語分を

読み込む。マス目が12×12なので1単語は

最長１２文字まででなければならない。

尚、補足だが「右」というのはカーソルをひとつ右に移動させる命令だ。

この命令をループのなかで使うことによりGetCharacter()で

一単語文の文字を読み取っていく。さらにDownCell()というのは

カーソルを1マス下に移動させる命令である。

上記のコードはサンプルファイルのなかに「文字取得」という名前の

マクロとして登録されている。

WORD_FIND02.lzhをダウンロード

一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(1)

　前回までの研究でInsert（）を使えば、カーソル位置に

文字を書き込むことができるということがわかった。

書き込みの次は当然、読み取りだ。いったい、

どうすれば文字を読み取ることができるのだろうか。

ヘルプを調べてみると使えそうなものが２つあった。

ひとつはGetCharacter(),もうひとつはGetString()だ。

まず始めにGetCharacter()から調べてみることにする。

以下がヘルプの記載だ。

★GetCharacter()　引数は無し。

機能 カーソル位置の文字が返ります。

返り値 カーソル位置の文字。改行マークなどの特殊記号は "" が返る。

GetCharacter()はカーソル位置の１文字しか読み取ることができない。

従って、GetCharacter()を使って文字を読み込むにはカーソルを

移動させながら読むことになる。この辺りは

• カーソルを移動するには(1)
• カーソルを移動するには(2)
• カーソルを移動するには(3)
• カーソルを移動するには(4)
• カーソルを移動するには(5)

が役に立つことであろう。

時間割自動作成(5)

【´･ω･`】：時間割自動作成マクロプロトタイプⅠの解説をしようと

　　　　　　思ったけどその前に・・・

(●`ε´●)：なんだ、解説をするんじゃなかったのか？

【´･ω･`】：うん、そう思ったんだけど解説は次回に回して・・・

(●`ε´●)：で、何をするんだ？

【´･ω･`】：うん、前のコードの変数名を日本語名にしたから

　　　　　　それを見ておくれ。そうしたら、わざわざ解説をしなくても

　　　　　　何をやっているかわかっちゃうかも・・・。

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

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

一太郎マクロ初心者奮戦記 範囲を選択するには･･･(2)

　さて前回のサンプルファイルのコードをよく見てもらえば

下のようになっているのがわかると思う。

実はすでにマス目の初期化コードは組み込まれていたのだ。

下記のコードの２行目から４行目（赤い部分）の

行頭の感嘆符「!!」を削除してもらえば

コメントアウトされていたコードが有効になる。

　一太郎マクロでは行頭に「!!」またはREMを

付加することによってコードを無効にすることができるのだ

Jump(1,4,2)
!!範囲選択開始(7)
!!Jump(1,15,73)
!!削除(1)


For %Y = 1 To 12
　　　　　　For %X = 1 To 12
　　　　　　　　　　　Randomize(ThisTime())
　　　　　　　　　　　%num = Int(Rand() * 26) + 97
　　　　　　　　　　　Insert( Char(%num))
　　　　　　　　　　　if %X < 12 Then
　　　　　　　　　　　　　　RightCell()
　　　　　　　　　　　End If
　　　　　　Next
　　　　　　DownCell
　　　　　　LeftCell(11)

Next

★範囲選択の仕方
(1)Jump命令などによって範囲の始点にカーソルを移動させる。
(2)「範囲選択開始（単位）」命令を発行する。
　　尚、単位は(省略は1)
　　

1	文字
2	行
3	段落
4	ページ
5	ブロック
6	単語
7	セル
30	すべてを選択

(3)Jump命令などによって範囲の終点にカーソルを移動させる。

WORD_FIND01_1.lzhをダウンロード

Top メニューを作りました。

(●`ε´●)：暫くして、投稿が多くなってきたら

　　　　　　前にどんな題材を扱ったかわからなくなっちゃったな！！

【´･ω･`】：べべちゃん、大丈夫だよ。

　　　　　　Topメニューを作ったから・・・。

　　　　　　Topメニューからは、今まで何をやってきたかが

　　　　　　一目瞭然だよ。

時間割自動作成(3)

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

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

*

*

*

*

*

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

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

　　　　　　A1に=CountBlank(B2:F7)

　　　　　　・・・だ。

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

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

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

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

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

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

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

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

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

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

一太郎マクロ初心者奮戦記 範囲を選択するには･･･(1)

　さて前回までに書いた下のコードでは12×12のマス（以下、マス目）に

すでにアルファベットが書かれていた場合、そのアルファベットを

削除しておかないと予期したとおりの動作をしない。

これでは余りにも情けない。

　そこで今回は前回のコードにマス目を初期化するコードを

付け加えることにする。

記録マクロでマス目を選択してデリートボタンを

押してコードを作成すればいいだろう。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=4,.文字位置=2)
範囲選択開始(.単位=1)
範囲選択単位(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=15,.文字位置=71)
削除(.回数=1)

上が記録マクロで作成したコードだ。

他のソフトでも言えることだが記録マクロで

自動生成されたコードには冗長な部分が出てくる。

上で言えば2行目の「範囲選択開始(.単位=1)」と

３行目の「範囲選択単位(.単位=7)」だ。

「範囲選択開始」を単位＝１、すなわち文字単位を指定して、

何もせずに「範囲選択単位」で単位を７に変更している。

これは無駄だ。

それならば始めから「範囲選択開始(.単位=７)」とすれば良いだろう。

つまり上のコードは下記のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=4,.文字位置=2)
範囲選択開始(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=15,.文字位置=71)
削除(.回数=1)

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

時間割自動作成(2)

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

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

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

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

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

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

【´･ω･`】：うん。

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

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

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

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

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

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

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

snsSample009.lzhをダウンロード

時間割自動作成(1)

教員相手の講座で「時間割を作る」というと、たいていの場合「時間割の枠」を作ってそこに科目やら教科担当者の名前を打ち込んでハイ終わり、というものがすべてだと思います。つまり、やることはせいぜい罫線の引き方の練習ですね。それでは「教員のための三四郎活用術」でわざわざ取り上げる意味がありません。ここではあくまでも「師楽」のように時間割の自動作成を目標にします。ただ「師楽」は１式１７万円もする高価なソフトです。おそらく開発費用は優に数千万円以上かかっているはずです（うっかりすると億単位かも）。さすがにくまぷーでも「師楽」並のものをちょちょいと作るというわけにはいきません（でもそれなりの開発費用をだしてくれるスポンサーが現れればがんばりますが．．．）。 　 　ここでは最終的には下のような機能を持った時間割プログラムを作ります。 あらかじめ特定の科目を特定の曜日の特定の時間に組み込める。 同じ科目を同じ日に２時間履修することの無いようにする。 ２時間続きの科目を設定できるようにする。

「師楽」には比べることもできないような本当にちゃちなものですが、ここでやるものをしっかりと身につけた人は根性と気合いと時間さえあれば、きっと「師楽」のような時間割作成ソフトがつくれるようになると思います。 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　くまぷー

我ながらよく・・・

我ながら、よく書いたと思う。

現在、WEBサイト「教員のための三四郎活用術」の

メニューは下のようになった。

1. 雑談
2. 成績一覧表作成マクロ解説
3. 15パズル作成マクロ解説
4. 提出物管理マクロ
5. 座席表作成マクロ
6. ごじらをばらばらに
7. ごじらを逆さまに
8. セル空欄時に斜線（NEW）
9. 三四郎関数・秘伝奥義の書（NEW）

この大部分を4月、たった一月で書いたのだ。

ほとんど、寝ていない。

とても(~0~)ネムイ

(_ _)(-.-)(~O~)ﾌｧ…(~O~)(-.-)

http://kumapooh2007.hp.infoseek.co.jp/

次の題材は・・・

ただ今、準備が出来たメニュー

1. 雑談
2. 成績一覧表作成マクロ解説
3. 15パズル作成マクロ解説
4. 提出物管理マクロ
5. 座席表作成マクロ
6. ごじらをばらばらに
7. ごじらを逆さまに（NEW）

今度は何を扱おうかな～？

時間割、それとも調査書？

何がいいかな～？

http://kumapooh2007.hp.infoseek.co.jp/

更新しました。

ただ今、準備が出来たメニュー

1. 雑談
2. 成績一覧表作成マクロ解説
3. 15パズル作成マクロ解説
4. 提出物管理マクロ
5. 座席表作成マクロ
6. ごじらをばらばらに（NEW）

　ブログは手軽ではあるけれどまとまった

考えを述べるような時には向かないようです。

自分でいうのもなんですが、ブログに書いていたものを

HPでちょっと整理しただけで大部読みやすくなった

ような気がします。

http://kumapooh2007.hp.infoseek.co.jp/

管理人

ただ今、準備が出来たメニュー

1. 雑談
2. 成績一覧表作成マクロ解説
3. 15パズル作成マクロ解説
4. 提出物管理マクロ
5. 座席表作成マクロ
6. ごじらをばらばらに（NEW）

　ブログは手軽ではあるけれどまとまった

考えを述べるような時には向かないようです。

自分でいうのもなんですが、ブログに書いていたものを

HPでちょっと整理しただけで大部読みやすくなった

ような気がします。

http://kumapooh2007.hp.infoseek.co.jp/

管理人

教員のための三四郎活用術（HP版）

ただ今、準備が出来たメニュー

1. 雑談
2. 成績一覧表作成マクロ解説
3. 15パズル作成マクロ解説
4. 提出物管理マクロ
5. 座席表作成マクロ

　順次、コンテンツを充実させていきます。

ご覧ください。管理人

http://kumapooh2007.hp.infoseek.co.jp/

新規オープン

WEBサイト「教員のための三四郎活用術」を

オープンしました。これから、コンテンツを

充実させて参ります。よろしくお願いいたします。m(__)m

http://kumapooh2007.hp.infoseek.co.jp/

成績一覧表を作る(最終回)

【´･ω･`】：いよいよ、今回が最終回だ。AK３に授業日数を

　　　　　入れる仕様になっているので注意してくれ。下が出欠欄に

　　　　　関するコードだ。

　　　　　%授業日数=Range("AK3")

　　　　　For %i = 8 To 52
　　　　　　　!!出席すべき日数
　　　　　　　 !!＝授業日数－出停・忌引の日数
　　　　　　　 Cells(%i, 33)=%授業日数-Cells(%i, 32)
　　　　　　　!!出席日数
　　　　　　　 !!＝出席すべき日数－欠席日数
　　　　　　　Cells(%i, 35)=Cells(%i, 33)-Cells(%i, 34)
　　　　　Next

【´･ω･`】：コメントを見れば解説は要らないと思う。

　　　　　一応、成績一覧表のコード全てを掲載しておく。

　　　　　!!科目別成績
              For %列 = 4 TO 26 Step 2
                    %科目=0
　　               %科目受験者=0
                     %科目平均=0
　　              For %行 = 8 To 52
　　                  %科目 = %科目 + Cells(%行, %列)
　                  　If Not IsBlank(Cells(%行, %列)) Then
                                   %科目受験者 = %科目受験者 + 1
　　                  End If
　　              Next
　　
　　             If %科目受験者>0 Then
　　                    %科目平均= %科目/%科目受験者
　　             End If
　　　
　　            Cells(53,%列)=%科目
　　            Cells(54,%列)=%科目受験者
　　            Cells(55,%列)=%科目平均 
               Next

              !!個人別成績
              for %j =8 To 52
                    %得点=0
                    %科目数=0
                   for %i = 4 To 26 Step 2
                          %得点=%得点+Cells(%j, %i)
                          If Not IsBlank(Cells(%j, %i)) Then
                               %科目数=%科目数+1
                         End If
                   next

                   If %科目数>0 Then
                        %平均=%得点/%科目数
                      End If
                     Cells(%j, 29)=%得点
                     Cells(%j, 30)=%平均
              next
               For %i = 8 To 52
                         Cells(%i, 31)= Rank(Cells(%i, 29),Range("AC8:AC52"))
                next

              !!出欠席
              %授業日数=Range("AK3")

               For %i = 8 To 52
                    !!出席すべき日数
                    !!＝授業日数－出停・忌引の日数
                     Cells(%i, 33)=%授業日数-Cells(%i, 32)
                    !!出席日数
                     !!＝出席すべき日数－欠席日数
                     Cells(%i, 35)=Cells(%i, 33)-Cells(%i, 34)
                Next

            Function Rank(%個人得点,%母集団) As Integer
                           %順位=1
                       For %i = 1 To Size(%母集団) 
                             If %母集団(%i) > %個人得点 Then
                                       %順位=%順位+1
                             End If
                      Next
                      Rank=%順位
           End Function

【´･ω･`】：最後に完成見本ファイルを用意したのでDLして

　　　　　　参考にしてくれ。

　　　　　Ohyou_Mihon.zipをダウンロード

１ヶ月が経ちました

このブログを始めたのが３月の２９日です。

ちょうど１ヶ月経ちました。この間、１日も欠かさずに

更新し続け、気がつくと投稿数も１２０を超えてしまいました。

・・・でそうなるとブログって通常のHPに比べて

手軽ではあるけれど、いくら「カテゴリー」で分類しても

前にどんな題材を扱っていたかわからなくなっちゃうんですね。

一目でどこを見れば、何をやっているかわかるという

一覧性が悪いということがわかりました。

・・・今、このブログで扱った内容をもとに

通常のWEBサイト「教員のための三四郎活用術」を

立ち上げる準備をしています。(^^ゞ

成績一覧表を作る(16)

(●`ε´●)：え～と、順位の出し方は・・・・

　　　　　　まず自分の順位を１位として・・・

　　　　　　自分よりいい成績の奴がいたら・・・

　　　　　　その度に自分の順位に１を増やせばいいんだな。

【´･ω･`】：うん、そう。自分より上の奴がひとりなら、自分の順位の１位に

　　　　　　１を足して２位になる。もうひとり、自分より上の奴がいたら

　　　　　　今度は自分の順位の２位に１を加えて３位になるというわけだ。

　　　　　　コードは下のようになる。

Function Rank(%個人得点,%母集団) As Integer
   　 %順位=1
    　For %i = 1 To Size(%母集団) 
               If %母集団(%i) > %個人得点 Then
                     %順位=%順位+1
              End If
      Next
      Rank=%順位
End Function

【´･ω･`】:：個人別の得点合計、平均、順位を求める式は

　　　　　　下のようになる。

for %j =8 To 52
　　　%得点=0
　　　%科目数=0
　　　for %i = 4 To 26 Step 2
  　　　　　　%得点=%得点+Cells(%j, %i)
  　　　　　　If Not IsBlank(Cells(%j, %i)) Then
   　　　　　　　　　　%科目数=%科目数+1
  　　　　　　End If
next

　　If %科目数>0 Then
  　　　　%平均=%得点/%科目数
　　End If
　　Cells(%j, 29)=%得点
　　Cells(%j, 30)=%平均
next
For %i = 8 To 52
        Cells(%i, 31)= Rank(Cells(%i, 29),Range("AC8:AC52"))
next

Function Rank(%個人得点,%母集団) As Integer
    　%順位=1
    　For %i = 1 To Size(%母集団) 
     　　　If %母集団(%i) > %個人得点 Then
      　　　　　　　%順位=%順位+1
     　　　End If
    Next
    　Rank=%順位
End Function

(●`ε´●)：次は出欠欄か。いよいよ、ゴールが見えてきたな。

成績一覧表を作る(15)

(●`ε´●)：今回は順位を求めるんだよな？

【´･ω･`】：うん。

(●`ε´●)：おいら、Rank関数以外ではどうやればいいのかわからないよ。

【´･ω･`】：今までやった得点合計・受験者数・平均に比べれば

　　　　　　ちょっと頭を使うかもしれないが、落ち着いて考えれば

　　　　　　当たり前のことなので、しっかりついてきて欲しい。

(●`ε´●)：おいら、数学は苦手だぜ。

【´･ω･`】：大丈夫。考え方は小学生でもわかると思う。

(●`ε´●)：小学生でも、か・・・。プレッシャーがかかるぜ。

【´･ω･`】：まあ、気楽に・・・。考え方はこうだ。

　　　　　　ちょっとイメージして欲しい。いいかい。

(●`ε´●)：おう。

【´･ω･`】：今、試験が終わったところだ・・・。べべちゃんは思いの外

　　　　　試験ができた。「俺って天才！」って気分だ。。

　　　　　「俺って天才！」って気分なのだから、当然オイラが

　　　　　一番って気分だ・・・。

(●`ε´●)：うん。

【´･ω･`】：ところが時間が経って落ち着いてくると周りが見えてくる・・・。

　　　　　クラスメートの悪児さんがいた。彼は俺よりできそうだ・・・とおもう。

　　　　　自分より出来る奴の顔がひとり浮かんだ。この時点で

(●`ε´●)：一番だったはずが二番になった・・・。

【´･ω･`】：もっと落ち着いてくるときっちーさんの顔も浮かんできた。

　　　　　あいつも俺より出来そうだ。すると・・・

(●`ε´●)：二番だったのが三番に・・・。

【´･ω･`】：そう、自分より成績のいい奴が現れるたびに順位が

　　　　　１ずつ増加していくんだ。

　　　　　つまり、順位を求めるときは最初に自分の順位を１位と仮定して

　　　　　自分よりいい成績のものがあらわれるたびに順位を１だけ増加させればいい。

(●`ε´●)：な～るほど。

成績一覧表を作る(14)

【´･ω･`】：さて今回は個人別の得点合計、平均を求めるコードを

　　　　　　書いてみようか。

(●`ε´●)：科目の評価(得点）と欠時が交互に並んでいるから

　　　　　　得点の合計を求めるためには一つおきに足していかなければ

　　　　　　ならないな。

【´･ω･`】：こういうときはforループにStepキーワードをを組み合わせるといい。

(●`ε´●)：Step？

【´･ω･`】：ワークシート関数のSumStepと同じ感覚だ。

　　　　　　書式は・・・

　　　　　　For %i = 開始値　To　終了値 Step n

                             (何かの処理をするコード）

                Next

                ・・・だ。（ｎは整数）

　　　　　　こうすると%iの増加分がｎになる。

(●`ε´●)：ではこの場合はStep 2 とすればいいのか？

【´･ω･`】：うん。で・・・コードは下のようになる。科目別で得点合計や

　　　　　　平均を求めたときと考え方は同じなのでコードの意味が

　　　　　　解らない場合は前の方に戻って欲しい。

　　　　　　for %j =8 To 52
                        %得点=0
                        %科目数=0
                        %平均=0
                        for %i = 4 To 26 Step 2
                             %得点=%得点+Cells(%j, %i)
                            If Not IsBlank(Cells(%j, %i)) Then
                                        %科目数=%科目数+1
                            End If
                        next

                        If %科目数>0 Then
                                %平均=%得点/%科目数
                        End If
                       Cells(%j, 29)=%得点
                      Cells(%j, 30)=%平均
                  next

(●`ε´●)：次回は順位を求めるコードだな？

【´･ω･`】：うん。　

成績一覧表を作る(13)

【´･ω･`】：さて前回までで成績一覧表の科目別の

　　　　　合計点、受験者数、平均点を表示する部分が

　　　　　できたので、そこまでのサンプルファイルを

　　　　　配布しよう。

             snsSample008.lzhをダウンロード

             次回は個人別の得点合計、平均点、順位を

           求めるコードを書くとしよう。

成績一覧表を作る(12)

(●`ε´●)：前回から、だいぶ間があいてしまったな。みんなは

　　　　　　何をやっていたか、たぶん忘れているぞ！！

【´･ω･`】：前回は下のコードをさらにまとめるというところだった。

　　　　　　For %i = 4 TO 26 Step 2
   　　　　　　　　　　Call 教科別成績(%i)
　　　　　　Next

　　　　　　Sub 教科別成績(%列)
　　　　　　   　%科目=0
　　　　　　  　 %科目受験者=0
　　　　　　　　For %i = 8 To 52
　　                     　 %科目 = %科目 + Cells(%i, %列)
　　                      　If Cells(%i, %列) <> "" Then
                                  　%科目受験者 = %科目受験者 + 1
　　                     　End If
　　            　 Next
　　　　 　　　If %科目受験者>0 Then
　　                  　%科目平均= %科目/%科目受験者
　　           　　End If
　　           　　Cells(53,%列)=%科目
　　           　　Cells(54,%列)=%科目受験者
　　           　　Cells(55,%列)=%科目平均 
            　 End Sub

(●`ε´●)：よくみるとForループのなかでやっていることは

　　　　　　　サブルーチン教科別成績を呼び出しているだけだな。

【´･ω･`】：うん。だから、結局下のように書いてサブルーチンの部分を

　　　　　　無くしても構わない。

　　　　　　For %列 = 4 TO 26 Step 2
    　　　　　　　　%科目=0
　　　　　　　　　 %科目受験者=0
                          %科目平均=0
　　                    For %行 = 8 To 52
　　                          %科目 = %科目 + Cells(%行, %列)
　　                          If Not IsBlank(Cells(%行, %列)) Then
                                           %科目受験者 = %科目受験者 + 1
　　                           End If
　　                     Next
　　
　　                    If %科目受験者>0 Then
　　                           %科目平均= %科目/%科目受験者
　　                    End If
　　　
　　                   Cells(53,%列)=%科目
　　                   Cells(54,%列)=%科目受験者
　　                  Cells(55,%列)=%科目平均 
                 Next

(●`ε´●)：赤い部分はなんだ？

【´･ω･`】：科目ごとに変数%科目、%科目受験者 、%科目平均を

　　　　　　０に初期化するためのコードだ。

(●`ε´●)：なんでそんなものをつけるんだ？

【´･ω･`】：サブルーチン教科別成績を呼び出す形式のコードでは

　　　　　　実はあってもなくてもよかった。

(●`ε´●)：？？？

【´･ω･`】：それはサブルーチンを呼びだす度に%科目、%科目受験者 、%科目平均は

　　　　　　自動的に初期化されるからだ。しかし、そうでないときは自動的に

　　　　　　初期化されないから不具合が起こる。

(●`ε´●)：どんな？

【´･ω･`】：例えば、ある科目の受験者がゼロの場合、その前の科目の

　　　　　　データがそのまま、表示されてしまう・・・。実際に試して

　　　　　　見て欲しい・・・。

複数条件で検索(5)

【´･ω･`】：今回は特定範囲内の最大値・最小値の求め方を

　　　　　紹介しよう。A1からA10にそれぞれ、45，56，49，68，78，55，

　　　　　32，62，71，48と１０個の数値が入力されているとしよう。

　　　　　この数値のうち50以上70未満の範囲内で最大値を求める。

　　　　　・・・・・

　　　　　=Max(Search("<70 And >=50",A1:A10))

　　　　　・・・・・となる。

(●`ε´●)：もしも50以上70未満の範囲内で最小値を求めるなら・・・

　　　　　　=Min(Search("<70 And >=50",A1:A10))

　　　　　・・・・・とすればいいな。

　

複数条件で検索(4)

【´･ω･`】:A1からA10にそれぞれ、45，56，49，68，78，55，32，62，71，48と
　　　　　　入力されているとしよう。
　　　　　　まずは肩慣らしだ。数値60点以上の平均を求める式はどうなるかな？

(●`ε´●):=Avg(Search(">=60",A1:A10))
　　　　　　･･･でいいのか？

【´･ω･`】:その通り！！それでは50点以上65点未満の平均を求めるには？
　　　　　　
(●`ε´●):お～でたな、複数条件か？

【´･ω･`】:うん。

(●`ε´●):これでどうか？
　　　　　　=Avg(Search(">=50 And <65",A1:A10))

【´･ω･`】:うん、それでいい。

(●`ε´●):あっさりしたもんだな。

【´･ω･`】:それでは50点未満または65点以上の平均を求めるには？

(●`ε´●):=Avg(Search("<50 Or >=65",A1:A10))
　　　　　　･･･だ。

【´･ω･`】:うん。

(●`ε´●):SearchとCount、SearchとSum、SearchとAvg、。。。

                なかなか、面白かったよ。三四郎も侮れないな。

　　　　　　

複数条件で検索(3)

【´･ω･`】:A1からA10にそれぞれ、45，56，49，68，78，55，32，62，71，48と
　　　　　　入力されているとしよう。
　　　　　　まずは肩慣らしだ。数値60点以上の和を求める式はどうなるかな？

(●`ε´●):=Sum(Search(">=60",A1:A10))
　　　　　　･･･でいいのか？

【´･ω･`】:その通り！！それでは50点以上65点未満の和を求めるには？
　　　　　　
(●`ε´●):お～でたな、複数条件か？

【´･ω･`】:うん。

(●`ε´●):これでどうか？
　　　　　　=Sum(Search(">=50 And <65",A1:A10))

【´･ω･`】:うん、それでいい。

(●`ε´●):あっさりしたもんだな。

【´･ω･`】:それでは50点未満または65点以上の和を求めるには？

(●`ε´●):=Sum(Search("<50 Or >=65",A1:A10))
　　　　　　･･･だ。

【´･ω･`】:うん。

(●`ε´●):三四郎使いには常識だな。

　　　　　　

複数条件で検索(2)

【´･ω･`】:A1からA10にそれぞれ、２，３，５，４，２，１，４，２，３，４と
　　　　　　入力されているとしよう。
　　　　　　まずは肩慣らしだ。数値4の個数を求める式はどうなるかな？

(●`ε´●):えーっと･･･
　　　　　　=CountExact(4,A1:A10)
　　　　　　･･･はどうかな？
            あれ？0になっちゃった･･･それでは･･･
　　　　　　=CountExact("4",A1:A10)
　　　　　　あ、これもダメだ。0になっちゃった。

【´･ω･`】:CountExactは文字列にしか使えない。この場合はダメだな。

(●`ε´●):では、どうしたらいいんだ？

【´･ω･`】:CountとSearchを組み合わせて･･･
　　　　　　=Count(Search("=4",A1:A10))
　　　　　　...とする。
　　　　　　では4以上の数値の個数を求めるには？

(●`ε´●):=Count(Search(">=4",A1:A10))
　　　　　　･･･でいいのか？

【´･ω･`】:その通り！！それでは2以上4未満の数値の個数を求めるには？
　　　　　　
(●`ε´●):いよいよ、複数条件か？

【´･ω･`】:うん。

(●`ε´●):これでどうか？
　　　　　　=Count(Search(">=2 And <4",A1:A10))

【´･ω･`】:うん、それでいい。

(●`ε´●):あっさりしたもんだな。

【´･ω･`】:それでは2未満または4以上の数値の個数を求めるには？

(●`ε´●):=Count(Search("<2 Or >=4",A1:A10))
　　　　　　･･･だ。

【´･ω･`】:うん。

(●`ε´●):簡単だな。

　　　　　　

複数条件で検索(1)

(●`ε´●):エクセルは２００７になって大幅に改良されたぞ！！

【´･ω･`】:例えば？

(●`ε´●):２００３まではCountIfやSumIfは条件が一つしか
　　　　　　設定できなかったけど２００７はCountIfｓやSumIfsを
　　　　　　導入して複数条件を設定できるようになった。
　　　　
【´･ω･`】:それで？

(●`ε´●):三四郎は２００７になっても三四郎９と変わらないから
　　　　　　おいら、肩身が狭いよ。JustSystemよ、なんとかしろよ！！

【´･ω･`】:べべちゃん、それはちがうよ。三四郎はずーっと前から
　　　　　　その程度のことはできるんだよ。だから、今更その程度の
　　　　　　ことで騒ぐことはないんだ！！

(●`ε´●):えっ、ではエクセルより三四郎の方が進んでいたのか？

【´･ω･`】:うん。

(●`ε´●):本当にエクセルユーザに対して胸を張っていいんだな？！

【´･ω･`】:うん。

(●`ε´●):そこまで言ったんだから責任もてよ！！

三四郎の関数で曖昧検索

以前、悪児さんの掲示板に「三四郎のCountExact関数について」という質問が

ありました（投稿番号2635）。具体的には「エクセルで、「山田」と入力されたセル数を

数える場合、1セル内に「山田、佐藤」とあっても、Countif関数で、

=Countif(A2:A10,"山田*")とすればカウント可能ですが、三四郎の場合はどうすれば

良いのでしょうか。」という質問です。CountExact関数ではワイルドカードが

使えないので作業列を使う方法やデータベース関数を使う方法などが

話題になりました。

データベース関数を使う方法を提示されてたのは

たしか、きっちーさんでしたよね？

・・・でこんなやりかたは如何でしょうか？

=Count(Search("like'山田'",A２:A10))

(^o^)/~~~

ごじらを逆さまに(14)

きっちーさん、こんばんは。コメント有り難うございます。

いや～、ぶっ飛びました(^｡^)

A1に反転させたい文字列。

B1に=If(Len(B1)>Len($A$1),"",Mid($A$1,Len(B1)+1,1) & B1)

これは100文字以上でも大丈夫ですね！三四郎の反復回数９９回の

制限を見事に克服しています！！

　反復回数を指定しての循環参照がForループに相当するとすれば

きっちーさんのはDo ループでしょうか。くまぷーは三四郎の循環参照は

エクセルに比べて柔軟性に欠けると思っていました。でも研究すれば

いろいろと楽しいことができそうです。

　ありがとうございました。(^o^)/~~~

特定の数値の個数を求めるには

以前、悪児さんの掲示板に「５や４の数を調べるには」という質問が

ありました（投稿番号２４８８）。三四郎のCountExact関数では

文字列の個数を求めることはできても数値の個数を求めることはできません。

例えばA1からA10に１，２，３，２，１，３，２，３，１、３とあって

=CountExact(3, A1:A10)としても答えは０になってしまいます。もちろん

=CountExact("3",A1:A10)としてもダメです。

そのときはデータを文字列化するとか、DCountを使うとかいう話になったのですが

=Count(Search("=3",A1:A10))

でいいんですね。

ごじらを逆さまに(13)

【´･ω･`】：酔いが覚めたら悪児さんの式の意味が分かったよ。

　　　　　　Shift＋F2なしで「らどぐんき」か・・・。ほんとうはくまぷーも

　　　　　　これがやりたかったんだけど、悪児さんがご自身のブログで

　　　　　　「反復計算では、１度、全部のセルを計算した後、また最初の

　　　　　　　セルから２度目の計算をする、というのではないらしい。

　　　　　　このケースでは、どうみても、A3を６回反復して計算し、

　　　　　その後B1の再計算にかかるらしい。」と仰っている。くまぷーも

　　　　　悪児さんと同じように考えた。

　　　　　　でも、これが三四郎の仕様であり、エクセルのような動きをさせるのは

　　　　　不可能だろうと思いこんで、Shift＋F2方式にしてしまった・・・。

　　　　　いや、本当に素晴らしい！！シャッポを脱ぎます！！

　　　　　　ところで不思議なことに悪児さんの式をB1にくまぷーの

　　　　　　式をB4に入力したとすると・・・・くまぷーの式も悪児さんのと

　　　　　　同じ動きをするな・・・そして更に解らないのはA3の式を

　　　　　　削除しても、その影響を受けずにちゃんと動作するところだ！

(●`ε´●)：おまえの式はA3を参照しているんだろ？

【´･ω･`】：うん、それが不思議なところだ。

(●`ε´●)：わからないふりをしているだけではないのか？

【´･ω･`】：いや、ほんとうにわからないんだ。いや、ほんと。

15パズル(最終回)

１５パズルもいよいよ、最終回です。今回は

完成品をアップします。遊んでみてください。

くまぷー自身、三四郎は初心者なので

「なんだこりゃ？！」と思うようなところが多々あったのでは

ないかと思います。しかし、以前にも書きましたが

Super Play Rite　の作品を公開しているサイトは少ないながらも

存在しますが、コードの解説をしているサイトは

(ほとんど）存在しないように思います。ジャストシステム自身が

Super Play Riteの普及を放棄したように思える今、そこのところに

このサイトの存在理由があります。

これからも拙いながら、三四郎マクロを公開していきます。

コメントなど頂けたら、励みになりますのでよろしくお願いいたします。

sns15PUZZLE.lzhをダウンロード

15パズル(19)

!!１５パズル　by　くまぷー
!!2007/04/23
!!All Rights Reserved
!!教員のための三四郎活用術
!!http://kumapooh.typepad.jp/

Call Init
MsgBox("パネルをシャッフルします。")
Randomize(ThisTime())
%X=5
%Y=8
for %i = 1 To 3000

　　%DX = Int(Rand() * 3)-1
　  %DY = Int(Rand() * 3)-1
　　If Abs(%DX + %DY) = 1 Then
 
　　　　 If Cells(%Y+%DY, %X+%DX) = "" Then
   　　　　　　　continue for
  　　　　Else
   　　　　　　　Cells(%Y, %X) = Cells(%Y+%DY, %X+%DX)
   　　　　　　　Cells(%Y+%DY, %X+%DX) = ""
 
   　　　　　　　%Y = %Y+%DY
   　　　　　　　%X = %X+%DX
  　　　　End If
 
　　End if
next

MsgBox("新しいゲームを始めます。")

Do While %MyKey <> "{ESC}"
　　Set %MyRange = Range?
　　%MyKey=GetKey(2,0)

　　try
　　　　%Cnt =%MyRange.Cells.Count
　　Exception
　　Case "ConstraintError"
　　　　　MsgBox("Quit")
　　　　　stop
　　end try

　　If %Cnt = 1 Then
　　　　If Row(%MyRange) > 4 And Row(%MyRange)< 9 And \\
　　　　　　Col(%MyRange)>1 And Col(%MyRange)<6 Then
　　　　　  For %dy = -1 To 1
                      For %dx = -1 To 1
                             If Abs(%dy + %dx)=1 Then
                                  If Row(%MyRange)+%dy > 4 And Row(%MyRange)+%dy< 9 And \\
　　　　　                  　     Col(%MyRange)+%dx>1 And Col(%MyRange)+%dx<6 Then
             If Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)="" Then
                 Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)=\\
                 Cells(Row(%MyRange), Col(%MyRange))
              Cells(Row(%MyRange), Col(%MyRange))=""
                 End If
          End If
      End If
    Next
      Next
　　　　　　If IsGameOver Then
　　　　　　　　MsgBox("Very Good!!")
　　　　　　　　Stop
　　　　　　End If
　　　　End If
　　End If
Loop

Function IsGameOver() As Boolean
　　%i=1
　　IsGameOver=True
　　For %y = 5 To 8
　　　　　For %x = 2 To 5
　　　　　　　　If %i = 16 Then
　　　　　　　　　　%i = ""

　　　　　　　　End If
　　　　　　　　If Cells(%y, %x)<> %i Then
　　　　　　　　　　IsGameOver=False
　　　　　　　　End If
　　　　　　　　%i=%i+1
　　　　　Next
　　Next
End Function

Sub Init()
　　%i=1
　　For %y = 5 To 8
　　　　　For %x = 2 To 5
　　　　　　　　If %i = 16 Then
　　　　　　　　　　%i = ""
　　　　　　　
　　　　　　　　End If
　　　　　　　　Cells(%y, %x)=%i
　　　　　　　　%i=%i+1
　　　　　Next
　　Next

End Sub

注　\\は行継続文字

　　赤字のコードはESCキー押下でゲームを中止するためのもの。

　　青字のコードはエラー対策のためのもの。

ごじらを逆さまに(12)

(●`ε´●)：おい、くまぷー、悪児さんからコメントを頂いているぞ！！

【´･ω･`】：何と仰っているんだ？

(●`ε´●)：下を見てくれ。

>くまぷーさんの解答ですが、B2セルの式を

>=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-Len(B1),1),B1))

>に替え、反復回数を10回以上に設定すると、どうでしょう・・・(^^)(^^)

【´･ω･`】：ごじらを逆さまに(8)の式についてだな。くまぷーの式が・・・

　　　　　　=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

　　　　　　・・・だから、赤字の部分が違うという訳か。　

(●`ε´●)：二つの式は同じ効果があるようだな。

【´･ω･`】：うん、まあ、悪児さんのはくまぷーのとほぼ同じだから・・・。

　　　　　　反復回数をユーザに最大の９９回にしてもらうのも悪くはないな。

(●`ε´●)：で、おまえの式と悪児さんので結果に何か違いがあるのか？

【´･ω･`】：特に無いとおもうけど・・・。酔っぱらっているから違いが

　　　　　見えないのかもしれない・・・。

15パズル(18)

今回、扱うのはゲームの終了判定の部分です。

ゲームが終了するのは１～１５までの数字とブランクパネルが

初期状態に配置され直したときです。

　まず、どのタイミングでゲームの終了判定をするかということを

考えなければいけません。プログラマーには、プレーヤーの何回目の

パネル移動でゲームが終了するかをしることはできません。１回目で

あがりになるかもしれないし、１００回目かもしれません。

したがって、プレーヤーのパネル操作１回ごとにゲームの終了判定を

しなければなりません。

　厳密に言えばゲームの開始時にすでにあがっている状態、

すなわち麻雀で言えば天和ということも、可能性としてはあります。したがって

そこまで考慮するならば、最初のパネルシャッフル時に天和の時には

さらにシャッフルを繰り返すというコードを付け加えた方がいいのですが

天和は滅多にあることではないので、今回はそこまでは致しません。

コードは下のようになります。

Function IsGameOver() As Boolean
　　%i=1
　　IsGameOver=True
　　For %y = 5 To 8
　　　　　For %x = 2 To 5
　　　　　　　　If %i = 16 Then
　　　　　　　　　　%i = ""

　　　　　　　　End If
　　　　　　　　If Cells(%y, %x)<> %i Then
　　　　　　　　　　IsGameOver=False
　　　　　　　　End If
　　　　　　　　%i=%i+1
　　　　　Next
　　Next
End Function

いよいよ、15パズルの最終回がちかくなってきました。

次回は全コードを掲示します。

ごじらを逆さまに(11)

★ごじらを逆さまに(10)から続いています・・・。

(●`ε´●)：うーん、非表示になっている6行目を再表示させて・・・。B6を

　　　　　　見ると・・・。

=Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-1-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-2-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-3-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-4-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-5-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-6-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-7-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-8-10*(Col(A1)-1)) & Fold(Repeat(" ",100) & $B5,1,Len(Repeat(" ",100) & $B5)-9-10*(Col(A1)-1)) & C6

　　　　　　・・・あ、最後にC6がくっついている・・・。

【´･ω･`】：うん、こうすることによって10個のFold()ブロックの10文字分に加えて

　　　　　C6の、つまりひとつ右隣のセルの文字を併せて表示するようにしているんだ。

(●`ε´●)：あ、なるほど。この式をコピペするとドミノ倒しのように右隣の文字が

　　　　　　付け加えられていくわけか！！

　　　　　　あ、でもくまぷー、C6には何も表示されていないぞ。1文字もないじゃ

　　　　　　ないか！！文字の色を白にしているようでもないし・・・。

【´･ω･`】：いや、C6をコピーして他のセルに「形式を選択して貼り付け」で

　　　　　「値」で複写してみるといい・・・・。

(●`ε´●)：あ、な～るほど。わかったぜい！！

悪児さん、どもでした。(^o^)/~~~

12×12のマスにランダムにアルファベットを表示する(3)

それでは具体的なコードを示そう。以下の通りだ。

Jump(1,4,2)

For %Y = 1 To 12
　　　　　　For %X = 1 To 12
　　　　　　　　　　　Randomize(ThisTime())
　　　　　　　　　　　%num = Int(Rand() * 26) + 97
　　　　　　　　　　　Insert( Char(%num))
　　　　　　　　　　　if %X < 12 Then
　　　　　　　　　　　　　　RightCell()
　　　　　　　　　　　End If
　　　　　　Next
　　　　　　DownCell
　　　　　　LeftCell(11)

Next

サンプルファイルのマクロ「Main」を実行すると12×12のマスに

ランダムにアルファベットが表示される。

尚、繰り返して「Main」を実行するときはあらかじめ12×12の

マスに表示されているアルファベットを削除しておく。

サンプルファイルを用意したので

下からDLして欲しい。

WORD_FIND01_1.lzhをダウンロード

12×12のマスにランダムにアルファベットを表示する(2)

つぎにセルを指定する命令であるが、三四郎のCellsや

ワードVBAのCellに相当するものは無いようである。

使えそうなのは以下の３つの命令である。

LeftCell(回数）：カーソルを指定された回数だけ左に移動させる。
RightCell(回数）：カーソルを指定された回数だけ右に移動させる。
DownCell(回数）：カーソルを指定された回数だけ下に移動させる。

文字コードを文字に変換する命令はすぐにわかった。

Char（文字コード）だった。

文字コードはA～Zが65～90、a～zが97～122だ。Char（65）はAのことだ。

12×12のマスにランダムにアルファベットを表示する(1)

さて今まで調べたことを基に12×12のマスにランダムに アルファベットを表示させてみよう。未知の事項はは乱数を 表示させる命令、12×12のマス、つまりセルを指定する命令 それに文字コードを文字列に変換する命令か・・・。 それではいつもの通り、ヘルプを調べてみよう。 せっかく買い求めた「一太郎マクロ入門」にはあまりお世話に なることもないようだ。ヘルプの文例に下のように書いてある。

Randomize(ThisTime()) !! 乱数系列を再設定する %val = Int(Rand() * 100) !! %val に０～99までの乱数が代入される このあたりはVBAと同じだ。Rand()だけだと同じ乱数を 呼び出してしまうのでRand()を使う前にRandomize()を 使って乱数のタネをつくるのであろう。その際、ThisTime()で 現在の時刻を引数にする・・・このあたりはお約束だ。 　ついでに言うと変数valの前に付いている%はvalのスコープが ローカルであることを意味する。もしもvalの前に$をつけると valのスコープがグローバルであることを意味するということになる。

ごじらを逆さまに(10)

(●`ε´●)：悪児さんのでもうひとつわからないのは・・・

=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-1) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-2) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-3) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-4) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-5) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-6) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-7) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-8) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-9)

　　　　　・・・の赤字の部分の働きだ。B1は「きんぐぎどら」だよな？！悪児さんは

　　　　　なんのために「きんぐぎどら」のまえにスペースを10個もくっつけたんだろうか？

【´･ω･`】：そういうときはRepeat(" ",10) &を消してしまえばいい。

　　　　　　そうすればRepeat(" ",10) &の役割が見えてくる。

(●`ε´●)：下のようにしてしまえというわけか・・・

　　　　　　=Fold(B1,1,Len(B1)) & Fold(B1,1,Len(B1)-1) & Fold(B1,1,Len(B1)-2) & Fold(B1,1,Len(B1)-3) & Fold(B1,1,Len(B1)-4) & Fold(B1,1,Len(B1)-5) & Fold(B1,1,Len(B1)-6) & Fold(B1,1,Len(B1)-7) & Fold(B1,1,Len(B1)-8) & Fold(B1,1,Len(B1)-9)

　　　　　　・・・あ、あれ？！「きんぐぎどら」が!引数不正!になっちゃったぞ？！

　　　　　　どうやらRepeat(" ",10) &はなんかのエラー対策のようだな。

【´･ω･`】：「きんぐぎどら」のかわりに「１２３４５６７８９０」といれてごらん。

(●`ε´●)：あれ？こんどはエラーにならずに「０９８７６５４３２１」と表示されたぞ？！

　　　　　　そうか、Repeat(" ",10) &は10文字未満の時にエラーにならないように

　　　　　　するためのものか！！

【´･ω･`】：うん。

(●`ε´●)：じゃあ、悪児さん方式でやると100文字を逆さまにするのにFold()のブロックが

　　　　　　100個いるというわけか？

【´･ω･`】：うん。基本的にはね。

(●`ε´●)：しかし、B5の「'くまぷー先生すてき♥ですよ。きゃー!

　　　　　　なんちゃって◇さらに続く」は31文字だからFold()ブロックが

　　　　　　３１個いるはずだが・・・？

【´･ω･`】：べべちゃん、よく見てごらん。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

ごじらを逆さまに(9)

(●`ε´●)：くまぷー、悪児さんのファイルを見たんだがちょっと

　　　　　　意味がわからないところがあるんだ。

【´･ω･`】：悪児さんは正攻法だと言っていたな。べべちゃん、で、

　　　　　どんな関数を使っていたんだ？

(●`ε´●)：こんなやつだ。「きんぐぎどら」がB1で・・・

　　　　　　B2にこんな式があったんだ・・・

　　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-1) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-2) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-3) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-4) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-5) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-6) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-7) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-8) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-9)

【´･ω･`】：で、なにがわからないんだい？

(●`ε´●)：まず、式が長いんで、どこから解読したらいいのかわからない・・・。

【´･ω･`】：よく見てみると・・・

　　　　　Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　・・・をたくさん、くっつけたようだな。

(●`ε´●)：うん、数えてみると10個あるな。

【´･ω･`】：べべちゃん、そういうときは・・・

　　　　　ひとつを残して後はデリートしてしまえばいい。・・・例えば

　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　・・・だけを残して後は消してしまう。そうすると式の動きが

　　　　　見えてくる。式が長くて理解しにくいなら

　　　　　長いままで扱うのは賢くない。短くしてしまえばいい。

(●`ε´●)：なるほど。・・・

　　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　　・・・はどうやら、「きんぐぎどら」の「ら」を表示している部分らしいな。

　　　　　こうやってみると、ひとつのFold()の部分がひらがな1文字にあたる

　　　　　ようだな。

【´･ω･`】：うん。

(●`ε´●)：わかってきたよ。くまぷー、でも、まだわからないところがあるんだ。

【´･ω･`】：どこだい。

(●`ε´●)：それは・・・。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）