第一，轉(zhuǎn)換匯率問(wèn)題，下面是原始材料
怎樣能實(shí)現(xiàn)自動(dòng)轉(zhuǎn)換呢？只需要學(xué)會(huì)if...then...end if...函數(shù)就可以了
下面的最終效果：
第二個(gè)是if..end if...語(yǔ)句的擴(kuò)展運(yùn)用，新的if 語(yǔ)句，下面是原始材料，評(píng)分標(biāo)準(zhǔn)控件已經(jīng)添加了，現(xiàn)在要計(jì)算B6單元格的值，以及B7的等級(jí)
代碼如下：
演示效果：
第三是通過(guò)錄制宏，來(lái)編寫代碼的方法。原始材料如下：
首先錄制宏，開發(fā)工具---錄制宏，數(shù)據(jù)--刪除重復(fù)項(xiàng)，開發(fā)工具--停止錄制宏
之后打開VBA界面，打開模塊2
可以把Range("$A$1:$D$10")的范圍直接改成Range("$A$1:$D$20")，那么之后我們?cè)谇?0列插入重復(fù)數(shù)據(jù)之后都會(huì)被刪除
演示效果如下：
第四種,錄制宏,單元格插入公式
新建宏生成代碼,把紅色框框里面的代碼復(fù)制到模塊1就可以了
復(fù)制過(guò)來(lái)以后,增加for...if...語(yǔ)句，同時(shí)將range(A9)改成用CELlS來(lái)表示,同時(shí)賦值一個(gè)i,使之從1到6
最后保存代碼,同時(shí)將控件屬性選擇"自動(dòng)求和 "就可以了，點(diǎn)擊按鈕之后就會(huì)出現(xiàn)所有結(jié)果。
以上就是我的第三堂VBA課程，如果有不懂的，可以看我前面發(fā)布的兩個(gè)課程，也可以在下面評(píng)論我。
