[已解决]求大神帮忙解决自动刷新

我现在写一个循环计算的函数，但是不能自动刷新，请大神帮忙修改下函数，谢谢

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-11 15:10

宏看着很奇怪，不过也不存在不能循环的问题哇？

1. Sub chengxu()
   
2. Dim a&
   
3. For a = 1 To 20
   
4. 
   
5. If Cells(1 + a, 1) / Cells(a, 1) > 2 Then
   
6. 
   
7.     Cells(1 + a, 1).Interior.ColorIndex = 24
   
8. Else
   
9.     Cells(1 + a, 1).Interior.ColorIndex = 2
   
10. End If
    
11. 
    
12. Next a
    
13. 
    
14. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim a
   
3. For a = 1 To 20 Step 1
   
4. If (Cells(1 + a, 1) / Cells(a, 1) > 2) Then Cells(1 + a, 1).Interior.ColorIndex = 24 Else Cells(1 + a, 1).Interior.ColorIndex = 2
   
5. Next a
   
6. End Sub

复制代码

baksy

条件格式更方便；
选择区域 A2:A20  -- 条件格式 -- 新建规则 -- 用公式确定设置格式的单元格 -- 复制公式 “=(A2/A1>2)” -- 设置颜色 -- 确定

这儿有肥猫

宏看着很奇怪，不过也不存在不能循环的问题哇？

1. Sub chengxu()
   
2. Dim a&
   
3. For a = 1 To 20
   
4. 
   
5. If Cells(1 + a, 1) / Cells(a, 1) > 2 Then
   
6. 
   
7.     Cells(1 + a, 1).Interior.ColorIndex = 24
   
8. Else
   
9.     Cells(1 + a, 1).Interior.ColorIndex = 2
   
10. End If
    
11. 
    
12. Next a
    
13. 
    
14. End Sub

复制代码

baksy 发表于 2014-9-11 15:08
条件格式更方便；
选择区域 A2:A20  -- 条件格式 -- 新建规则 -- 用公式确定设置格式的单元格 -- 复制公式 ...

感谢大大，真给力～～