Question

EXCEL2016我要把某一个区域单元格每隔5秒变颜色VBA代码怎么写？

我要把某一个区域单元格（A1:I30）每隔秒变颜色VBA代码怎么写，颜色可以设置8到10种，一直循环，或者弄一个停止按钮

Answer 1

Sub MyMacro()
Dim dTime As Variant
dTime = Now + TimeValue("00:00:01") '这里设置间隔时间
Range("k1").Value = Range("k1").Value + 1 '单元格k1存放颜色序号
If Range("k1") > 10 Then Range("k1").Value = 3 '颜色在3~10之间循环
With Range("A1:I30") '颜色变化的区域
.Interior.ColorIndex = Range("k1").Value '颜色取K1单元格的值
Application.OnTime dTime, "Sheet1.MyMacro", , True '此处sheet1需要修改为对应的工作表名称
End With
End Sub以上代码放到工作表对象的代码中执行即可。具体意思看注释。

Answer 2

可以实现,要设置好相关颜色