急！急！请高手瞧瞧看看，能否修改这个错误代码？

Sub aa()'以下红色语句为错误代码
Dim i As Integer
For i = 1 To 31
With Sheet1
If .Range("a" & i) = Date Then
Sheet1.[b1:b31].Formula = "=SUM(RC[1]:RC[8])"
If Not Intersect(.Range("b" & i), Sheet1.SpecialCells(xlCellTypeFormulas, 16)) Is Nothing Then
.Range ("b" & i), Clear
Run "aaw"
End If
End With
Next i
End Sub

附件

检测公式.rar(8.38 KB)

2011-8-10 20:56, 下载次数: 11

作者: 7016427   发布时间: 2011-08-10

作者: 白云2011   发布时间: 2011-08-10

作者: xj1016   发布时间: 2011-08-10

2楼正解

作者: m199   发布时间: 2011-08-10

你好！我测试发现一个问题，就是无故改变公式单元格的背景

附件

测试无故改变公式单元格背景.png(9.52 KB)

2011-8-10 22:25

作者: 7016427   发布时间: 2011-08-10

作者: 白云2011   发布时间: 2011-08-10

测试非常好！谢谢！！

作者: 7016427   发布时间: 2011-08-10