讀古今文學網 > 別怕,ExcelVBA其實很簡單 > 練習小課堂 >

練習小課堂

(1)根據代碼說明,把表3-12中的程序補充完整,讓程序運行後,能把100以內的正奇數按1,3,5,7……的順序寫進A列的單元格裡。

表3-12

(2)你還能用同樣的方法找出100以內能被3整除的數,並按順序寫入A列單元格嗎?試一試。

參考答案

(1)

(2)

3.7.4 Do While 語句

如果使用Do While語句來解決3.7.3小節中為職工評定星級的問題,可以把第一條記錄作為起點,依次判斷H列的單元格是否為空。

如果不為空,則執行Select Case語句進行星級評定,直到單元格內容為空退出循環。

還可以在結尾處判斷循環條件,語句為:

Do While循環語句是當邏輯表達式的值為False時退出循環,但結尾判斷式的語句是在執行一次循環體後再判斷循環條件,因此,當循環條件一開始就為False時,比開頭判斷式要多執行一次循環體,其他時候執行次數相同。