求助这个VBA怎么编

№起☆嚸丶

打开自测题.xlsm,使用循环语句编写一个VBA子过程PriceAnalysis

a)   将“可以接受比例”大于30%的那一行数据字体颜色变成红色

b)   将“不可接受比例“大于80%的那一行数据底色变成黄色

c)   过程能够自动判断表格结束，以便表格记录增加不影响过程的执行

   PriceAnalysis的运行效果见下图 快速测试8.rar (10.95 KB, 下载次数: 8)

2013-1-14 09:13 上传

点击文件名下载附件

求各位大神帮忙

840205910

Sub 判断()
For i = 2 To Cells(65536, 1).End(3).Row
If Cells(i, 2) > 0.3 Then Cells(i, 1).Resize(1, 4).Font.ColorIndex = 3
If Cells(i, 4) > 0.8 Then Cells(i, 1).Resize(1, 4).Interior.ColorIndex = 6
Next
End Sub

840205910

快速测试8.zip (14.11 KB, 下载次数: 10)

2013-1-14 09:34 上传

点击文件名下载附件

№起☆嚸丶

840205910 发表于 2013-1-14 09:33
Sub 判断()
For i = 2 To Cells(65536, 1).End(3).Row
If Cells(i, 2) > 0.3 Then Cells(i, 1).Resize(1, ...

问下65536是什么意思