Excel Maniacs

成績一覧表を作る(2)

★国語の合計点を求める。

【´･ω･`】：まず国語の得点を入力するを確認しよう。

(●`ε´●)：D8からD52までだ。

【´･ω･`】：それでは、国語の合計点を表示するセルは？

(●`ε´●)：D53だ。

【´･ω･`】：マクロを使わないで関数でやるならばあっさりと

　　　　　　D53に・・・

　　　　　　　　　　=Sum(D8:D52)

                 ・・・入力するだけだ。もちろん、この方が簡単なのだが

　　　　　　マクロのコードを書く練習だから、関数は使わない。

　　　　　　それでは基本事項Cells()の使い方の確認だ。

　　　　　　べべちゃん、D8はどう表す？

(●`ε´●)：Cells(8, 4)

【´･ω･`】：うん。それではD52は？

(●`ε´●)：Cells(52, 4)

【´･ω･`】：うん。A列、B列、C列・・・をそれぞれ、1列、２列、３列・・・と

　　　　　　見立てて・・・

　　　　　　　　　　　　　　　Cells(行番号, 列番号)

　　　　　　・・・だったね。D列はこのルールでいけば４列になるから

　　　　　　D8はCells(8, 4)に、D52はCells(8, 52)になるというわけだ。

　　　　　　ここまでは大丈夫かな？

(●`ε´●)：おう。

【´･ω･`】：それでは肩慣らしとして・・・

　　　　　　D８に６０

　　　　　　D9に７０

　　　　　　D10に８０

　　　　　　D11に５０

　　　　　　D12に９０

　　　　　　・・・と入力されているとして、この５つのセルの

　　　　　　合計点を求めてみよう。

　　　　　　上記赤文字5行はCells()形式に直すと・・・

　　　　　　Cells(8, 4)に６０

　　　　　　Cells(9, 4)に７０

　　　　　　Cells(10, 4)に８０

　　　　　　Cells(11, 4)に５０

　　　　　　Cells(12, 4)に９０

                ・・・となる。ここで合計点を表す変数を　%合計　とする・・・

　　　　　　それでは和を求めるコードを紹介しよう。

　　　　　　全部で6行だ。

　　　　　　%合計 =0      !!変数の初期化

　　　　　　%合計　=  %合計 +  Cells(8, 4)

                %合計　=  %合計 +  Cells(9, 4)

　　　　　　%合計　=  %合計 +  Cells(10, 4)

                %合計　=  %合計 +  Cells(11, 4)

                %合計　=  %合計 +  Cells(12, 4)

                ・・・とすればよい。ここでこの等号の意味をもう一度思い出してもらいたい。

(●`ε´●)：右辺を計算して、その結果を左辺に代入する・・・だったな。

【´･ω･`】：じゃあ、解説だ。

　　　　　　1行目で右辺の0を左辺に代入しているのでこの左辺の%合計は

　　　　　　0になる。次に2行目でその0にCells(8, 4)、つまり60を加えた結果を左辺に

　　　　　　代入する。故に、この左辺の%合計は60になる。次に3行目でその60に

　　　　　　Cells(9, 4)、つまり70を加えた結果を左辺に代入する。故に、この左辺の

　　　　　　%合計は130になる。次に4行目でその130にCells(10, 4)、つまり80を

　　　　　　　加えた結果を左辺に代入する。故に、この左辺の%合計は210になる。

(●`ε´●)：パターンが見えてきたな。次は俺が言おう。

　　　　　　5行目でその210にCells(11, 4)、つまり50を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は260になる。そして最後に6行目で

　　　　　　その260にCells(12, 4)、つまり90を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は350になる。この３５０が答えだ。

【´･ω･`】：この説明のように同じことを繰り返すのはかったるい。

　　　　　これをForループを使って書くとすっきりする。Forループに

　　　　　ついては１５パズル(7)、１５パズル(8)、１５パズル(9)を参考にしてくれ。

              国語の合計点を表す変数を　%国語　とすると・・・

              %国語=0
               For %i = 8 To 52
                      %国語 = %国語 + Cells(%i, 4)
                Next

　　　　　・・・となる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

成績一覧表を作る(1)

(●`ε´●)：「教員のための・・・」と謳っていながら、校務に関わる

　　　　　　題材が少ないんじゃないか？

【´･ω･`】：そうかもしれない。リクエストがあればやってみるけど

　　　　　　取りあえず、成績一覧表（大票）でも作ってみようか。

　　　　　　 ★仕様：
    　　　　　　　 (1)教科ごとの合計点、平均点、受験者数の表示
     　　　　　　　(2)生徒ごとの合計点、平均点、順位の表示
    　　　　　　　 (3)出席すべき日数の表示、出席日数の表示

(●`ε´●)：これぐらいのことならマクロなんか使わずに

　　　　　　ワークシート関数だけで十分じゃないか？

【´･ω･`】：もちろん、関数だけで十分に対応できる。だけど関数は

　　　　　　一切使わない。マクロだけでやる。対象は記録マクロを

　　　　　使う程度で、自分でコードを書くのはどうも・・・という方だ。

　　　　　これが成績一覧表（大票）の画像だ。

　　　　　　

それと成績一覧表（大票）の枠を用意したから

DLして使ってくれ。

snsOhyou00.lzhをダウンロード 　　　　　　　

　　　　　

15パズル(15)

(●`ε´●)：本当にランダムにパネルを配置してしまうと

　　　　　　解けない問題になる可能性があるらしい・・・。

　　　　　　必ず解けるように問題を作るにはどうしたらいいだ？

【´･ω･`】：最初にパネルをきちんと配置する。

(●`ε´●)：きちんと？

【´･ω･`】：そう、１～１５までの数字とブランクパネルを解きあがった

　　　　　　状態に配置する。それから、ブランクパネルを適当な

　　　　　　回数だけ、ランダムに上下左右の数字パネルと交換してやる。

　　　　　　そうすれば、その逆回しをすれば元に戻るわけだから

　　　　　　解無しの問題にはならないというわけだ。

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

【´･ω･`】：まず初期化コードだ。これは「１５パズル(9)」ですでに作った

　　　　　　ものをそのまま使えばいい。下のコードがそれだ。

　　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　 　Next

　　　　　　　Cells(8,5)=""　

(●`ε´●)：このコードはここで使うつもりだったのか。

【´･ω･`】：まあね。下がパネルをシャッフルするためのコードだ。

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　　Randomize(ThisTime())
　　　　　　!!シャッフル
　　　　　　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　
　　　　　　　　　　      !!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp
　　　　　　　　　         !!交換後、新たにブランクパネルになった
　　　　　　　　　         !!セルの行番号と列番号を記憶
                                 %Y = %Y+%DY
                                %X = %X+%DX
                        End If
 
            End if
next

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

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　これは初期化してきちんとパネルが整列しているときの

　　　　　ブランクパネルの位置を表している。すなわちセルE８だ。

　　　　　そして・・・

　　　　　!!ブランクパネルと交換する数字パネル
　　　　　　!!の方向　
　　           %DX = Int(Rand() * 3)-1
　              %DY = Int(Rand() * 3)-1
　　　　　　

　　　　　・・・は-1、０，１のどれかの数値をランダムに生成する。

　　　　　%DXが-1ならブランクパネルの左方向

　　　　　%DXが1ならブランクパネルの右方向

　　　　　%DYが-1ならブランクパネルの上方向

　　　　　%DYが1ならブランクパネルの下方向を示す。

(●`ε´●)：Abs(%DX + %DY) = 1 というのは何だ？

【´･ω･`】：Abs()は絶対値を求めるときに使う関数だ。

(●`ε´●)：？？？

【´･ω･`】：１５パズルではブランクパネルの上下左右にある数字パネルを

　　　　　　交換するのであって、斜め方向には交換しない。Abs(%DX + %DY)が

　　　　　　１ならばそれが保証される。

(●`ε´●)：%DXが１、％DYが１だとすると和の絶対値は２．

　　　　　　その場合はもしもブランクセルがCells(５，２）だとすると

　　　　　　それに対しての数値セルがCells(５＋１，２＋１）じゃ

　　　　　　斜め方向になってしまうもんね。

【´･ω･`】:：そう、どちらか一方が０でなければ上下左右方向にならない。

　　　　　　つぎの

　　　　　　  If Cells(%Y+%DY, %X+%DX) = "" Then
　　　　　　　　　　      !!４×４のマス目の外のセルとの交換
　　　　　　　　　　       !!はしない　
                                    continue for

　　　　　　　・・・コメントの通り。次の

　　　　　　　!!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp

【´･ω･`】：　ここはちょっと修正しよう。上のコードは２つのものの値を

　　　　　　交換するときは定石と言えるコードだが、この場合は一方の

　　　　　　値はブランクだと限定されている。つまり、交換後は今までの

　　　　　　ブランクセルの Cells(%Y, %X) が数値セルに

　　　　　　数値セルのCells(%Y+%DY, %X+%DX)がブランクパネルに

　　　　　　なるので・・・

　　　　　　Cells(%Y, %X) = Cells(%Y+%DY, %X+%DX)
   　　　　　Cells(%Y+%DY, %X+%DX) = ""

　　　　　　・・・の２行で十分だ。

　　　　　　・・・ブランクパネルの行番号を示す%Yに今までの数値パネルの

　　　　　　行番号を、列番号を示す%Xに今までの数値パネルの列番号を

　　　　　　忘れずに代入しておく。

　　　　　　%Y = %Y+%DY
                 %X = %X+%DX

　　　　　　これで1回分のシャッフルが終わる。

　　　　　これを適当な回数（この場合は3000回）繰り返すというわけだ。

(●`ε´●)：なるほど。これでやっとプレイヤーはゲームを始めることが

　　　　　　出来るわけだな。

【´･ω･`】：次はプレイヤーがマウスでクリックしたときに数値パネルとブランクパネル

　　　　　　交換するコードだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）