VBA常用技巧代码解析

lhmindson

谢谢楼主辛勤劳动，谢谢

fdd

这个帖子能够延续至今，充分说明版主的毅力与坚持不懈！向您致敬，yuanzhuping 版主！

纵火龙猫

神作啊~~~~~~帮忙解决大问题了， 终于学会使用excel VBA了。

向楼主致以二百万分的敬意！！！

[ 本帖最后由 纵火龙猫 于 2009-5-20 00:34 编辑 ]

joes2001

真的很感谢版主，为我们的学习提供了极大的便利！！

yuanzhuping

技巧153         调用工作表函数求和
       在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，代码如下所示。

1. #001  Sub rngSum()
   
2. #002      Dim rng As Range
   
3. #003      Dim d As Double
   
4. #004      Set rng = Range("A1:F7")
   
5. #005      d = Application.WorksheetFunction.Sum(rng)
   
6. #006      MsgBox rng.Address(0, 0) & "单元格的和为" & d
   
7. #007  End Sub

复制代码

代码解析：
       rngSum过程调用工作表Sum函数对工作表的单元格区域进行求和计算。
       在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFunction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器，在实际应用中可省略Application对象识别符。

Marcus

感谢了，我下载了

ZOUDONGRUI

学习了,谢谢!

ykx042907

袁版主：您好！
   辛苦了！不好意思，请问一下：本人在运行技巧152时，出现下面附件图片中的错误提示。是怎么回事呀？谢谢！

ykx042907

本人在03版中测试时，出现同样提示！

yuanzhuping

技巧154         查找最大、最小值
       在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表Max、Min函数可以快速地在工作表区域中查找最大、最小值，如下面的代码所示。

1. #001  Sub seeks()
   
2. #002      Dim rng As Range
   
3. #003      Dim myRng As Range
   
4. #004      Dim k1 As Integer, k2 As Integer
   
5. #005      Dim max As Double, min As Double
   
6. #006      Set myRng = Sheet1.Range("A1:F30")
   
7. #007      For Each rng In myRng
   
8. #008          If rng.Value = WorksheetFunction.max(myRng) Then
   
9. #009              rng.Interior.ColorIndex = 3
   
10. #010              k1 = k1 + 1
    
11. #011              max = rng.Value
    
12. #012          ElseIf rng.Value = WorksheetFunction.min(myRng) Then
    
13. #013              rng.Interior.ColorIndex = 5
    
14. #014              k2 = k2 + 1
    
15. #015              min = rng.Value
    
16. #016          Else
    
17. #017              rng.Interior.ColorIndex = 0
    
18. #018          End If
    
19. #019      Next
    
20. #020      MsgBox "最大值是:" & max & "共有 " & k1 & "个" _
    
21. #021          & Chr(13) & "最小值是:" & min & "共有 " & k2 & "个"
    
22. #022  End Sub

复制代码

代码解析：
       seeks过程在工作表单元格区域中查找最大、最小值，并将其所在的单元格底色分别设置为红色和蓝色。
       第2行到第5行代码声明变量类型。
       第6行代码使用关键字Set将单元格引用赋给变量myRng。
       第7行到第19行代码遍历单元格区域，使用工作表Max、Min函数判断单元格数值是否是所在区域的最大、最小值，如果是，将其所在的单元格底色设置为红色或蓝色，并保存其数值和数量。
       第20、21行代码使用消息框显示最大、最小值数值和数量。
       运行seeks过程后将工作表区域最大、最小值所在的单元格的底色设置为红色或蓝色并用消息框显示其数值和数量，如图所示。