黒マス設定ボタンのマクロ
Sub KANKURO2025館黒マス設定()
XXXX = ActiveSheet.Name

For I = 2 To 21
　 For J = 2 To 26
　　 If Sheets(XXXX).Cells(I, J) = "0" Then

　　　　 Range(Sheets(XXXX).Cells(I, J), Sheets(XXXX).Cells(I, J)).Select

　　　　　 With Selection.Interior
　　　　　　 .Pattern = xlSolid
　　　　　　 .PatternColorIndex = xlAutomatic
　　　　　　 .ThemeColor = xlThemeColorLight1
　　　　　　 .TintAndShade = 0
　　　　　　 .PatternTintAndShade = 0
　　　　　 End With

　　　 End If

　 Next J
Next I

End Sub

図１

図２

図３

図４

例題は難問漢字館VOL43Q24（解答発表済み）を転載