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

[0670 ままかり ◆MAMAKARIk80t 2012/04/16(月) 23:23:06.51 ID:DjIp7PL00]

Sub paint()
Dim SelectCell As String
Dim var As String

If var <> SelectCell then
SelectCell = Selection.Address
Range(SelectCell).Interior.Color = vbBlack
var = SelectCell
If end
End Sub

本当に腹が立つM$・・・