三四郎そのものが消えていくようです。
当然、三四郎マクロも消えていきます。
一太郎2013玄の初期設定では「マクロ」はメニューにありません・・・
そう言えば、昔、一太郎マクロで１５パズル、作ったよな～
消えゆくSuper Play Lite（Justsystemのマクロ）が不憫でなりません。
あ、Excelだって「開発」タブは初期状態では隠れているってか！！
**************************************************************************************
遊び方：「開始」をクリックする。
ESCを押すとゲーム中止。
白いパネルの隣の数字をパネルをクリックすると
２つのパネルが入れ替わります。
上のようになるように数字パネルを並べて下さい。
投稿情報: 午後 06時51分 カテゴリー: 三四郎マクロでゲーム作成, 三四郎マクロ初心者奮戦記, 戯れで作りました・・・(^^ゞ | 個別ページ | コメント (0)
【´･ω･`】：いよいよ、今回が最終回だ。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して
参考にしてくれ。
投稿情報: 午前 01時35分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：え～と、順位の出し方は・・・・
まず自分の順位を１位として・・・
自分よりいい成績の奴がいたら・・・
その度に自分の順位に１を増やせばいいんだな。
【´･ω･`】：うん、そう。自分より上の奴がひとりなら、自分の順位の１位に
１を足して２位になる。もうひとり、自分より上の奴がいたら
今度は自分の順位の２位に１を加えて３位になるというわけだ。
コードは下のようになる。
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
(●`ε´●)：次は出欠欄か。いよいよ、ゴールが見えてきたな。
投稿情報: 午前 04時47分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：今回は順位を求めるんだよな？
【´･ω･`】：うん。
(●`ε´●)：おいら、Rank関数以外ではどうやればいいのかわからないよ。
【´･ω･`】：今までやった得点合計・受験者数・平均に比べれば
ちょっと頭を使うかもしれないが、落ち着いて考えれば
当たり前のことなので、しっかりついてきて欲しい。
(●`ε´●)：おいら、数学は苦手だぜ。
【´･ω･`】：大丈夫。考え方は小学生でもわかると思う。
(●`ε´●)：小学生でも、か・・・。プレッシャーがかかるぜ。
【´･ω･`】：まあ、気楽に・・・。考え方はこうだ。
ちょっとイメージして欲しい。いいかい。
(●`ε´●)：おう。
【´･ω･`】：今、試験が終わったところだ・・・。べべちゃんは思いの外
試験ができた。「俺って天才！」って気分だ。。
「俺って天才！」って気分なのだから、当然オイラが
一番って気分だ・・・。
(●`ε´●)：うん。
【´･ω･`】：ところが時間が経って落ち着いてくると周りが見えてくる・・・。
クラスメートの悪児さんがいた。彼は俺よりできそうだ・・・とおもう。
自分より出来る奴の顔がひとり浮かんだ。この時点で
(●`ε´●)：一番だったはずが二番になった・・・。
【´･ω･`】：もっと落ち着いてくるときっちーさんの顔も浮かんできた。
あいつも俺より出来そうだ。すると・・・
(●`ε´●)：二番だったのが三番に・・・。
【´･ω･`】：そう、自分より成績のいい奴が現れるたびに順位が
１ずつ増加していくんだ。
つまり、順位を求めるときは最初に自分の順位を１位と仮定して
自分よりいい成績のものがあらわれるたびに順位を１だけ増加させればいい。
(●`ε´●)：な～るほど。
投稿情報: 午後 10時21分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：さて今回は個人別の得点合計、平均を求めるコードを
書いてみようか。
(●`ε´●)：科目の評価(得点）と欠時が交互に並んでいるから
得点の合計を求めるためには一つおきに足していかなければ
ならないな。
【´･ω･`】：こういうときは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
(●`ε´●)：次回は順位を求めるコードだな？
【´･ω･`】：うん。
投稿情報: 午前 05時41分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：さて前回までで成績一覧表の科目別の
合計点、受験者数、平均点を表示する部分が
できたので、そこまでのサンプルファイルを
配布しよう。
次回は個人別の得点合計、平均点、順位を
求めるコードを書くとしよう。
投稿情報: 午後 09時17分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：前回から、だいぶ間があいてしまったな。みんなは
何をやっていたか、たぶん忘れているぞ！！
【´･ω･`】：前回は下のコードをさらにまとめるというところだった。
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
(●`ε´●)：赤い部分はなんだ？
【´･ω･`】：科目ごとに変数%科目、%科目受験者 、%科目平均を
０に初期化するためのコードだ。
(●`ε´●)：なんでそんなものをつけるんだ？
【´･ω･`】：サブルーチン教科別成績を呼び出す形式のコードでは
実はあってもなくてもよかった。
(●`ε´●)：？？？
【´･ω･`】：それはサブルーチンを呼びだす度に%科目、%科目受験者 、%科目平均は
自動的に初期化されるからだ。しかし、そうでないときは自動的に
初期化されないから不具合が起こる。
(●`ε´●)：どんな？
【´･ω･`】：例えば、ある科目の受験者がゼロの場合、その前の科目の
データがそのまま、表示されてしまう・・・。実際に試して
見て欲しい・・・。
投稿情報: 午後 07時37分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
１５パズルもいよいよ、最終回です。今回は
完成品をアップします。遊んでみてください。
くまぷー自身、三四郎は初心者なので
「なんだこりゃ？！」と思うようなところが多々あったのでは
ないかと思います。しかし、以前にも書きましたが
Super Play Rite の作品を公開しているサイトは少ないながらも
存在しますが、コードの解説をしているサイトは
(ほとんど）存在しないように思います。ジャストシステム自身が
Super Play Riteの普及を放棄したように思える今、そこのところに
このサイトの存在理由があります。
これからも拙いながら、三四郎マクロを公開していきます。
コメントなど頂けたら、励みになりますのでよろしくお願いいたします。
投稿情報: 午後 12時03分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
!!１５パズル 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キー押下でゲームを中止するためのもの。
青字のコードはエラー対策のためのもの。
投稿情報: 午前 01時30分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
今回、扱うのはゲームの終了判定の部分です。
ゲームが終了するのは１～１５までの数字とブランクパネルが
初期状態に配置され直したときです。
まず、どのタイミングでゲームの終了判定をするかということを
考えなければいけません。プログラマーには、プレーヤーの何回目の
パネル移動でゲームが終了するかをしることはできません。１回目で
あがりになるかもしれないし、１００回目かもしれません。
したがって、プレーヤーのパネル操作１回ごとにゲームの終了判定を
しなければなりません。
厳密に言えばゲームの開始時にすでにあがっている状態、
すなわち麻雀で言えば天和ということも、可能性としてはあります。したがって
そこまで考慮するならば、最初のパネルシャッフル時に天和の時には
さらにシャッフルを繰り返すというコードを付け加えた方がいいのですが
天和は滅多にあることではないので、今回はそこまでは致しません。
コードは下のようになります。
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パズルの最終回がちかくなってきました。
次回は全コードを掲示します。
投稿情報: 午後 08時11分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (1) | トラックバック (0)
【´･ω･`】：今回は前回紹介した下のコードをさらにまとめてみよう。
Call 教科別成績(4) !!国語
Call 教科別成績(6) !!現社
Call 教科別成績(8) !!数学
Call 教科別成績(10) !!化学
Call 教科別成績(12) !!体育
Call 教科別成績(14) !!保健
Call 教科別成績(16) !!音楽
Call 教科別成績(18) !!美術
Call 教科別成績(20) !!書道
Call 教科別成績(22) !!英語
Call 教科別成績(24) !!オーラル
Call 教科別成績(26) !!家庭
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 %i = 4 TO 26 Step 2
Call 教科別成績(%i)
Next
(●`ε´●)：３行マクロか・・・。ところでStepってのは何だ？
【´･ω･`】：変数%iの増加分だ。Stepを省略するとForループでは
ループ１回につき%iが１増加する。Step ２ とすると
２ずつ増加するんだ。
(●`ε´●)：そうか。こう書けば４のつぎに%iは５を飛ばして
６になるんだな？
【´･ω･`】：そう。
(●`ε´●)：かなり、短くなったな。
【´･ω･`】：うん。でもここまでやったら、もう一押ししたくなる・・・。
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
(●`ε´●)：まだやるのか？
投稿情報: 午前 05時55分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：さて、べべちゃんの作った各科目の得点合計・受験者数・平均点の
コードをもう一度じっくりと見て欲しい。たしか、成績一覧表を作る(6)だったな。
べべちゃん、あのコードはどうやって作ったんだい？
(●`ε´●)：ああ、科目名と列が異なるだけだから国語のために作った下のコードを
コピペしてつくったんだ。変数の名前を変えて、列を表す数字を変えてな。
俺って頭いいだろ！！
※べべちゃんは国語のコードの赤字の部分を変えて数学のコードを
作りました。
**********************************************************************
%国語=0
%国語受験者=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
Next
For %i = 8 To 52
If Not IsBlank(Cells(%i, 4)) Then
%国語受験者 = %国語受験者 + 1
End If
Next
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
Cells(53,4)=%国語
Cells(54,4)=%国語受験者
Cells(55,4)=%国語平均
**********************************************************************
%現社=0
%現社受験者=0
For %i = 8 To 52
%現社 = %現社 + Cells(%i, 6)
Next
For %i = 8 To 52
If Not IsBlank(Cells(%i, 6)) Then
%現社受験者 = %現社受験者 + 1
End If
Next
If %現社受験者>0 Then
%現社平均= %現社/%現社受験者
End If
Cells(53,6)=%現社
Cells(54,6)=%現社受験者
Cells(55,6)=%現社平均
【´･ω･`】：同じような処理を繰り返すときはその処理を
1カ所（さぶルーチン）にまとめ、そのルーチンを
呼び出して使うのが定石だ。例えば上の処理なら
・・・・
Sub 教科別成績(%列)
%科目=0
%科目受験者=0
For %i = 8 To 52
%科目 = %科目 + Cells(%i, %列)
If Not IsBlank(Cells(%i, %列)) Then
%科目受験者 = %科目受験者 + 1
End If
Next
If %科目受験者>0 Then
%科目平均= %科目/%科目受験者
End If
Cells(53,%列)=%科目
Cells(54,%列)=%科目受験者
Cells(55,%列)=%科目平均
End Sub
・・・・こうしておけば変数%列を変えれば同じコードで全ての
科目に対応させることが出来る。
似たようなコードをたくさんいろんなところに書き散らかしておくと
コードの保守が難しくなる。どこかを変えようと思ったら何十カ所も
書き換えなくてはならない。バグを生み出す元凶だな。
このサブルーチンをメインルーチンの下に書いておけば
このようなコードでべべちゃんがやったのと同じことができる。
**********************************************************************
Call 教科別成績(4) !!国語
Call 教科別成績(6) !!現社
Call 教科別成績(8) !!数学
Call 教科別成績(10) !!化学
Call 教科別成績(12) !!体育
Call 教科別成績(14) !!保健
Call 教科別成績(16) !!音楽
Call 教科別成績(18) !!美術
Call 教科別成績(20) !!書道
Call 教科別成績(22) !!英語
Call 教科別成績(24) !!オーラル
Call 教科別成績(26) !!家庭
Sub 教科別成績(%列)
%科目=0
%科目受験者=0
For %i = 8 To 52
%科目 = %科目 + Cells(%i, %列)
If Not IsBlank(Cells(%i, %列)) Then
%科目受験者 = %科目受験者 + 1
End If
Next
If %科目受験者>0 Then
%科目平均= %科目/%科目受験者
End If
Cells(53,%列)=%科目
Cells(54,%列)=%科目受験者
Cells(55,%列)=%科目平均
End Sub
(●`ε´●)：ずいぶん、コードが短くなってすっきりしたな。
【´･ω･`】：ふふふ、まだまだ。次回は今紹介したコードを更にまとめてみよう。
(●`ε´●)：え、まだまとめられるのか？
【´･ω･`】：うん。では次回に・・・
投稿情報: 午前 01時15分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：成績一覧表を作る(８)で下のコードにバグがあったと騒いでいたな？
%受験者数=0
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%受験者数 = %受験者数 + 1
End If
Next
【´･ω･`】：うん、ちょっと不注意だった。
(●`ε´●)：おまえが不注意なのは今に始まったことでないので別に驚きは
しないが、俺にはどういう不具合があるのか今ひとつわからんので
ちょっと解説してくれないか？
【´･ω･`】：OK。上のコードは得点入力欄（D8からD52)に入力された得点の数が
いくつあるか、数えているんだ。
(●`ε´●)：受験すれば普通、１００点満点なら0点から100点までの何らかの
点が入力されるはずだから、得点の数イコール受験者の数という
発想だな。
【´･ω･`】：そう。それでうまくいくと思っていた。ところが三四郎は０と""の
区別がつかないんだ。0点を三四郎は""だと判断してしまうんだ。
(●`ε´●)：すると・・・例えば４０人受験したとして、その中に０点を取った者が
受験者数が39人になってしまうというわけか？
【´･ω･`】：そうなんだ。
(●`ε´●)：それじゃあ、実際より平均点も高くなってしまうな。
【´･ω･`】：その通りなんだよ。で、それを回避したのが下のコードだ。
%受験者数=0
For %i = 8 To 52
If Not IsBlank(Cells(%i, 4)) Then
%受験者数 = %受験者数 + 1
End If
Next
受験者数を求めるコードは何通りか、考えられるが
これはそのうちの一つだ。
投稿情報: 午後 06時30分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：前回の続きだ。前回はプレイヤーがどのセルを選んだかを
Set %MyRange = Range?
で取得した。そして Row(%MyRange)で行番号、Col(%MyRange)で
列番号を取得できることも話した。今回の説明は下のコードについてだ。
If Row(%MyRange) > 4 And Row(%MyRange)< 9 And \\
Col(%MyRange)>1 And Col(%MyRange)<6 Then
（いろいろな処理）
End If
(●`ε´●)：なんだこれは？
【´･ω･`】：このコードはプレイヤーが４×４の盤面内のセルを選択しているかどうかを
判定するためのものだ。
(●`ε´●)：なるほど盤面はセルB5からE8までの１６マスだったな。
【´･ω･`】：そう。プレイヤーが選択したセルの行番号は５から８までの
整数、列番号は２から５までの整数でなければならない。
そしてもしも盤面内のセルを選択していたならさらに次の
コードを実行する。
For %dy = -1 To 1
For %dx = -1 To 1
If Abs(%dy + %dx)=1 Then
（プレーヤーが選んだ数字パネルと
ブランクパネルを交換するコード）
End If
Next
Next
(●`ε´●)：上のコードは（いろいろな処理）のところに書けばいいんだな？
【´･ω･`】：そう。ちょっと複雑になっているが頑張ってついてきて欲しい。
まず大局的な考えを言っておこう。方針はプレイヤーの選んだセルの
上下左右4カ所のどこかにブランクパネルがないかを検査し、もしあれば
それとプレイヤーの選んだセルを交換する・・・だ。ただし、プレイヤーが
B列、E列や5行目、8行目を選んだ場合にマスの外側のブランクセルを
ブランクパネルと誤認しないようにしておかなければならない。
(●`ε´●)：その方法はいろいろあるらしいな？
【´･ω･`】：うん。盤面の外側のセルには何か目印となるような記号を入力しておくような
てもあるがこんかいは、それはやっていない。
さて、それではコードの説明だ。二つのループで%dy、%dxはそれぞれ
－１，０，１になる。
%dy=-1は上、%dy=1は下、%dx=-1は左、%dx=1は右方向を示している。
Abs()は絶対値になるからAbs(%dy + %dx)=1 ならば上下左右の
いずれかになる。
(●`ε´●)：なるほど・・・でそのときには内側の（プレーヤーが選んだ数字パネルと
ブランクパネルを交換するコード） を実行するというわけだな。
【´･ω･`】：うん。
(●`ε´●)：具体的には？
【´･ω･`】：こんなかんじかな。
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
・・・赤いコードはプレイヤーがB列、E列や5行目、8行目を選んだ場合に
マスの外側のブランクセルとプレイヤーが選んだ数字パネルを交換しない
ためのものだ。
(●`ε´●)：では内側のコードがプレイヤーが選んだ数字パネルとブランクパネルを
交換するためのものだな。
【´･ω･`】：そう。\\記号は行継続文字だ。SuperPlayRiteは本来は1行々々、命令を
書かなければならない。しかし、あまり長くなると見づらいので\\記号を
使っているが、その部分は本来、１行だということだ。
(●`ε´●)：わかった。で、今日やった部分をまとめるとこうなるということだな。
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
End If
【´･ω･`】：次回はゲームの終了判定だ。
投稿情報: 午前 05時42分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
今回は【´･ω･`】と(●`ε´●)の二人のキャラはちょっとお休みです。
くまぷーの無知より、バグ入りコードを公開してしまいました。
バグはどこに潜んでいたかというと受験者数を求めるコードの
ところです。
くまぷーは受験者数を求めるのに以下の考えを用いました。
(1)受験していれば何かしらの点数がつく。
(2)ならば、その生徒の得点欄には何かしらの
点数が入力される。
(3)従って受験した生徒の得点欄は空欄ではない。
(4)従って空欄でないセルの数を数えれば受験者数が
求められる。
・・・よって以下のコードを書きました。（得点欄がD8：D52の場合）
%受験者数=0
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%受験者数 = %受験者数 + 1
End If
Next
_|￣|○ うぐぅ・・・・
ところがこれではダメなんです。三四郎は０と空欄の区別がつかないんですね・・・。
例えばA1に１、A2に２、A3に３、A4に４、A5に０として以下のコードを
実行してみると・・・４になります。
%cnt = 0
For %i = 1 To 5
If Cells(%i, 1) <> "" Then
%cnt = %cnt + 1
End If
Next
MsgBox (%cnt)
・・・０と入力されていても三四郎は""だと思ってしまうんです・・・。
エクセルならば・・・５です。
Sub Test()
cnt = 0
For i = 1 To 5
If Cells(i, 1) <> "" Then
cnt = cnt + 1
End If
Next
MsgBox cnt
End Sub
エクセルならこれでよかったんですが・・・。
ゲッ☆(゜ュ)с=（｀´メ おい、三四郎を甘く見るなよ！！
三四郎ならばこうしなければいけないんですね・・・。
%cnt = 0
For %i = 1 To 5
If Not IsBlank(Cells(%i, 1)) Then
%cnt = %cnt + 1
End If
Next
MsgBox (%cnt)
勉強になりましたぜい(^。^)
投稿情報: 午後 09時10分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (5) | トラックバック (0)
【´･ω･`】：べべちゃん、成績一覧表を作る(5)を見たよ。
あれでもきちんと動作するけど一部手直しをしておこうか。
確かべべちゃんのコードはこんなかんじだったかな・・・。
!!国語
%国語=0
%国語受験者=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
Next
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%国語受験者 = %国語受験者 + 1
End If
Next
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
Cells(53,4)=%国語
Cells(54,4)=%国語受験者
Cells(55,4)=%国語平均
・・・よく見ると何か気がつかないかい？
（●｀ε´●）：ループの外枠（赤文字部分）が同じだな。
【´･ω･`】：うん、だったらループの部分をひとつにまとめて
しまったほうが効率がいいだろう。下のような
かんじにすればいいよ。
!!国語
%国語=0
%国語受験者=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
If Cells(%i, 4) <> "" Then
%国語受験者 = %国語受験者 + 1
End If
Next
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
Cells(53,4)=%国語
Cells(54,4)=%国語受験者
Cells(55,4)=%国語平均
（●｀ε´●）：なるほど。
（続く）
投稿情報: 午前 01時00分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：今回もくまぷーは留守だ。あいつのことだから
またどっかでさぼっているに違いない。このブログも
「くまぷーの三四郎道場」から「べべちゃんの三四郎道場」に
改めた方がいいな。
さて前回、国語の得点合計、受験者数、平均を求めたのだから
今回は残りの科目もやってしまおう。簡単なもんだ。コードは
下の通りだ！！（べべちゃんは得意満面だった・・・。）
!!国語
%国語=0
%国語受験者=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
Next
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%国語受験者 = %国語受験者 + 1
End If
Next
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
Cells(53,4)=%国語
Cells(54,4)=%国語受験者
Cells(55,4)=%国語平均
!!現社
%現社=0
%現社受験者=0
For %i = 8 To 52
%現社 = %現社 + Cells(%i, 6)
Next
For %i = 8 To 52
If Cells(%i, 6) <> "" Then
%現社受験者 = %現社受験者 + 1
End If
Next
If %現社受験者>0 Then
%現社平均= %現社/%現社受験者
End If
Cells(53,6)=%現社
Cells(54,6)=%現社受験者
Cells(55,6)=%現社平均
!!数学
%数学=0
%数学受験者=0
For %i = 8 To 52
%数学 = %数学 + Cells(%i, 8)
Next
For %i = 8 To 52
If Cells(%i, 8) <> "" Then
%数学受験者 = %数学受験者 + 1
End If
Next
If %数学受験者>0 Then
%数学平均= %数学/%数学受験者
End If
Cells(53,8)=%数学
Cells(54,8)=%数学受験者
Cells(55,8)=%数学平均
!!化学
%化学=0
%化学受験者=0
For %i = 8 To 52
%化学 = %化学 + Cells(%i, 10)
Next
For %i = 8 To 52
If Cells(%i, 10) <> "" Then
%化学受験者 = %化学受験者 + 1
End If
Next
If %化学受験者>0 Then
%化学平均= %化学/%化学受験者
End If
Cells(53,10)=%化学
Cells(54,10)=%化学受験者
Cells(55,10)=%化学平均
!!体育
%体育=0
%体育受験者=0
For %i = 8 To 52
%体育 = %体育 + Cells(%i, 12)
Next
For %i = 8 To 52
If Cells(%i, 12) <> "" Then
%体育受験者 = %体育受験者 + 1
End If
Next
If %体育受験者>0 Then
%体育平均= %体育/%体育受験者
End If
Cells(53,12)=%体育
Cells(54,12)=%体育受験者
Cells(55,12)=%体育平均
!!保健
%保健=0
%保健受験者=0
For %i = 8 To 52
%保健 = %保健 + Cells(%i, 14)
Next
For %i = 8 To 52
If Cells(%i, 14) <> "" Then
%保健受験者 = %保健受験者 + 1
End If
Next
If %保健受験者>0 Then
%保健平均= %保健/%保健受験者
End If
Cells(53,14)=%保健
Cells(54,14)=%保健受験者
Cells(55,14)=%保健平均
!!音楽
%音楽=0
%音楽受験者=0
For %i = 8 To 52
%音楽 = %音楽 + Cells(%i, 16)
Next
For %i = 8 To 52
If Cells(%i, 16) <> "" Then
%音楽受験者 = %音楽受験者 + 1
End If
Next
If %音楽受験者>0 Then
%音楽平均= %音楽/%音楽受験者
End If
Cells(53,16)=%音楽
Cells(54,16)=%音楽受験者
Cells(55,16)=%音楽平均
!!美術
%美術=0
%美術受験者=0
For %i = 8 To 52
%美術 = %美術 + Cells(%i, 18)
Next
For %i = 8 To 52
If Cells(%i, 18) <> "" Then
%美術受験者 = %美術受験者 + 1
End If
Next
If %美術受験者>0 Then
%美術平均= %美術/%美術受験者
End If
Cells(53,18)=%美術
Cells(54,18)=%美術受験者
Cells(55,18)=%美術平均
!!書道
%書道=0
%書道受験者=0
For %i = 8 To 52
%書道 = %書道 + Cells(%i, 20)
Next
For %i = 8 To 52
If Cells(%i, 20) <> "" Then
%書道受験者 = %書道受験者 + 1
End If
Next
If %書道受験者>0 Then
%書道平均= %書道/%書道受験者
End If
Cells(53,20)=%書道
Cells(54,20)=%書道受験者
Cells(55,20)=%書道平均
!!英語
%英語=0
%英語受験者=0
For %i = 8 To 52
%英語 = %英語 + Cells(%i, 22)
Next
For %i = 8 To 52
If Cells(%i, 22) <> "" Then
%英語受験者 = %英語受験者 + 1
End If
Next
If %英語受験者>0 Then
%英語平均= %英語/%英語受験者
End If
Cells(53,22)=%英語
Cells(54,22)=%英語受験者
Cells(55,22)=%英語平均
!!オーラル
%オーラル=0
%オーラル受験者=0
For %i = 8 To 52
%オーラル = %オーラル + Cells(%i, 24)
Next
For %i = 8 To 52
If Cells(%i, 24) <> "" Then
%オーラル受験者 = %オーラル受験者 + 1
End If
Next
If %オーラル受験者>0 Then
%オーラル平均= %オーラル/%オーラル受験者
End If
Cells(53,24)=%オーラル
Cells(54,24)=%オーラル受験者
Cells(55,24)=%オーラル平均
!!家庭
%家庭=0
%家庭受験者=0
For %i = 8 To 52
%家庭 = %家庭 + Cells(%i, 26)
Next
For %i = 8 To 52
If Cells(%i, 26) <> "" Then
%家庭受験者 = %家庭受験者 + 1
End If
Next
If %家庭受験者>0 Then
%家庭平均= %家庭/%家庭受験者
End If
Cells(53,26)=%家庭
Cells(54,26)=%家庭受験者
Cells(55,26)=%家庭平均
（続く）
投稿情報: 午前 05時08分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：前回までで国語の表示項目
得点合計、受験者数、平均は全て求めることが
できた。後はこれを決められたセルに表示させるだけだ。
今日はくまぷーはいないけど、これぐらいなら俺だけでも
大丈夫。今までのコードをまとめると下のようになる・・・。
%国語=0
%国語受験者=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
Next
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%国語受験者 = %国語受験者 + 1
End If
Next
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
Cells(53,4)=%国語
Cells(54,4)=%国語受験者
Cells(55,4)=%国語平均
投稿情報: 午前 11時57分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：前回までが国語の得点合計と受験者数だったな？
で、今回は何をやるんだ？
【´･ω･`】：国語の平均点を求める。
(●`ε´●)：関数ならば・・・
=Avg(D8:D52)
・・・とやるところだな。
【´･ω･`】：うん、マクロでやるならば国語の得点合計を
受験者数で割ればいい。どちらも前回までで
わかっているから・・・。
(●`ε´●)： 国語の平均を表す変数を%国語平均とすると・・・
%国語平均= %国語/%国語受験者
・・・で求められるな。
【´･ω･`】：うん、ただ零除算によるエラーを回避するために
ここは・・・
If %国語受験者>0 Then
%国語平均= %国語/%国語受験者
End If
・・・とした方がいい。
（続く）
投稿情報: 午前 12時27分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：今回はプレイヤーがマウスでクリックしたときに
数値パネルとブランクパネル交換するコードを書く。
そのためにはプレイヤーがどのセルをクリックしたのか
わからなければならない。実は三四郎にはこういうことを
するときに実に便利な関数がある・・・。
(●`ε´●)：勿体ぶらずに早く言えよ。
【´･ω･`】：まあ、あせるな。それは・・・。
Range?関数だ。
(●`ε´●)：関数に疑問符がついているのか？
【´･ω･`】：うん。これを使うとプレイヤーがどのセルを選択したかが
簡単にわかる。下のようにすればいい。
Set %MyRange = Range?
そして・・・.
Row(%MyRange) とすれば選択セルの行番号を
Col(%MyRange) とすれば選択セルの列番号を
知ることができる。
（続く）
投稿情報: 午後 08時19分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：さて前回は国語の得点の合計を求めた。
（●｀ε´●）：こんなコードだったな。 国語の合計点を表す変数を
%国語として・・・
%国語=0
For %i = 8 To 52
%国語 = %国語 + Cells(%i, 4)
Next
【´･ω･`】：今回は国語の受験者数を求める。
（●｀ε´●）：関数でやるなら、得点の入力されている
セルを数えればいい。よって・・・
=CountNum(D8:D52)
いたって簡単だな。
【´･ω･`】：マクロでやっても基本的な考え方は変わらない。
国語の受験者数を表す変数を%国語受験者とすると・・・
%国語受験者=0
For %i = 8 To 52
If Cells(%i, 4) <> "" Then
%国語受験者 = %国語受験者 + 1
End If
Next
・・・となる。
（●｀ε´●）：では解説してくれ。
【´･ω･`】：Ok。まず、%国語受験者=0のコードで変数%国語受験者の初期値を
０にしておく。
次にForループで%iを８から５２まで変化させて・・・
Cells(%i ,4)の内容をチェックしていく・・・。
(●`ε´●)：%iが８の時は Cells(8 ,4),つまりD8、そして
%iが52の時は Cells(52 ,4),つまり５２ということだったな？
【´･ω･`】：うん。チェックの具体的内容はセルが空欄かどうかだ。
空欄でなければ、%国語受験者の値を１増加させていく。
(●`ε´●)：これをD8からD52まで繰り返してやれば%国語受験者が
国語の受験者数になるというわけだな？
【´･ω･`】：うん。
（続く）
投稿情報: 午後 05時40分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
★国語の合計点を求める。
【´･ω･`】：まず国語の得点を入力するを確認しよう。
(●`ε´●)：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
・・・となる。
（続く）
投稿情報: 午前 04時47分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：「教員のための・・・」と謳っていながら、校務に関わる
題材が少ないんじゃないか？
【´･ω･`】：そうかもしれない。リクエストがあればやってみるけど
取りあえず、成績一覧表（大票）でも作ってみようか。
★仕様：
(1)教科ごとの合計点、平均点、受験者数の表示
(2)生徒ごとの合計点、平均点、順位の表示
(3)出席すべき日数の表示、出席日数の表示
(●`ε´●)：これぐらいのことならマクロなんか使わずに
ワークシート関数だけで十分じゃないか？
【´･ω･`】：もちろん、関数だけで十分に対応できる。だけど関数は
一切使わない。マクロだけでやる。対象は記録マクロを
使う程度で、自分でコードを書くのはどうも・・・という方だ。
これが成績一覧表（大票）の画像だ。
それと成績一覧表（大票）の枠を用意したから
DLして使ってくれ。
投稿情報: 午後 07時24分 カテゴリー: 三四郎マクロ初心者奮戦記, 成績一覧表作成（マクロ版） | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：本当にランダムにパネルを配置してしまうと
解けない問題になる可能性があるらしい・・・。
必ず解けるように問題を作るにはどうしたらいいだ？
【´･ω･`】：最初にパネルをきちんと配置する。
(●`ε´●)：きちんと？
【´･ω･`】：そう、１～１５までの数字とブランクパネルを解きあがった
状態に配置する。それから、ブランクパネルを適当な
回数だけ、ランダムに上下左右の数字パネルと交換してやる。
そうすれば、その逆回しをすれば元に戻るわけだから
解無しの問題にはならないというわけだ。
(●`ε´●)：なるほど。
【´･ω･`】：まず初期化コードだ。これは「１５パズル(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回）繰り返すというわけだ。
(●`ε´●)：なるほど。これでやっとプレイヤーはゲームを始めることが
出来るわけだな。
【´･ω･`】：次はプレイヤーがマウスでクリックしたときに数値パネルとブランクパネル
交換するコードだ。
（続く）
投稿情報: 午前 05時42分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (3) | トラックバック (0)
【´･ω･`】：下がB5：E8の４×４のマス目に１～１５までの数字と
１枚のブランクパネルをランダムに並べるコードだ。
!!第1ブロック
!!変数%Panelの初期化
For %i = 1 To 15
%Panel(%i)=%i
Next
%Panel(16)= ""
!!第２ブロック
!!500回シャッフル
Randomize(ThisTime())
For %i = 1 To 500
%x=Int(Rand()*16)+1
%y=Int(Rand()*16)+1
%Temp=%Panel(%x)
%Panel(%x)=%Panel(%y)
%Panel(%y)=%Temp
Next
!!第３ブロック
!!B5：E8の４×４のマス目に
!!１～１５までの数字と
!!１枚のブランクパネルを書き込む
%i =1
For %y = 5 To 8
For %x = 2 To 5
Cells(%y, %x)=%Panel(%i)
%i = %i +1
Next
Next
【´･ω･`】：今までやってきたコードを並べただけだから
特に解説の必要は無いと思う。
ただ、このコードでパネルを並べると本当に
ランダムに並んでしまう。
(●`ε´●)：ランダムに並べようとして書いたコードなのだから
当たり前じゃないか。何か不都合でもあるのか？
【´･ω･`】：うん、15パズルではブランクパネルと隣り合った
パネルを交換することによってゲームを進めて
行くわけだろう？
(●`ε´●)：ああ。
【´･ω･`】：本当にランダムに並べてしまうと解けるかどうかの
保証が無くなってしまうそうだ。だから、頑張れば
必ず、解けるようにするためにはこのコードでは
不都合があるんだ。
(●`ε´●)：どうすればいいんだ？
（続く）
投稿情報: 午前 04時00分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：それでは重複無しの乱数を作る定石を紹介しよう。
まずは下のコードを見てくれ。このコードはA列に１から１６までの
整数をランダムに並べる・・・・。
!!第1ブロック
%MaxNum = 16
For %i = 1 To %MaxNum
Cells(%i, 1) = %i
Next
!!-----------------------------------------------
!!第2ブロック
Randomize(ThisTime())
For %i = 1 To 100
%X = Int(Rand() * %MaxNum) + 1
%Y = Int(Rand() * %MaxNum) + 1
%Temp = Cells(%X, 1)
Cells(%X, 1)= Cells(%Y, 1)
Cells(%Y, 1) = %Temp
Next
【´･ω･`】：それでは解説しよう。第1ブロックは数字の初期化だ。
ここでA1のセルには１を、A２のセルには２、A３のセルには
３というようにきちんと１～１6までの数字を整列させておく。
（●｀ε´●）：買ってきたばかりのトランプの山と同じようにカードが
順序よくならんでいるわけだな。
【´･ω･`】：その通り。第２ブロックセルの数字をシャッフルする。
ランダムに１から１６までの整数値を二つ生成して、
それを%X、%Yとする。そしてA列の%X番目のセルと
%Y番目のセルの値を交換する。
（●｀ε´●）：それをFor文で100回繰り返しているという訳か。
【´･ω･`】：そう。数字を１６から５２に変更すればトランプに
１３６に変更すれば、麻雀の洗牌になるな。
(続く）
投稿情報: 午前 03時00分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
前回、重複無しの乱数を生成できなかったべべちゃんは
コードを次のように書き直した。
%Y = 1
Randomize(thistime())
Cells(1, 1) = Int(Rand * 16) + 1
Do While %Y <= 16
%i = Int(Rand * 16) + 1
For %X = 1 To 16
If Cells(%X, 1) = %i Then
continue Do
End If
Next
Cells(%Y, 1) = %i
%Y = %Y + 1
Loop
【´･ω･`】：お～、べべちゃん、こんどはForループではなくて
Doループを使っているね。かなり、勉強しているとみたが・・・。
(●`ε´●)：まあな。
【´･ω･`】：ちょっとDoループの解説をしてくれ。
(●`ε´●)：OK。Doループは・・・
Do While 条件式
繰り返したい処理
Loop
・・・という書式をとる。上のDoループは条件式が成立する間は
ループすることになる。
【´･ω･`】：Forループとの違いは？
(●`ε´●)：Forループは一般にループの回数が決まっているときに
用いてDoループはそうでないときに用いる。
【´･ω･`】：上出来だよ。それではもうひとつ、 continue Doについて
説明してくれ。
(●`ε´●)： continue Doはループの開始地点に戻れという命令だ。
【´･ω･`】：うん、文法的なことはバッチリだね。それではコード全体の
流れを説明してくれ。
(●`ε´●)：このコードは重複無しで１から１６までの整数を生成して
それをワークシートのA列に書き込む。発想は単純。
まず、何でもいいから乱数を生成して、それをA1にぶちこむ。
つぎに生成した乱数をA1の数値と比較し、同じだったら違う乱数が
生成されるまでcontinue Doでループする。
【´･ω･`】：なるほど。
（●｀ε´●）：そうやってループしているうちにA1と違う数が生成されたら
それをA2にぶちこむ。つぎは三ツ目の乱数を生成し
それをA1,A2にいれた数と比較し、違う数が生成されるまで
ループする。．．．．．．こうして16個乱数が生成されたら
ループを抜ける。
【´･ω･`】：べべちゃんらしいコードだな。若者らしくて元気があって好きだよ。
ひとつ、大事なことだけどこのコードだと最初に実行するときは
いいけど、2度目に実行するときA列に乱数が書き込まれたままだと
無限ループになってPCがクラッシュするから気をつけてね。
べべちゃんのコードの先頭にA列をクリアする初期化コードを
1行、付け加えて・・・
Range("A1:A16")="" !!くまぷーが付加した初期化コード
%Y = 1
Randomize(thistime())
Cells(1, 1) = Int(Rand * 16) + 1
Do While %Y <= 16
%i = Int(Rand * 16) + 1
For %X = 1 To 16
If Cells(%X, 1) = %i Then
continue Do
End If
Next
Cells(%Y, 1) = %i
%Y = %Y + 1
Loop
・・・とすれば問題ないと思うけど、重複無しの乱数を
生成するには定跡があるから紹介するよ。
（続く）
投稿情報: 午前 02時42分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (2) | トラックバック (0)
べべちゃんはマクロバイザー（三四郎マクロのヘルプ）を見ながら
ひとりで頑張ってみた。
(●`ε´●)：え～と。マクロバイザーによると・・・１～１６までの整数をランダムに
作るには・・・・。
Randomize(ThisTime()) !! 乱数系列を再設定する
%val = Int(Rand() * １６) +１
・・・とすれば良さそうだ。
で１６がでたらIf文で空欄にして・・・
If %val = 16 Then
%val = ""
End If
これらとこの前やったForループを組み合わせれば・・・
Randomize(ThisTime())
For %y = 5 To 8
For %x = 2 To 5
%val = Int(Rand() * １６) +１
If %val = 16 Then
%val = ""
End If
Cells(%y, %x)=%val
Next
Next
べべちゃんは試してみた。
＿｜￣｜○
１から１５までの整数は一応、ランダムに生成されてはいたが・・・
べべちゃんのコードでは重複無しで生成されるわけではなかった・・・・。
投稿情報: 午後 12時05分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
前回までで１～１５の数字をきちんと並べるコードは作ることが
出来ました。今回からはその数字（以下パネル）をバラバラに並べる
ことがテーマです。なぜならば１５パズルはバラバラになったパネルを
整列させるゲームですから。
【´･ω･`】：15パズルを作るんだから、当然パネルがランダムに 配置されるようにしなければならない。 【´･ω･`】：乱数を使う。15パズルだけではなく、一般的にゲームを作るときは 乱数が非常によく使われる。 使えば０以上１未満の乱数を作ることが出来る。例えばひとつのさいころを 振ったときのように1から６までの乱数を作りたいときには下のように やればよい。 | ||
| =Int(Rand() * 6)+1 | ||
(●`ε´●)：Intってなんだ？ (2)従ってRand() * 6は０以上６未満の乱数を作る。 (3)Int関数は与えられた数値をその数値を 越えない最大の整数に変換する。 (4)従ってInt(Rand() * 6)は０から５までの整数値になる。 (5)従って=Int(Rand() * 6)+1は１から６までの整数値になる。 | ||
| ||
(●`ε´●)：なるほど。では双六のように二つのさいころを使うゲームの時は ２から１２までの数字になるわけだから下のような式に すればいいんだな？
| ||
| =Int(Rand() * 10)+2 | ||
【´･ω･`】：甘いな。 ランダムに作ることができるだろう。ただ、さいころを二つ振った場合は 例えばぞろ目の2がでる場合と７がでる場合は確率が同じでないから そのあたりも考慮して式を立てる必要がある。 いけないというわけだな。では15パズルの場合は単純に１から15までの 整数値を作ればいいわけだから下の式でいいわけだな？ | ||
| =Int(Rand() * 15)+1 | ||
【´･ω･`】：そう。 | ||
| うかれているべべちゃん。果たしてそううまく行くのであろうか…（続く） | ||
投稿情報: 午前 05時00分 カテゴリー: 三四郎マクロ初心者奮戦記, 乱数, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●)：うん、よく見ると・・・まだまだ行けそうだな・・・
【´･ω･`】：お～流石、べべちゃん。では下のコードの特徴は？
For %x = 2 To 5
Cells(5, %x)=%x -1
Cells(6, %x)=%x + 3
Cells(7, %x)=%x + 7
Cells(8, %x)=%x + 11
Next
(●`ε´●)：行番号は初項５，公差１の等差数列、右辺は初項-1，公差4の等差数列だ。
もしも更にループを使えるならば・・・
For %y = 5 To 8
For %x = 2 To 5
Cells(%y, %x)=%x +%y*4 -21
Next
Next
・・・となるはずだ。
【´･ω･`】：お～、流石！！ループの中にループを入れることを
ループの入れ子とかネストとよんでいるんだ。
(●`ε´●)：こうやってみると元々は32行あった記録マクロのコード・・・
!! マクロ記録 : 2007/04/04 12:14:13
Range("B5").SetCurrent()
CurrentCell.Formula = "1"
Range("C5").SetCurrent()
CurrentCell.Formula = "2"
Range("D5").SetCurrent()
CurrentCell.Formula = "3"
Range("E5").SetCurrent()
CurrentCell.Formula = "4"
Range("B6").SetCurrent()
CurrentCell.Formula = "5"
Range("C6").SetCurrent()
CurrentCell.Formula = "6"
Range("D6").SetCurrent()
CurrentCell.Formula = "7"
Range("E6").SetCurrent()
CurrentCell.Formula = "8"
Range("B7").SetCurrent()
CurrentCell.Formula = "9"
Range("C7").SetCurrent()
CurrentCell.Formula = "10"
Range("D7").SetCurrent()
CurrentCell.Formula = "11"
Range("E7").SetCurrent()
CurrentCell.Formula = "12"
Range("B8").SetCurrent()
CurrentCell.Formula = "13"
Range("C8").SetCurrent()
CurrentCell.Formula = "14"
Range("D8").SetCurrent()
CurrentCell.Formula = "15"
Range("E8").SetCurrent()
CurrentCell.Clear(1, false, false, false)
・・・・が、たったの・・・・・
For %y = 5 To 8
For %x = 2 To 5
Cells(%y, %x)=%x +%y*4 -21
Next
Next
Cells(8,5)=""
・・・になってしまったというわけか。プログラミングって面白いなァ。(^。^)
投稿情報: 午後 10時00分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：それでは下の１６行のうち上から４行を見てくれ。
何か特徴がないか？
Cells(5,2)=1
Cells(5,3)=2
Cells(5,4)=3
Cells(5,5)=4
Cells(6,2)=5
Cells(6,3)=6
Cells(6,4)=7
Cells(6,5)=8
Cells(7,2)=9
Cells(7,3)=10
Cells(7,4)=11
Cells(7,5)=12
Cells(8,2)=13
Cells(8,3)=14
Cells(8,4)=15
Cells(8,5)=""
(●`ε´●)：行番号は全て５，列番号は初項２，公差１の等差数列
そして右辺は初項１，公差１の等差数列になっている。
【´･ω･`】：うん、だからForループを使うと・・・・
For %x = 2 To 5
Cells(5, %x)=%x -1
Next
・・・・となる。
【´･ω･`】：次の４行の特徴は？
Cells(6,2)=5
Cells(6,3)=6
Cells(6,4)=7
Cells(6,5)=8
(●`ε´●)：行番号は全て６，列番号は初項２，公差１の等差数列
そして右辺は初項５，公差１の等差数列になっている。
【´･ω･`】：うん、すると同様にForループを使うと・・・・
For %x = 2 To 5
Cells(6, %x)=%x + 3
Next
・・・・となる。
【´･ω･`】：さらに次の４行の特徴は？
Cells(7,2)=9
Cells(7,3)=10
Cells(7,4)=11
Cells(7,5)=12
(●`ε´●)：行番号は全て7，列番号は初項２，公差１の等差数列
そして右辺は初項9，公差１の等差数列になっている。
【´･ω･`】：うん、すると更にForループを使うと・・・・
For %x = 2 To 5
Cells(7, %x)=%x + 7
Next
・・・・となる。
(●`ε´●)：なるほど、要領がわかったよ。最後の４行は・・・
Cells(8,2)=13
Cells(8,3)=14
Cells(8,4)=15
Cells(8,5)=""
(●`ε´●)：あれ？！最後の行が規則的ではないな。
【´･ω･`】：じょあ、取りあえず最後の行は・・・
Cells(8,5)=16
・・・だと思えば？
(●`ε´●)：行番号は全て8，列番号は初項２，公差１の等差数列
そして右辺は初項13，公差１の等差数列だ。
【´･ω･`】：するとどう表せる？
(●`ε´●)： For %x = 2 To 5
Cells(8, %x)=%x + 11
Next
【´･ω･`】：正解だ。今まで作った４つのForループを並べるから
もう一度よく見てくれ。
For %x = 2 To 5
Cells(5, %x)=%x -1
Next
For %x = 2 To 5
Cells(6, %x)=%x + 3
Next
For %x = 2 To 5
Cells(7, %x)=%x + 7
Next
For %x = 2 To 5
Cells(8, %x)=%x + 11
Next
【´･ω･`】：何か特徴は？
(●`ε´●)：４つとも外枠が同じになっている。
【´･ω･`】：うん。どれも For %x = 2 To 5 と Next だな。
だから、４つのForループはまとめれば・・・
For %x = 2 To 5
Cells(5, %x)=%x -1
Cells(6, %x)=%x + 3
Cells(7, %x)=%x + 7
Cells(8, %x)=%x + 11
Next
(●`ε´●)：なるほど。
【´･ω･`】：・・・でこのままでは
Cells(8,5)=16 が生きているのでE8が１６になってしまう。
だから最後に Cells(8,5)="" を付け加えてE8をクリアすればいい。
ゆえに最終的には・・・
For %x = 2 To 5
Cells(5, %x)=%x -1
Cells(6, %x)=%x + 3
Cells(7, %x)=%x + 7
Cells(8, %x)=%x + 11
Next
Cells(8,5)=""
・・・が答えとなる。
(●`ε´●)：うん、よく見ると・・・まだまだ行けそうだな・・・
（続く）
投稿情報: 午後 07時00分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：今回はもう一つの基本事項のループだ。
ループは処理の繰り返しに使う。その中でも最も基本的な
を取り上げる。 まず、「For ループ」を取り上げよう。
★書式：
For %カウンタ変数 = 開始値 To 終了値
繰り返したい処理
Next
【´･ω･`】：このような記述をすると%カウンタ変数の値を開始値から
終了値まで１ずつ増加させながら、（終了値－開始値＋１）回だけ
「繰り返したい処理」を繰り返す・・・。
(●`ε´●)：おい、難しいぞ！！
【´･ω･`】：OK,では具体的に行こう。
具体例（１）
For %i = 1 To 5
MsgBox("こんにちは")
Next
【´･ω･`】：具体例（１）のように記述すると、（終了値－開始値＋１）回、つまり
（５－１＋１）回だから、5回ほど「こんにちは」というメッセージボックスが
表示される。ではもう一つ具体例を・・・。
具体例（２）
For %i = 1 To 5
MsgBox( %i )
Next
【´･ω･`】：さて、こんどはメッセージボックスの中身が「こんにちは」から%iに変わった。
すると%カウンタ変数の%iが、開始値１から終了値５まで１ずつ増加していく
から、具体例(1)では5回とも同じ「こんにちは」というメッセージが表示されたが
こんどは・・・。
(●`ε´●)：メッセージボックスの内容が５回とも違って、１，２，３，４，５と
なるというわけか？
【´･ω･`】：その通り。「For ループ」では変化する%カウンタ変数の値をうまく
利用するのがコツだな。
(●`ε´●)：おー、なんとなくわかったぜ。
ところで、なんで%iなんだ？
【´･ω･`】：別に%Xでも、%Yでも、あるいは日本語で%番号でもいいんだが
%iがよくつかわれるのは integer（整数）の頭文字だからだな。
それでは次回はこの２回でやった基本事項の考えをもとにして
１５パズルのコードに戻ろう。
投稿情報: 午後 12時10分 カテゴリー: Super Play Rite の基本, 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：Range（）形式をCells()形式にすると何がいいかを
理解してもらうために二つほど基本事項を説明したい。
まずは・・・
★＝（等号）の使い方について
【´･ω･`】：Super Play Riteでは、等号は２つの使い方があるんだ。
(1)代入演算子としての＝（等号）
例） %X = %X +1
(●`ε´●)：おい、その式はおかしくないか？両辺から%Xを引いたら
0=1になっちゃうぞ！！
【´･ω･`】：この場合の等号の使い方は数学での使い方と違うんだ。
(●`ε´●)：どう違う？
【´･ω･`】：まず式の右辺を計算して、その結果を左辺に代入するんだ。
つまり、もしも%Xが1ならば右辺を計算して２。その結果を左辺に
代入するわけだから、%X = %X +1のコードを実行すると
実行前に１であった%Xが実行後には２になるということだ。
(●`ε´●)：それでは、実行前に%Yが３だったとすると
例） %Y = %Y －２
の後では%Y は１になるということだな？
【´･ω･`】：そう。ちなみに割り算の「÷」を表す記号は「/（スラッシュ）」、かけ算は
「*（アスタリスク）」になる。
(●`ε´●)：わかった。で、もう一つの等号の使い方は？
(２)比較演算子としての＝（等号）
【´･ω･`】：もう一つは数学の等号と同じ。左辺と右辺が等しいという意味。等号は
If文のの中などで条件判断に使われると数学の等号と同じ使い方になる。
例） If Range("A1") = 1 Then
MsgBox("A1は１です")
Else
MsgBox("A1は１ではありません")
End If
(●`ε´●)：わかったけど面倒くさいな。なんでSuper Play Riteを作ったひとは
同じ記号に二つの意味を持たせたんだ？！別の記号にしておけば
混乱しないのに。
【´･ω･`】：BASICをルーツとするプログラミング言語はSuper Play Riteと同じだな。
もちろん、ちがう記号を割り当てている言語もある。次回はもうひとつの
基本事項を説明しよう。
（続く）
投稿情報: 午前 06時00分 カテゴリー: Super Play Rite の基本, 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (1) | トラックバック (0)
【´･ω･`】:前回は記録マクロで作られたコードを下のように編集したところまでだったな。
Range("B5")=1
Range("C5")=2
Range("D5")=3
Range("E5")=4
Range("B6")=5
Range("C6")=6
Range("D6")=7
Range("E6")=8
Range("B7")=9
Range("C7")=10
Range("D7")=11
Range("E7")=12
Range("B8")=13
Range("C8")=14
Range("D8")=15
Range("E8")=""
(●`ε´●)：ああ。
【´･ω･`】：記録マクロではセルを指定するときに
Range("セル番地")
という形式を使っているが実はもう一つ、セルを
指定する形式があるんだ。
(●`ε´●)：それは？
【´･ω･`】：Cells(行番号, 列番号) という形式。
A列、B列、C列をそれぞれ１列、２列、３列と考えて
Range("B3")ならばCells(3,2)
Range("C2")ならばCells(2,3)と表すことが出来る。
(●`ε´●)：すると上の１６行のコードは下のように書けるわけか？
Cells(5,2)=1
Cells(5,3)=2
Cells(5,4)=3
Cells(5,5)=4
Cells(6,2)=5
Cells(6,3)=6
Cells(6,4)=7
Cells(6,5)=8
Cells(7,2)=9
Cells(7,3)=10
Cells(7,4)=11
Cells(7,5)=12
Cells(8,2)=13
Cells(8,3)=14
Cells(8,4)=15
Cells(8,5)=""
【´･ω･`】：うん。
(●`ε´●)：Range（）形式ならどのセルを作業対象に
しているか一目で分かるがCells()形式にすると
わかりにくくなった気がするな。こんなことをして
何かいいことがあるのか？
【´･ω･`】：うん。おおいにあるんだ。
（続く）
投稿情報: 午後 10時00分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：これからの数回はコードをまとめていく。
まず、下の２行のコードを見てくれ。
Range("B5").SetCurrent()
CurrentCell.Formula = "1"
これは１行目でセルB5をカレントセルにして
２行目でそのカレントセルに１を書き込むというコードだ。
これは直接、B5に１を書き込むとすればよいので
下の１行にまとめられる。
Range("B5") = 1
(●`ε´●)：ずいぶん短くなったな。
【´･ω･`】：うん、記録マクロで作ったコードは冗長になるからね。
(●`ε´●)：すると前に記録マクロで作った下のコードは
!! マクロ記録 : 2007/04/03 09:14:13
Range("B5").SetCurrent()
CurrentCell.Formula = "1"
Range("C5").SetCurrent()
CurrentCell.Formula = "2"
Range("D5").SetCurrent()
CurrentCell.Formula = "3"
Range("E5").SetCurrent()
CurrentCell.Formula = "4"
Range("B6").SetCurrent()
CurrentCell.Formula = "5"
Range("C6").SetCurrent()
CurrentCell.Formula = "6"
Range("D6").SetCurrent()
CurrentCell.Formula = "7"
Range("E6").SetCurrent()
CurrentCell.Formula = "8"
Range("B7").SetCurrent()
CurrentCell.Formula = "9"
Range("C7").SetCurrent()
CurrentCell.Formula = "10"
Range("D7").SetCurrent()
CurrentCell.Formula = "11"
Range("E7").SetCurrent()
CurrentCell.Formula = "12"
Range("B8").SetCurrent()
CurrentCell.Formula = "13"
Range("C8").SetCurrent()
CurrentCell.Formula = "14"
Range("D8").SetCurrent()
CurrentCell.Formula = "15"
Range("E8").SetCurrent()
CurrentCell.Clear(1, false, false, false)
は更に下のように短くできるということだな？
!! マクロ記録 : 2007/04/03 09:14:13
Range("B5")=1
Range("C5")=2
Range("D5")=3
Range("E5")=4
Range("B6")=5
Range("C6")=6
Range("D6")=7
Range("E6")=8
Range("B7")=9
Range("C7")=10
Range("D7")=11
Range("E7")=12
Range("B8")=13
Range("C8")=14
Range("D8")=15
Range("E8")=""
【´･ω･`】：うん、でももっとすっきりさせることが出来る。
（続く）
投稿情報: 午後 07時49分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：それではコードを１行ずつ見ていこう。
まず、１行目の
Range("B5").SetCurrent()
だけど・・・。
これはべべちゃんがマウスでセル５を選択したときに
生成されたコードだ。にRange("B5")でセルB5を指定している。
そしてSetCurrent()は読んで字のごとくセルB5をカレント（現在の）
セルに設定する。
(●`ε´●)：カレントセルってなんだ？
【´･ω･`】：入力などの操作対象になっているセルのことだ。カレントセルでなければ
キーボードから入力することが出来ない。
そして次に
CurrentCell.Formula = "1"
でカレントセルに１を書き込む。
(●`ε´●)：あとは今のことを２から１５まで繰り返して
いるというわけだ。
【´･ω･`】：そう。そしてその後、
Range("E8").SetCurrent()
でセルE8を操作対象にして
CurrentCell.Clear(1, false, false, false)
でセルの内容をDeleteするというわけだ。
(●`ε´●)：よく空欄のことを表計算ソフトでは""と表すから
CurrentCell.Clear(1, false, false, false) の代わりに
CurrentCell.Formula = "" と書いても同じになるようだな。
【´･ω･`】：さすがべべちゃん、よく気づいたね。次回はこのコードを
もう少しすっきりさせてみよう。
投稿情報: 午後 06時00分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
くまぷーに宿題を出されたべべちゃんは
記録マクロを使った。実際に順番に
１から１５の数字を入力して最後のセルE8では
Deleteキーを押した。すると下のようなコードができた。
!! マクロ記録 : 2007/04/04 12:14:13
Range("B5").SetCurrent()
CurrentCell.Formula = "1"
Range("C5").SetCurrent()
CurrentCell.Formula = "2"
Range("D5").SetCurrent()
CurrentCell.Formula = "3"
Range("E5").SetCurrent()
CurrentCell.Formula = "4"
Range("B6").SetCurrent()
CurrentCell.Formula = "5"
Range("C6").SetCurrent()
CurrentCell.Formula = "6"
Range("D6").SetCurrent()
CurrentCell.Formula = "7"
Range("E6").SetCurrent()
CurrentCell.Formula = "8"
Range("B7").SetCurrent()
CurrentCell.Formula = "9"
Range("C7").SetCurrent()
CurrentCell.Formula = "10"
Range("D7").SetCurrent()
CurrentCell.Formula = "11"
Range("E7").SetCurrent()
CurrentCell.Formula = "12"
Range("B8").SetCurrent()
CurrentCell.Formula = "13"
Range("C8").SetCurrent()
CurrentCell.Formula = "14"
Range("D8").SetCurrent()
CurrentCell.Formula = "15"
Range("E8").SetCurrent()
CurrentCell.Clear(1, false, false, false)
(●`ε´●)：これで一応、動くはずだが・・・。
【´･ω･`】：うん、これでちゃんと動くよ。
では次回はこのコードの意味を
考えてみよう。
投稿情報: 午後 12時14分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
【´･ω･`】：最初の題材は１５パズルにしようと思う。
(●`ε´●)：15パズルって言うと４×４のマス目に１～１５の
数字を整列させるやつか？
【´･ω･`】：うん。
(●`ε´●)：おれはくまぷーがゲームって言うから３Dで
グリグリ動くやつを扱うかと思っていたんだが・・・
【´･ω･`】：三四郎でははっきり言ってそれは不可能だ。
しかし、動きの少ないパズルゲームならば
三四郎でも作ることができる。それに校務で
やることくらいなら、パズルゲームを作れる腕前なら
何でも出来る。教員相手の講習会の下手な講師よりも
実務では上になれると思うよ。
(●`ε´●)：おう、ではやってみるか。最初になにをやればいい。
【´･ω･`】：それではワークシートのセルB5：E8の16マスに
1から１５の数字を表示させるコードを書いてくれ。
E8は空欄にしてくれ。
(●`ε´●)：できるかな。
【´･ω･`】：次回までに宿題だ。
投稿情報: 午前 11時41分 カテゴリー: 三四郎マクロ初心者奮戦記, １５パズル | 個別ページ | コメント (0) | トラックバック (0)
(●`ε´●):試してみたら、うまくいった。
（￣＾￣）えへん
（●｀ε´●）：あ、ところで三四郎ではマクロでセルに斜線を引くときに
セルを二つ指定する・・・・
左上から右下に斜線を引くときは・・・・
例えばA１に引くならばA1と右斜め下のB2・・・
左下から右上ならば・・・・
一つ下のA2と右横のB1・・・
そうであるなら・・・
セルIV32000に斜線を引くときとは
いったい、どうなるんだ？！
※ちなみに三四郎は最大行は３２０００ですから、その下にセルはありません。
列はIVまでですから、その右にセルはありません。
興味のあるかたはご自分でお試しください。
また、他のセルに罫線を引いておいてそれを３２０００行のセルや
IV列のセルにコピーすればちゃんと斜線はひけるかなぁ？
答えはやってみればすぐわかるので書きません。
投稿情報: 午後 10時10分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (2) | トラックバック (0)
べべちゃんは記録マクロをONにして
C3に斜線を引き、そして消去しました。
出来たコードが下です。
（●｀ε´●）：おれがべべちゃんだ！！よろしく！！
! ! マクロ記録 : 2007/04/02 06:35:05
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
..LineStyle = snsLineThinSolid
..Color = RGB(0, 0, 0)
end with
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
..LineStyle = snsNone
end with
これを前回のIf文（下）と
If Range("C3") = "" Then
C3に斜線を引くコード
Else
C3から斜線を消去するコード
End If
と組み合わせると・・・
If Range("C3") = "" Then
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
..LineStyle = snsLineThinSolid
..Color = RGB(0, 0, 0)
end with
Else
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
..LineStyle = snsNone
end with
End If
（●｀ε´●）：どれうまくいくか試してみよう！！
（続く）
投稿情報: 午後 01時00分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (0) | トラックバック (0)
RGB値を弄って斜線を黒から白に変える手は当たり前ですがダメです。
セルが空欄でない時には文字の上を白い斜線が横切ることになります。
ゲッ☆(゜ュ)с=（｀´メ
やはり、ここはきちんと斜線を消去しなければなりません。もう一度
記録マクロを使ってコードを調べてみましょう。
セルC3に左上から右下に引かれた斜線を消去してみます。
!! マクロ記録 : 2007/0４/０1 18:56:03
with Worksheet.Diagonals.Add(Range("C3"),Range("D4"))
..LineStyle = snsNone
end with
これはWith と end with の間に1行しかないので
Worksheet.Diagonals.Add(Range("C3"),Range("D4")).LineStyle = snsNone
と1行にすることができます。線を消去するときは、線種を指定する必要もないし
線の色を指定する必要もないので、線を描画するときと違って、その分は
コードが少なくなっているというわけです。
（●｀ε´●）：じゃあ、これをIF文かなんかと組み合わせて条件分岐させるコードを書けば
いいんだな？
【´･ω･`】:うん。
（●｀ε´●）：確か一番簡単なIF文はこうだったな？！C3に斜線を引くとして
If Range("C3") = "" Then
C3に斜線を引くコード
End If
If Range("C3") <> "" Then
C3から斜線を消去するコード
End If
【´･ω･`】:うん。基本的にはそれでOKだよ。 If 文は
If 条件式 Then
何かの処理をするコード
End If
という書式をとる。条件式が成立すればThenとEnd Ifに
挟まれたコードを実行し、成立しなければEnd Ifの下に
書かれたコードを実行するんだ。
また、セルが空欄か否かは二律背反だから、下のように
コードを書いてもいいんだ。
If Range("C3") = "" Then
C3に斜線を引くコード
Else
C3から斜線を消去するコード
End If
（●｀ε´●）：条件式が成立するときはThenとElseに
挟まれたコードを実行し、成立しなければElseとEnd Ifに
挟まれたコードを実行するというわけだな。
【´･ω･`】:うん。
（●｀ε´●）：じゃあ、次回はC3が空欄時には斜線を引く実際のコードを
書いてみるよ。
【´･ω･`】:頑張ってくれ。
（続く）
投稿情報: 午前 03時00分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (0) | トラックバック (0)
セル空欄時には斜線（２）で斜線の引き方はだいたい解りました。
次は斜線の消し方です。
(●`ε´●):下のマクロでC3に黒い斜線が引けるんだから・・・
with Worksheet.Diagonals.Add(Range("C3"),Range("D4"))
..LineStyle = snsLineThinSolid
..Color = RGB(0, 0, 0)
end with
(●`ε´●):RGB値を弄って下のようにすればいいんじゃないか？！
with Worksheet.Diagonals.Add(Range("C3"),Range("D4"))
..LineStyle = snsLineThinSolid
..Color = RGB(255, 255, 255)
end with
【´･ω･`】:：なるほど斜線の色を黒から白に変えたというわけか・・・。
(●`ε´●):頭いいだろ？！白地のセルに白い斜線なら「青い蝶が
青い葉にとまる」わけだから、見事に消えるはずだ。
【´･ω･`】:たしか「巨人の星」の大リーグボール２号の理論か・・・。
残念だけど、この場合はうまくはいかないと思うよ。
(続く）
投稿情報: 午後 08時28分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (0) | トラックバック (0)
!! マクロ記録 : 2007/03/31 21:52:09
with Worksheet.Diagonals.Add(Range("A2"), Range("B1"))
..LineStyle = snsLineThinSolid
..Color = RGB(0, 0, 0)
end with
上の記録マクロから、あれこれ調べてみました。
（１）1行目で斜線を引くセルを特定しているようです。
これは左下から右上に斜線を引く場合と左上から右下に
引く場合で位置の指定が少し違うようです。
★左下から右上
with Worksheet.Diagonals.Add(Range("下のセル番地"), Range("右のセル番地"))
★左上から右下
with Worksheet.Diagonals.Add(Range("斜線を引くセル番地"), Range("右下のセル番地"))
（２）2行目は線種です。ちなみにsnsLineThinSolidは
細実線を示す文字定数です。
参考までに下の一覧をどうぞ。
snsLineThinSolid 1 細実線
snsLineSolid 2 実線
snsLineThickSolid 3 太実線
snsLineThinDot 4 細点線
snsLineDot 5 点線
snsLineThickDot 6 太点線
snsLineDoubleSolid 7 二重線
snsLineThinDashDot 8 細一点鎖線
snsLineDashDot 9 一点鎖線
snsLineThinDashDotDot 10 細二点鎖線
snsLineDashDotDot 11 二点鎖線
snsLineThinWave 12 細波線
snsLineWave 13 波線
snsLineThinDoubleWave 14 二重波線
snsLineSlant 15 飾り罫線
（３）３行目は線の色です。
ちなみにRGBは光の３原色を示しています。
R･･･Red(赤）, G･･･Green（緑）, B･･･Blue（青）,
各色の度合いを０～２５５の整数値で現し、全て０だと
黒、全て２５５だと白になります。
投稿情報: 午後 12時36分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (1) | トラックバック (0)
調査書などの書類を作成しているときにセルが
空欄の時には斜線を引きたいのだがどうしたらよいでしょう
とよく尋ねられます。理由を尋ねると空欄のままにしていると
書き忘れと区別がつかないから・・・ということです。
そこで苦肉の策でIf関数と「／（スラッシュ記号）」を使って
下のようにしているものを見たことがあります。
=IF(A1="", "／","何かの所見")
いやあ、本当にご苦労様という感じです。そんなことを
するくらいならば「特記事項無し」などの文言を表示させた方が
よっぽどスマートだと思うのですが・・・(-_-;)
ま、仕方がないのでマクロを組んでみましょう。
どういうコードを書けばよいのか取りあえず記録マクロを
使って調べてみましょうか・・・
A1あたりに実際に右上がりの斜線を
引いてみると・・・
!! マクロ記録 : 2007/03/31 21:52:09
with Worksheet.Diagonals.Add(Range("A2"), Range("B1"))
..LineStyle = snsLineThinSolid
..Color = RGB(0, 0, 0)
end with
(･_･)......ﾝ?
A1に引いたのにA2だのB1だのと言ってるぞ？！
（続く）
投稿情報: 午前 06時58分 カテゴリー: 三四郎マクロ初心者奮戦記 | 個別ページ | コメント (0) | トラックバック (0)
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
| 31 |
最近のコメント