小白求助exl 功能

Option Explicit
Sub abc()
　Dim p
　p = InputBox("输入坐标", "提示", "1,2,11,12")
　p = Split(p, ",")
　If UBound(p) <> 3 Then Exit Sub
　Cells(Val(p(0)), Val(p(1))).Resize(p(2) - _
　　p(0) + 1, p(3) - p(1) + 1).Interior.Color = vbGreen
End Sub