[已解决]请教如何通过VBA获取活动单元格的颜色参数

ww0000

比如，光标点在红色的单元格，对话框就跳出“03”。光标点在绿色的单元格，对话框里的数就显示“04”。

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-27 13:19

右击工作表标签>查看代码>粘贴下面代码即可


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox ActiveCell.Interior.ColorIndex
End Sub

跳转到最佳答案楼层

Zipall

右击工作表标签>查看代码>粘贴下面代码即可


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox ActiveCell.Interior.ColorIndex
End Sub

wk0316

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Target = ActiveCell.Interior.ColorIndex
   
3. End Sub
   

复制代码

右击工作表标签>查看代码>粘贴上面代码

ww0000

谢谢上面的两位老师！！