《VBA编程及应用基础》第4章过程与函数.pptx

一个问题在实例/员工信息表.xlsx员工信息表中，根据身份证号填充各员工的性别？使用过程（P.75）本讲内容过程的概念（P.75）过程是一段完成特定功能的语句集合，以一个名字来标识，并用该名字来调用根据是否有返回值，可以将过程分成两类：Sub子过程（P.76）Sub子过程用于运行指定的操作，但不返回运行结果，其结构如下：Sub子过程过程的组成部分及其含义Sub子过程特别说明：Sub子过程添加Sub子过程实例/实例1.xlsm实例实例/实例1.xlsm1：编写一个名称为Example的Sub过程，该过程用于在当前活动工作表A1:A10区域的各单元格内填上“VBA”文本，且字号大小依次从10等差渐变到28Sub子过程Sub子过程练一练：编写一个名称为Practice的Sub过程，该过程用于在当前活动工作表A1:J1区域的各单元格内填上“SUB”文本，且随机设置各单元格为不同的背景填充色带参数的Sub子过程：Sub子过程Sub子过程调用Sub子过程Sub子过程Sub子过程实例/实例2.xlsm实例实例/实例2.xlsm2：编写一个名为Example的Sub过程，该过程用于输入一个文本，然后调用编写的另外一个名为MySub的子过程，MySub子过程用于在当前活动工作表A1:A10区域的各单元格内填上Example子过程输入的文本，并设置字号大小依次从10等差渐变到28Sub子过程练一练：编写一个名称为Practice的Sub过程，该过程用于随机生成一个[3,9]之间的整数x，然后调用编写的另外一个名为MySub的子过程， MySub子过程用于在当前活动工作表A1单元格起输出x行如图所示的星号三角形Function函数过程（P.82）Function函数过程用于完成指定的功能，并通过函数名返回运行结果，它的结构为：Function函数过程特别说明：Function函数过程添加Function函数过程Function函数过程调用Function函数过程自定义的Function函数过程使用像内置函数一样的调用方法，分两种情况：需得到函数的返回值不在意函数的返回值Function函数过程Function函数过程的使用在VBA程序代码中调用（P.84)实例/实例3.xlsm实例实例/实例3.xlsm3：自定义一个名为 MySum 的函数过程，其用于计算 1 到 n 各自然数的和，在当前活动工作表放置两个按钮，其中一个按钮在单击时先调用MySum函数求出1到100各数的和，并将此和加上100显示在A1单元格，另一个按钮在单击时先调用MySum函数求出1到10各数的和，并将此乘上100显示在B1单元格Function函数过程在VBA程序代码中调用练一练：自定义一个名为 MySum 的函数过程，其用于计算m到n之间各整数的和，在当前活动工作表放置两个按钮，其中一个按钮在单击时先输入两个正整数x和y，然后调用 MySum 函数求出x到y之间各数的和并显示在 A1 单元格，另一个按钮在单击时先输入一个正整数 b，然后随机生成一个[1,b] 之间的整数 a，最后调用 MySum 函数求出 a到 b 之间各数的和并显示在 B1 单元格Function函数过程在Excel工作表的公式中调用（P.85）若自定义函数是用Public修饰的公用函数，则在Excel的“插入函数”对话框中能找到此函数Function函数过程Function函数过程在Excel工作表的公式中调用实例/员工信息表.xlsx实例实例/员工信息表.xlsx4：在员工信息表中，自定义一个函数 Gender，该函数用于判断某身份证持有人的性别，然后在 Sheet1 的 D 列调用此函数根据身份证号填充各员工的性别？Function函数过程在Excel工作表的公式中调用练一练：新建一个工作簿，在Sheet1工作表的A列输入15个年份，分别从2000年到2014年。自定义一个函数 IsLeap，该函数用于判断某个年份是否为闰年，是则返回True，否则返回False，然后在Sheet1的B列调用此函数判断A列各年份是否为闰年月销售额奖金率月销售额奖金率=30004%15001~3000012%3000~80006%30001~5000016%8001~150009%5000020%Function函数过程在Excel工作表的公式中调用练一练：某企业的年终奖金按销售业绩来发放，标准奖金率见下表，但为了激励员工的忠诚，实际计算时，奖金率还要加上工龄一半的百分数，试自定义一个函数Reward，然后在“实例/员工奖金.xlsm员工奖金”工作簿Sheet1工作表的“奖金”列中调用此函数计算各员工的奖金Good-bye