module9

Option Explicit

Sub kuroban()
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "黒"
    Range("K3").Select
    ActiveCell.FormulaR1C1 = "の"
    Range("K4").Select
    ActiveCell.FormulaR1C1 = "番"
    Range("K5").Select
    ActiveCell.FormulaR1C1 = "で"
    Range("K6").Select
    ActiveCell.FormulaR1C1 = "す"
End Sub
Sub siroban()
Range("K2").Select
    ActiveCell.FormulaR1C1 = "白"
    Range("K3").Select
    ActiveCell.FormulaR1C1 = "の"
    Range("K4").Select
    ActiveCell.FormulaR1C1 = "番"
    Range("K5").Select
    ActiveCell.FormulaR1C1 = "で"
    Range("K6").Select
    ActiveCell.FormulaR1C1 = "す"
End Sub

Sub okiba(okiba As Integer)
Dim n As Integer, m As Integer
okiba = 0
For n = 2 To 9
For m = 2 To 9
If Sheet1.Cells(n, m).Interior.Color = RGB(0, 255, 0) Then
okiba = okiba + 1
End If
Next m
Next n
End Sub