[已解决]这个VBA怎么后面的代码没运行？

lj2009jl

代码如下

1. Sub 颜色区分()
   
2. '
   
3. 
   
4. '
   
5. 
   
6. '这里假定要比较的两个工作表的名字分别为sheet1 sheet2
   
7.     hang = Application.InputBox("输入要比较的行数", Type:=1) '行数
   
8.     lie = Application.InputBox("输入要比较的列数", Type:=1) '列数
   
9.     Set o = Sheets("sheet1").Application.Cells(1, 1)
   
10.      o.Interior.ColorIndex = 3
    
11.      For i = 1 To hang
    
12.         For j = 1 To lie
    
13.         Set m = Sheets("sheet1").Application.Cells(i, j)
    
14.         Set n = Sheets("sheet2").Application.Cells(i, j)
    
15.         If m.Value <> n.Value Then
    
16.            m.Interior.ColorIndex = 3
    
17.            n.Interior.ColorIndex = 3
    
18.            End If
    
19.         Next j
    
20.         Next i
    
21.    
    
22. End Sub
    
23. 
    
24. 
    
25. 
    
26. 
    
27. 
    

复制代码

现象如附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-29 16:27

1. Sub 颜色区分()
   
2. '这里假定要比较的两个工作表的名字分别为sheet1 sheet2
   
3.     hang = Application.InputBox("输入要比较的行数", Type:=1) '行数
   
4.     lie = Application.InputBox("输入要比较的列数", Type:=1) '列数
   
5.     Set o = Sheets("sheet1").Application.Cells(1, 1)
   
6.      o.Interior.ColorIndex = 3
   
7.      For i = 1 To hang
   
8.         For j = 1 To lie
   
9.         Set m = Sheets("sheet1").Cells(i, j)
   
10.         Set n = Sheets("sheet2").Cells(i, j)
    
11.         If m.Value <> n.Value Then
    
12.            m.Interior.ColorIndex = 3
    
13.            n.Interior.ColorIndex = 3
    
14.            End If
    
15.         Next j
    
16.         Next i  
    
17. End Sub

复制代码

跳转到最佳答案楼层

EXCEL-YQ

无法直接帮你解答，不过你可以单步运行，查看每一步的变化情况，这样可以很好的找出问题的。

Dj_soo

F8单步执行一会就查出来了..

lj2009jl

Dj_soo 发表于 2011-9-29 15:36
F8单步执行一会就查出来了..

我知道是在循环那的问题，循环代码没运行，但不知道出的是什么问题，又不报错。。。
按了F8，一直按完，也没发现是怎么错的

mxg825

Set m = Sheets("sheet1").Application.Cells(i, j)

Set n = Sheets("sheet2").Application.Cells(i, j)

这句Application 不要试试！

mxg825

1. Sub 颜色区分()
   
2. '这里假定要比较的两个工作表的名字分别为sheet1 sheet2
   
3.     hang = Application.InputBox("输入要比较的行数", Type:=1) '行数
   
4.     lie = Application.InputBox("输入要比较的列数", Type:=1) '列数
   
5.     Set o = Sheets("sheet1").Application.Cells(1, 1)
   
6.      o.Interior.ColorIndex = 3
   
7.      For i = 1 To hang
   
8.         For j = 1 To lie
   
9.         Set m = Sheets("sheet1").Cells(i, j)
   
10.         Set n = Sheets("sheet2").Cells(i, j)
    
11.         If m.Value <> n.Value Then
    
12.            m.Interior.ColorIndex = 3
    
13.            n.Interior.ColorIndex = 3
    
14.            End If
    
15.         Next j
    
16.         Next i  
    
17. End Sub

复制代码

Dj_soo

application那儿是有点奇怪,不过你连附件都不传,懒得试啊

lj2009jl

回复 mxg825 的帖子

谢谢，成功了，
我那个application也是自己看资料复制的，没想到有问题

lj2009jl

回复 Dj_soo 的帖子

因为我这个代码不要求有特别的表啊，随便做一个不一样的表就可以了，所以就没上附件拉{:301:}