[已解决]代码修改！！求助

nancy66317

Sub 颜色()
Dim i As Long, j As Long, k As Long
Dim mycell As Range
Dim arr As Long
Set mycell = Application.InputBox(prompt:="选取单元格范围", Type:=8)
i = mycell.Cells.Count
j = mycell.Column
k = mycell.Row
Cells(j, k).Interior.Color = 15
End Sub
我想将选取区域的第一个单元格填充成红色，总不成功，请求帮助！！！

最佳答案

月排行榜 / 总排行榜

gdgzlyh

2011-7-19 18:43

最后一句改为
cells(k,j).interior.color=vbred

跳转到最佳答案楼层

gdgzlyh

最后一句改为
cells(k,j).interior.color=vbred

ls

gdgzlyh 发表于 2011-7-19 18:43
最后一句还为
cells(k,j).interior.color=vbred

试验成功，不错

nancy66317

谢谢！！！！！！！！1