セル関連マクロ例

１　Ａ列の終端セルを調べ、その間にある空白セルの行を削除する。

データ数が可変の列で、列の終端セルを調べ、その間に空白のセルがあればその行を全て削除したい
ということがよくあります。そんな場合に使うためのマクロの基本形です。
例えば下の表で、Ａ３，Ａ４が空白なので、３行、４行目を削除するというような場合です

	Ａ	Ｂ	Ｃ
１	５
２	％
３
４
５	７
６	％
７
８

Sub CutNullrow()
x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row
For i = x% To 1 Step -1
If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("Sheet1").Rows(i).Delete　　　　　
Next
End Sub

非常に短いマクロですが、含蓄に富んでいます。
終端セルの取得についてはセル関連基本マクロで解説しましたので、参考にして下さい。
さて、行（ＲＯＷ）の削除ですが、終端セルから若い方（セルＡ１）に向かって削除している点に注目して
下さい。　For i = x% To 1 Step -1　の部分です。

ここを、順当に　For i = 1 To x%　とやると、複数行にわたって空白セルがある場合うまくいきません。
ちょっと、上の例で考えてみます。ｉ＝３の時３行目が削除されます。すると、４行目以下が１つ上につめられて
４行目が３行目にきます。次にｉ＝４になった時には、空白セルの元４行目は３行目になっているので、
削除されずに残ってしまいます。

というわけで、終端セルのほうからさかのぼって削除していくのです。

２　オセロではさまれた駒をひっくり返す処理
これはおじさん自作のＥＸＣＥＬ　ＯＴＨＥＬＯで使っているものです。ＥＸＣＥＬＯＴＨＥＬＯは
ＥＸＣＥＬ活用例（自作アプリ）からダウンロードできます。

ちょつと前置きです。このオセロでは、自分の駒は”ｙ”、コンピューターの駒は”ｃ”です。
オセロ盤はＡ１からＨ８までのセルです。何も置かれていないマスは”．”になっています。

	A	B	C	D	E	F	G	H
1	.	.	.	.	.	.	.	.
2	.	.	.	.	.	.	.	.
3	.	.	.	.	.	.	.	.
4	.	.	.	y	c	.	.	.
5	.	.	.	c	y	.	.	.
6	.	.	.	.	.	.	.	.
7	.	.	.	.	.	.	.	.
8	.	.	.	.	.	.	.	.

前置きその２です

置きたいマスにおけるかどうかの判定
置きたいマスの選択は、置きたいマス（セル）をクリック（選択）することによって行わせています。
選択されたセルはＡｃｔｉｖｅｃｅｌｌになりますので、
If ActiveCell <> "." Then　で駒を置けるマスかどうか判定します。

選択されたセルの行、列の取得
d = ActiveCell.Address(ReferenceStyle:=xlR1C1)
r = Val(Mid(d, 2, 1)): c = Val(Right(d, 1))
によって、自分がおいた駒の位置の行が変数ｒ　列が変数ｃに入るようになっています。

では、本題の置いた駒による反転処理について、右側の処理、左側の処理のマクロをみてみます。

If ActiveCell <> "." Then
MsgBox "そこには置けません。位置を決めて下さい。", , "Excel othello"
Exit Sub
End If

d = ActiveCell.Address(ReferenceStyle:=xlR1C1)
r = Val(Mid(d, 2, 1)): c = Val(Right(d, 1))
hanten = 0: ymiss = 0
Sheets(1).Unprotect
Range("A1:H8").Locked = False
Sheets(1).Protect

' migi hanntei（右反転）
x = r: y = c + 1
Do While y <= 8
If Cells(x, y) = "y" Then
　　　For j = c To y
　　　Cells(x, j) = "y"
　　　Next
　　　If y > c + 1 Then hanten = 1
　　　Exit Do
ElseIf Cells(x, y) = "." Then
　　　Exit Do
ElseIf Cells(x, y) = "c" Then
　　　y = y + 1
End If
Loop

'hidari（左反転）
x = r: y = c - 1
Do While y >= 1
If Cells(x, y) = "y" Then
　　　For j = c To y Step -1
　　　Cells(x, j) = "y"
　　　Next
　　　If y < c - 1 Then hanten = 1
　　　Exit Do
ElseIf Cells(x, y) = "." Then
　　　Exit Do
ElseIf Cells(x, y) = "c" Then
　　　y = y - 1
End If
Loop

上の例で、Ｆ４に自分の駒をおいた場合について説明します。
この場合Ｘ＝ｒ＝４，　ｃ＝５、ｙ＝４となります。

Ｄｏ　Ｗｈｉｌｅ　Ｙ>=1　　　Ｌｏｏｐ　は
（ａ）一番左（Ａ列）に駒を置いた場合に、すぐに左反転のルーチンを抜ける。一番左に置いたら、
　　左反転のしょりは必要ありませんので。
（ｂ）一番左（Ａ列）まで調べた場合。すなわち、左側は全て”ｃ”だった場合に左反転ルーチンを抜ける
という処理を行います。

以下のＩｆ文では　Ｃｅｌｌｓ（ｘ，ｙ）のセルが
（ａ）　”ｃ”ならｙ＝ｙ－１にする。　すなわち、もうひとつ左のセルのチェックに移行する
（ｂ）　”．”ならＤｏループを抜ける
（ｃ）　”ｙ”なら置いた駒（変数ｃに列のデータ入っている）から、最初に出会った左側にある自分の駒（変数ｙ
　　　に列のデータ入っている）の間の駒を反転する（”ｙ”にする）
という処理をします。

Ｆ４に置いた場合の処理を言葉で表すと
今、Ｆ４におきましたので、
Ｅ４の駒を調べます。Ｅ４は”ｃ”なので、ｙ＝ｙ－１　して
Ｄ４の駒を調べます。Ｄ４は自分の駒”ｙ”なので、
置いた駒Ｆ４と最初に出会った自分の駒Ｄ４の間の駒（Ｅ４）を”ｙ”に反転します。

というわけです。
同じような処理ルーチンを、あとは上、下、斜め４方向作成すれば、反転処理は完成です。
全方向やらねばならないので、なんか、結構面倒ですね。

オセロ完成にはあとは、コンピューターの思考ルーチンをどうするかです。
こっちの方が、プログラムとしては楽しい？

ＴｏｐＰａｇｅ > Visual BasIc＆Ｅｘｃｅｌ活用研究目次

	Ａ	Ｂ	Ｃ
１	５
２	％
３
４
５	７
６	％
７
８

	A	B	C	D	E	F	G	H
1	.	.	.	.	.	.	.	.
2	.	.	.	.	.	.	.	.
3	.	.	.	.	.	.	.	.
4	.	.	.	y	c	.	.	.
5	.	.	.	c	y	.	.	.
6	.	.	.	.	.	.	.	.
7	.	.	.	.	.	.	.	.
8	.	.	.	.	.	.	.	.

	Ａ	Ｂ	Ｃ
１	５
２	％
３
４
５	７
６	％
７
８

	A	B	C	D	E	F	G	H
1	.	.	.	.	.	.	.	.
2	.	.	.	.	.	.	.	.
3	.	.	.	.	.	.	.	.
4	.	.	.	y	c	.	.	.
5	.	.	.	c	y	.	.	.
6	.	.	.	.	.	.	.	.
7	.	.	.	.	.	.	.	.
8	.	.	.	.	.	.	.	.

	Ａ	Ｂ	Ｃ
１	５
２	％
３
４
５	７
６	％
７
８

	A	B	C	D	E	F	G	H
1	.	.	.	.	.	.	.	.
2	.	.	.	.	.	.	.	.
3	.	.	.	.	.	.	.	.
4	.	.	.	y	c	.	.	.
5	.	.	.	c	y	.	.	.
6	.	.	.	.	.	.	.	.
7	.	.	.	.	.	.	.	.
8	.	.	.	.	.	.	.	.