【news】ニュース速報運用情報991【ν】

[677 動け動けウゴウゴ２ちゃんねる 2012/04/16(月) 23:29:10.55 ID:x2q6svcaP]

>>670
Sub paint()
Dim cell As Range

For Each cell In Selection
cell.Interior.Color = vbBlack
Next
End Sub