新手试练贴，诚邀各位新手参与，欢迎老手指导

sunshn

发起个面向新手的活动吧。
给定一段代码，在不考虑上下文环境的情况下，以行为单位编写原代码的等价实现方式。
首先是ccwan大虾的一段代码：

1. 
   
2. #0001  Private Sub Worksheet_Change(ByVal Target As Range)
   
3. #0002      If Target.Column <> 5 Or Target.Row < 2 Then Exit Sub
   
4. #0003      If Len(Target.Text) < 2 Then Exit Sub
   
5. #0004      Application.EnableEvents = False
   
6. #0005      Dim str As String, var As String, x As String, s As String
   
7. #0006      Dim rng, a%, n%, j%
   
8. #0007      var = Target.Text
   
9. #0008      rng = Range([a2], [b65536].End(3))
   
10. #0009      Do Until n = Len(var)
    
11. #0010          Do
    
12. #0011              n = n + 1
    
13. #0012              x = Mid$(var, n, 1)
    
14. #0013              a = Asc(x)
    
15. #0014              If a > 47 Then
    
16. #0015                  str = str & x
    
17. #0016                  Mid(var, n, 1) = ""
    
18. #0017              End If
    
19. #0018              If n = Len(var) Then x = "": Exit Do
    
20. #0019          Loop While Asc(x) > 47
    
21. #0020          If str <> "" Then
    
22. #0021              For j = 1 To UBound(rng)
    
23. #0022                  If rng(j, 1) = str Then str = rng(j, 2): Exit For
    
24. #0023              Next
    
25. #0024          End If
    
26. #0025          s = s & str & x
    
27. #0026          str = ""
    
28. #0027      Loop
    
29. #0028      Target.Offset(, 1) = Application.Evaluate(s)
    
30. #0029      Application.EnableEvents = True
    
31. #0030  End Sub
    

复制代码

sunshn

举个例子：
第六行

1. #0006      Dim rng, a%, n%, j%

复制代码

还可以写成：

1. #0006      Dim rng, a As Integer, n As Integer, j As Integer

复制代码

laoyebin

这只是个人习惯，无关新手老手

sunshn

第八行：

1. #0008      rng = Range([a2], [b65536].End(3))

复制代码

可以写成：

1. #0008      rng = Range("A2:B" & Range("b65536").End(xlUp).Row)

复制代码

sunshn

原帖由 laoyebin 于 2010-1-24 20:06 发表
这只是个人习惯，无关新手老手

呵呵，不是要探讨代码非要用什么格式写，而是探讨同一语句的多种写法，帮新手开拓思路，开阔眼界。

[ 本帖最后由 sunshn 于 2010-1-24 20:29 编辑 ]

laoyebin

原帖由 sunshn 于 2010-1-24 20:13 发表

呵呵，不是要探讨代码非要用什么格式写，而是探讨同一语句的多种写法，帮新手开拓思路。

写法不重要，关键是速度

sunshn

原帖由 laoyebin 于 2010-1-24 20:18 发表
写法不重要，关键是速度

对于新手而言，正确实现是关键，并不一定考虑速度和效率。

ah2005

楼主冒似新手？

sunshn

是地。希望和大家一起学习、提高。