《Excel使用技巧及高级应用》.pptVIP

三、函数的应用 3、在Excel中自定义函数 例3：去除几个最大和最小值后的平均值： Function pj(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) ma1 = 0:ma2 = 0: ma3 = 0 mi1 = 100: mi2 = 100: mi3 = 100: s = 0 Dim x(16) x(1) = x1: x(2) = x2: x(3) = x3: x(4) = x4: x(5) = x5: x(6) = x6: x(7) = x7: x(8) = x8 x(9) = x9:x(10) = x10:x(11) = x11:x(12) = x12:x(13) = x13:x(14) = x14:x(15) = x15 x(16) = x16 For i = 1 To 16 If x(i) ma1 Then ma1 = x(i): m = i Next i x(m) = x(1): x(1) = ma1 For i = 1 To 16 If x(i) mi1 Then mi1 = x(i): n = i Next i x(n) = x(16): x(16) = mi1 For i = 2 To 15 If x(i) ma2 Then ma2 = x(i): m = i Next i x(m) = x(2): x(2) = ma2 三、函数的应用 3、在Excel中自定义函数 For i = 2 To 15 If x(i) mi2 Then mi2 = x(i): n = i Next i x(n) = x(15): x(15) = mi2 For i = 3 To 14 If x(i) ma3 Then ma3 = x(i): m = i Next i x(m) = x(3): x(3) = ma3 For i = 3 To 14 If x(i) mi3 Then mi3 = x(i): n = i Next i x(n) = x(14): x(14) = mi3 For i = 4 To 13 s = s + x(i) Next i s = s / 10 If s = 0 Then pj = Else pj = s End Function 四、在Excel中编程 MicrosoftExcel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。 VBA是从流行的VisualBasic编程语言中派生出来的一种面向应用程序的语言，全称为Visual Basic Application，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）……，而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到VisualBasic中调试并运行，从而实现用VisualBasic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。 四、在Excel中编程 A、通过VisualBasic编辑器编写： 可以通过点击“工具→宏→VisualBasic编辑器”打开的编辑环境，点击“插入→模块”，系统将打开一个代码窗口，就可以在这个窗口编写程序了。 有了编程环境后，我们来开发 VBA之旅的第一个程序。在窗口中输入以下代码： Sub MyFirstVBAProgram() Dim strName As String Dim strHello As String strName = InputBox(请输入你的名字：) strHello = 你好，