Sub hoshi()    
    Range("B2").Value = "��"
    Range("B2").Interior.ColorIndex = 1
    Range("B2").Font.ColorIndex = 6
    Cells(3,4).Value = "��"
End Sub
Sub keshi()    
    Range("B2").Value = ""
    Range("B2").Interior.ColorIndex = 0
    Cells(3,4).Value = ""
End Sub