我的第三堂VBA课程

第一，转换汇率问题，下面是原始材料

怎样能实现自动转换呢？只需要学会if...then...end if...函数就可以了

下面的最终效果：

第二个是if..end if...语句的扩展运用，新的if 语句，下面是原始材料，评分标准控件已经添加了，现在要计算B6单元格的值，以及B7的等级

代码如下：

演示效果：

第三是通过录制宏，来编写代码的方法。原始材料如下：

首先录制宏，开发工具---录制宏，数据--删除重复项，开发工具--停止录制宏

之后打开VBA界面，打开模块2

可以把Range("$A$1:$D$10")的范围直接改成Range("$A$1:$D$20")，那么之后我们在前20列插入重复数据之后都会被删除

演示效果如下：

图片发自App

第四种,录制宏,单元格插入公式

图片发自App

新建宏生成代码,把红色框框里面的代码复制到模块1就可以了

图片发自App

复制过来以后,增加for...if...语句，同时将range(A9)改成用CELlS来表示,同时赋值一个i,使之从1到6

图片发自App

最后保存代码,同时将控件属性选择"自动求和 "就可以了，点击按钮之后就会出现所有结果。

以上就是我的第三堂VBA课程，如果有不懂的，可以看我前面发布的两个课程，也可以在下面评论我。