【ぷよクエ】EXCELでTP管理

こんな感じで管理してます↓。

週一で総TP量を記録、マクロを動かすとTP貢献横ばいの期間ごとに青色、赤色で配色、セル５つ分(=一ヶ月)貢献横ばいだと文字が赤色になるようにしています。
空セルかどうかで、縦向きの処理の判定を行っているので、ギルドメンバーが増えても安心です。反面、横向きの処理も空セルかどうかで行っているので、「-」などで意図的に埋める必要があるのは要修正項目です。
１行目の日付の欄で横方向の処理数を管理すればいいと思います。そこまで不便じゃないので、不便になってきたら書き直します(笑)

そんな感じで適当に組んだマクロがこちら↓

Sub stable()
Dim i, j, tp, lp1, lp2, color, stn As Integer
i = 2

Do
j = 3
color = 38

tp = Cells(i, j).Value
Cells(i, j).Interior.ColorIndex = color
stn = 1

j = j + 1

Do
If Cells(i, j).Value = tp Then
stn = stn + 1

If stn > 4 Then
Cells(i, j).Font.ColorIndex = 3
End If
Else
tp = Cells(i, j).Value
stn = 1

If color = 38 Then
color = 34
Else
color = 38
End If
End If

Cells(i, j).Interior.ColorIndex = color

j = j + 1

If IsEmpty(Cells(i, j)) Then
lp1 = 0
Else
lp1 = 1
End If

Loop While lp1 = 1

i = i + 1

If IsEmpty(Cells(i, 1)) Then
lp2 = 0
Else
lp2 = 1
End If
Loop While lp2 = 1


End Sub