```
Private Sub CommandButton1_Click()
Dim Pos As String Pos = Range("Q2").Text GetMaxHop (Pos)
End Sub
Function GetMaxHop(ByVal Pos As String) As Long
'セルにホップ数を記載しながらカウントしてます。 '=> 初めに対象領域の値を削除する。 Range("A1:P19").value = ""
'ホップ数カウント対象の色取得 Dim TargetColor As Long TargetColor = Range(Pos).Interior.Color
'次の検索位置格納のためのリスト Dim TmpPosList As New Collection Dim TmpPos(2) As Long TmpPos(0) = Range(Pos).row TmpPos(1) = Range(Pos).Column TmpPosList.Add (TmpPos)
Dim HopCount As Long HopCount = 0 Cells(TmpPos(0), TmpPos(1)).value = HopCount HopCount = GetHopCount(TargetColor, TmpPosList, HopCount + 1)
Debug.Print (HopCount) GetMaxHop = HopCount
End Function
Sub JudgeHopCount(ByVal TartetColor As Long, ByRef TmpPosList As Collection, HopCount As Long, ByVal PosRow As Long, ByVal PosColumn As Long)
Dim TmpColor As Long Dim TmpText As String TmpColor = Cells(PosRow, PosColumn).Interior.Color TmpValue = Cells(PosRow, PosColumn).value If TmpColor = TartetColor And TmpValue = "" Then Cells(PosRow, PosColumn).value = HopCount Dim TmpPos(1) As Long TmpPos(0) = PosRow TmpPos(1) = PosColumn TmpPosList.Add (TmpPos) End If
End Sub
Function GetHopCount(ByVal TargetColor As Long, ByRef TmpPosList As Collection, HopCount As Long) As Long
Dim TmpNextPosList As New Collection
' HopCount => 次のホップ数が格納されている。
' 隣接同一色のホップ数書き込み For Each Pos In TmpPosList Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) - 1, Pos(1) - 1) '左上 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) - 1, Pos(1)) '上 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) - 1, Pos(1) + 1) '右上 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0), Pos(1) - 1) '左 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0), Pos(1) + 1) '右 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) + 1, Pos(1) - 1) '左下 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) + 1, Pos(1)) '下 Call JudgeHopCount(TargetColor, TmpNextPosList, HopCount, Pos(0) + 1, Pos(1) + 1) '右下 Next
If TmpNextPosList.Count > 0 Then ' ホップ数書き込みが発生 => HopCount が現在のホップ数 GetHopCount = GetHopCount(TargetColor, TmpNextPosList, HopCount + 1) Else ' ホップ数書き込みが発生していない => 次のホップ数が HopCount のため、現在のホップ数は HopCount - 1 GetHopCount = HopCount - 1 End If
End Function
```