set的使用（代码无法运行）

jzzhmm425

A段代码和B段代码效果应该是一样的，B段代码是能运行的版本，只是嫌B段代码中下面的部分太繁琐，经过多方查找资料，将A段代码改成了B段代码，A段代码能运行，但是出来的结果似乎和乱码没什么区别！我不知道哪里出问题了，请各位帮我讲解讲解！感激不尽！（代码在附件中运行）

Dim a As Date, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer


a = "2013-3-10 00:00"


m = Year(dd)

n = Month(dd)

o = Day(dd)

p = Hour(dd)

q = Minute(dd)


另外A段代码中，SET如果换成LET就无法运行了，找不到是什么原因。我感觉A段代码运行的结果很乱有可能是因为SET的用法弄不懂，不知道是哪里出问题了。

1. 
   
2. Sub 代码A()
   
3. Dim Rng As Range
   
4. Dim Sh As Worksheet
   
5. 
   
6. For x = 3 To Worksheets.Count
   
7. With Sheets(x)
   
8. <FONT color=red>For Each Sh In Worksheets
   
9. Set Rng = Sh.Range("A:A").Find("2013年3月", , xlValues, 1)
   
10. If Not Rng Is Nothing Then
    
11. </FONT>.Rows(Rng.Row).Font.Color = vbBlack
    
12. .Rows(Rng.Row + 1 & ":" & Rng.Row + 9).EntireRow.Hidden = True
    
13. End If
    
14. Next
    
15. .Columns("B:C").EntireColumn.Hidden = True
    
16. End With
    
17. Next
    
18. End Sub
    
19. 
    

复制代码

1. Sub 代码B()
   
2. Dim Rng As Range
   
3. Dim a As Date, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer
   
4. 
   
5. a = "2013-3-10 00:00"
   
6. 
   
7. m = Year(dd)
   
8. n = Month(dd)
   
9. o = Day(dd)
   
10. p = Hour(dd)
    
11. q = Minute(dd)
    
12. 
    
13. For x = 3 To Sheets.Count
    
14. With Sheets(x)
    
15. <FONT color=red>For Each Rng In .Range("a:a")
    
16. If Rng = a Then
    
17. </FONT>.Rows(Rng.Row).Font.Color = vbBlack
    
18. .Rows(Rng.Row + 1 & ":" & Rng.Row + 9).EntireRow.Hidden = True
    
19. End If
    
20. Next
    
21. .Columns("B:C").EntireColumn.Hidden = True
    
22. End With
    
23. Next
    
24. End Sub
    

复制代码

hwc2ycy

SET是将对象引用赋给变量或属性的。

jzzhmm425

1. Sub 隐藏行和列和改变颜色()
   
2. Dim Rng As Range
   
3. Dim Sh As Worksheet
   
4. 
   
5.     For x = 3 To Worksheets.Count
   
6.         With Sheets(x).Range("A:A")
   
7.             For Each Sh In Worksheets
   
8.     Set Rng = .Find("2013年3月", , xlValues, 1)
   
9. 
   
10.                If Not Rng Is Nothing Then
    
11.             .Rows(Rng.Row).Font.Color = vbBlack
    
12.             .Rows(Rng.Row + 1 & ":" & Rng.Row + 9).EntireRow.Hidden = True
    
13.                 End If
    
14.             Next
    
15.             .Columns("B:C").EntireColumn.Hidden = True
    
16.         End With
    
17.     Next
    
18. End Sub
    
19. 
    

复制代码

将代码改成这样就行了，FIND前面的东西删掉就行了，这是怎么回事？？？？？？？？？？？？

hwc2ycy

看看参数说明，多测试两次。

fjmxwrs

set 是给对象赋值，且对象就是用set 赋值，没有给对象赋值，当然就出错了。

jzzhmm425

fjmxwrs 发表于 2013-4-17 19:04
set 是给对象赋值，且对象就是用set 赋值，没有给对象赋值，当然就出错了。

帅哥讲讲怎么给对象赋值呢