前回は盤面にバブルを配置するところまでを説明しました。
エクセル de バブルブレーカー(Excel de Bubble Breaker)のダウンロードはこちらから
　今回は盤面のバブルを選択した時に背景の色を変更するプログラムを作ります。
　まず今回付け加えるコードを書きそれを説明していきます。
　赤文字が今回加えたコードです。

　１行目　　　Option Explicit
　２行目
　３行目　　　Public sht設定シート As Worksheet
　４行目　　　Public sht盤面シート As Worksheet
　５行目　　　Public rng盤面 As Range
　６行目
　７行目　　　Private rng開始位置 As Range
　８行目　　　Private str開始位置 As String
　９行目　　　Private int盤面縦 As Integer
　１０行目　　Private int盤面横 As Integer
　１１行目　　Private int開始位置縦 As Integer
　１２行目　　Private int開始位置横 As Integer
　１３行目　　Private rngバブル色範囲 As Range
　１４行目　　Private lngバブル色(1 To 5) As Long
　１５行目　　Private lng通常背景色 As Long
　１６行目　　Private lng選択背景色 As Long
　１７行目
　１８行目　　Private Type typPlayField
　１９行目　　　　lngBackColor As Long
　２０行目　　　　lngBubbleColor As Long
　２１行目　　End Type
　２２行目
　２３行目　　Private arrPlayField(1 To 30, 1 To 200) As typPlayField　　　　　'３０は上限値。２００は横。自由に設定すればよい 　

■前回のコード■
　Public Sub 盤面初期化()
　　　　　↓↓（省略）
　　With rng盤面
　　　　　↓↓（省略）
　　　With .Borders(xlEdgeRight)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlMedium
　　　　.Color = RGB(0, 0, 0)
　　　End With
　　　.Value = "●"
　　　.Interior.Color = lng通常背景色
　End With
　'ランダムに色をつける
　　With rng盤面
　　　For i = 1 To int盤面縦
　　　　For j = 1 To int盤面横
　　　　　.Cells(i, j).Font.Color = lngバブル色(Int(Rnd() * 5) + 1)
　　　　Next j
　　　Next i
　　End With
　End Sub

■今回のコード■
　　　　　↓↓（省略）
　　　　With rng盤面
　　　　　↓↓（省略）
　　　　　　With .Borders(xlEdgeRight)
　　　　　　　.LineStyle = xlContinuous
　　　　　　　.Weight = xlMedium
　　　　　　　.Color = RGB(0, 0, 0)
　　　　　　End With
　　　　　　.Value = "●"
１行目　　　For i = 1 To int盤面縦
２行目　　　　For j = 1 To int盤面横
３行目　　　　　arrPlayField(i, j).lngBackColor = lng通常背景色　　 '背景色を設定する
４行目　　　　　.Cells(i, j).Interior.Color = arrPlayField(i, j).lngBackColor
５行目　　　　　arrPlayField(i, j).lngBubbleColor = lngバブル色(Int(Rnd() * 5) + 1)
６行目　　　　　.Cells(i, j).Font.Color = arrPlayField(i, j).lngBubbleColor
７行目　　　　Next j
８行目　　　Next i
　　　　　End With
　　　　End Sub

　１行目　Public Function checkBreak(ByRef Target As Range) As Boolean
　２行目　　　Dim intV As Integer
　３行目　　　Dim intH As Integer
　４行目
　５行目　　　intV = Target.Row - int開始位置縦 + 1
　６行目　　　intH = Target.Column - int開始位置横 + 1
　７行目　　　checkBreak = checkBreakSub(intV, intH)
　８行目
　９行目　End Function
　１行目 今回の最初に書いた「chekBreak」プロシージャの呼び出しです。
　２行目～３行目 プロシージャ内で使う変数の宣言です。
　５行目 intVに盤面内での縦の位置を代入しています。
　　　「Target.Row」は選択したセルの縦の位置です。「int開始位置縦」は盤面の開始位置でしたね。
　　　最後の＋１は一番上の行を１にする為です。もし「Target.Row - int開始位置縦」だけだと
　　　一番上の列が選択されると「intVは０になってしまいます。
　　　０ではわかりにくいですし、今回は１になるようにプログラムしてきているので、＋１します。
　６行目 同様に盤面内での横の位置を「intH」に代入しています。
　７行目 checkBreakSubをintVとintHを引数として呼び出しています。

　１行目 Functionプロシージャの宣言
　６行目 選択されたセルのバブルの色の値を「lngCurrentColoｒ」に代入しています。
　 　８行目～９行目 選択したセルの縦（ｉｎｔＶ）から１引いた数をｉ に代入
　　　選択したセルの横（ｉｎｔＨ）をｊ に代入。つまり（i, j）は選択したセルの一つ上のセルを表します。
　１０行目 LBound()関数は配列の最小値を求めます。第二引数の１は次元を表します。
　　　つまり１０行目の意味はi が選択したセル一つ上のセルの縦が盤面の一番上の行以内であれば、となります。
　１１行目 選択されたセルのバブルの色が一つ上のセルのバブルの色と同じならば、という意味です。
　１２行目 引数lngCurrentColor,intV,intHでchangeBackColorプロシージャを呼び出しています。
　１６行目～２２行目
　　　８行目～１４行目までとほぼ同じです。
　　　横「intH」から１を引いて一つ左のセルを見ています。
　　　Ｌbound()関数の第二引数は２で二次元目をさします。
　　　つまり盤面のj が一番左の列以内であれば、となります。
　２４行目～３０行目
　　　縦「intＶ」に１を足して一つ下のセルを見ています。
　　　UBound()関数はLBound()とは逆に最大値を求めます。
　　　つまり盤面のi が一番下の行以内であれば、となります。
　３２行目～３９行目
　　　横「intH」に１を足して一つ右のセルを見ています。
　このcheckBreakSubプロシージャの役割は？
　　　選択したセルの上下左右に同じ色のバブルがあるかどうかを判定しています。
　　　あればchangeBackColorを呼び出す、なければそのまま終了です。

　１行目　　Private Function changeBackColor(lngCurrentColor As Long, intI As Integer, intJ As Integer)
　２行目　　　Dim i As Integer
　３行目　　　Dim j As Integer
　４行目
　５行目　　　arrPlayField(intI, intJ).lngBackColor = lng選択背景色
　６行目　　　rng盤面(intI, intJ).Interior.Color = lng選択背景色
　７行目
　８行目　　　i = intI - 1
　９行目　　　j = intJ
　１０行目　　If i >= LBound(arrPlayField, 1) Then
　１１行目　　　If arrPlayField(i, j).lngBackColor <> lng選択背景色 Then
　１２行目　　　　If arrPlayField(i, j).lngBubbleColor = lngCurrentColor Then
　１３行目　　　　　Call changeBackColor(lngCurrentColor, i, j)
　１４行目　　　　End If
　１５行目　　　End If
　１６行目　　End If
　１７行目
　１８行目　　i = intI
　１９行目　　j = intJ - 1
　２０行目　　If j >= LBound(arrPlayField, 2) Then
　２１行目　　　If arrPlayField(i, j).lngBackColor <> lng選択背景色 Then
　２２行目　　　　If arrPlayField(i, j).lngBubbleColor = lngCurrentColor Then
　２３行目　　　　　Call changeBackColor(lngCurrentColor, i, j)
　２４行目　　　　End If
　２５行目　　　End If
　２６行目　　End If
　２７行目
　２８行目　　i = intI + 1
　２９行目　　j = intJ
　３０行目　　If i <= UBound(arrPlayField, 1) Then
　３１行目　　　If arrPlayField(i, j).lngBackColor <> lng選択背景色 Then
　３２行目　　　　If arrPlayField(i, j).lngBubbleColor = lngCurrentColor Then
　３３行目　　　　　Call changeBackColor(lngCurrentColor, i, j)
　３４行目　　　　End If
　３５行目　　　End If
　３６行目　　End If
　３７行目
　３８行目　　i = intI
　３９行目　　j = intJ + 1
　４０行目　　If j <= UBound(arrPlayField, 2) Then
　４１行目　　　If arrPlayField(i, j).lngBackColor <> lng選択背景色 Then
　４２行目　　　　If arrPlayField(i, j).lngBubbleColor = lngCurrentColor Then
　４３行目　　　　　Call changeBackColor(lngCurrentColor, i, j)
　４４行目　　　　End If
　４５行目　　　End If
　４６行目　　End If
　４７行目　End Function

　１行目 Functionプロシージャの宣言です。
　２行目～３行目 このプロシージャで使用する変数の宣言です。
　５行目 「arrPlayField(intI, intJ).lngBackColor」に選択時の背景色を代入しています。
　６行目 選択したセルの背景色を選択背景色にしています。
　８行目～１０行目
　checkBreakSubプロシージャの8行目から１０行目の説明参照
　１１行目 選択したセルの背景色と一つ上の背景色が同じならば、If文以下を実行する
　１２行目 選択したセルのバブルの色と一つ上のバブルの色が同じならは、If文以下を実行する
　１３行目 changeBackColor、引数(lngCurrentColor,i,j)を呼び出す。
　　　あれれ？？確か今はchangeBackColorプロシージャの中のはず！！そうです。これが再帰呼び出しです。
　　　プロシージャの中でそのプロシージャ自身を呼び出すことができます。
　　　今回のように同じような処理が何度も続く場合は非常に便利ですが、処理が複雑になるので使わない方がいいこともあります。
　１３行目の場合だと選択したセルと一つ上のセルの背景色が異なりバブルの色の値が同じならば
　処理がchangeBackColorプロシージャの最初に戻ります。
　５行目で一つ上のセルの色の値を選択背景色にし６行目でセルの選択背景色を変更します。
　１８行目～２６行目は左を２８行目～３６行目は下を38行目～４６行目は右をそれぞれ見に行き
　再帰処理が呼び出される条件を満たしていれば先頭にもどり５行目から６行目でセルの背景を変更します。

　どうでしょう？少し長くなりましたが理解できたでしょうか？
　わからなければバブルの色を全部同じ色や二色位にして、デバッグをしながら見てみると分かりやすいでしょう。
　次回は、配列を使っていないバージョンのソースとなぜ配列を使うのかを簡単に説明します。

解説で利用したエクセルファイルのダウンロード