>>696
(@´,,・ω・,,`@)?
paint() はどうやって呼ぶん(@´,,・ω・,,`@)?


シートのイベントハンドリング(@´,,・ω・,,`@)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if フラグ立ってたら
Target.Interior.Color = vbBlack
end if
End Sub