vba條件語句:vba多個條件語句[朗讀]

最簡單的來兩句,不明白請追問~~~for的用法是這樣的:fori=1ton語句nexti這樣的功能是,使裡面的語句運行n次,每次i的值都不同,分別是1~n,用來完成固定次數的重複.if的用法是這樣的:if條件then.語句1.else語句2endif這樣的功能是判斷條件是否滿足,如果滿足就執行語句1,否則執行語句2以上例子中的語句、語句1、語句2都可以是一個或者多個語句,往往是一段。

1.函數中的if語句=if(條件,符合條件結果,不符合條件結果).2.vba中也有一個同樣的函數,為了跟函數的if區分,vba中的名稱為iif,使用方法與函數完全一致,iif(條件,符合條件結果,不符合條件結果).3.vba中另外一種if表達方式更為常用,格式為if條件then執行結果或者if條件then結果一結果二elseif條件結果endif4.vba中的if語句常用來與for..next循環搭配使用,亦可用dowhileloop語句代替。

最可能的原因是,因為百變量j的值不合適,比度如j=0或j=1,就會造成如下對象引用的問出錯:cells(j,3)、cells(j-1,3)、cells(j-1,6)也許把這句forj=ito1step-1改為:答forj=ito2step-1就可以解決了.因為不了解你的具體需求,僅從內問題中幾句來推斷,拋磚引玉而已.容goodluck。

dim數量總和,金額總和獲取最大行數=sheets(＂sheet1＂).cells(65536,1).end(xlup).rowfori=2to獲取最大行數'第一行為標題行ifcells(i,1)=＂本月合計＂then數量總和=數量總和+cells(i,2)金額總和=金額總和+cells(i,3)endifnextmsgbox＂數量總和為＂&數量總和&＂|＂&＂金額總和為＂&金額總和。

subtest()activeworkbook.saveas＂c:\test\1.xls＂application.addins.add＂c:\test\1.xls＂endsub我沒有驗證,你自己試試吧.其實直接點菜單的工具,加載項,把那個有宏的文件加載就可以了。