第一，转换汇率问题，下面是原始材料
怎样能实现自动转换呢？只需要学会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课程，如果有不懂的，可以看我前面发布的两个课程，也可以在下面评论我。
