VBA編程及應(yīng)用基礎(chǔ)課件3 For EachNext 循環(huán)結(jié)構(gòu)

VBA程序控制結(jié)構(gòu)ForEach...Next循環(huán)語句本講內(nèi)容循環(huán)語句ForEach…Next復(fù)習(xí)For…Next語句功能：以指定的次數(shù)重復(fù)執(zhí)行循環(huán)體格式：

For變量

=初值

To終值

[Step步長]

語句塊

[ExitFor]

語句塊

Next[變量]變量又稱循環(huán)控制變量、計(jì)數(shù)器變量，初值為循環(huán)起始值，終值為循環(huán)的結(jié)束值步長為循環(huán)控制變量的每次改變?cè)隽浚笔?ExitFor為強(qiáng)制退出循環(huán)語句循環(huán)體復(fù)習(xí)編程。單擊“隨機(jī)數(shù)”按鈕，產(chǎn)生10個(gè)兩位隨機(jī)正整數(shù)，并寫入A1:A10區(qū)域單元格；單擊“標(biāo)記偶數(shù)”按鈕，將A1:A10區(qū)域中偶數(shù)所在的單元格設(shè)置為黃色底紋、紅色字體新問題編程。單擊“隨機(jī)數(shù)”按鈕，產(chǎn)生30個(gè)兩位隨機(jī)正整數(shù)，并寫入A1:C10區(qū)域單元格；單擊“標(biāo)記偶數(shù)”按鈕，將A1:C10區(qū)域中偶數(shù)所在的單元格設(shè)置為黃色底紋、紅色字體ForEach…Next語句ForEach…Next語句用于針對(duì)一個(gè)數(shù)組或一個(gè)集合中的每一個(gè)元素重復(fù)執(zhí)行一組代碼。語法格式如下：ForEach<元素>In<集合>[代碼段][ExitFor]Next[元素]元素是用來遍歷集合中所有元素的變量ForEach...Next語句在對(duì)集合進(jìn)行循環(huán)時(shí)，使用ForEach循環(huán)要比For循環(huán)快1/3以上，因此，盡量對(duì)集合對(duì)象使用ForEach循環(huán)對(duì)于數(shù)組，F(xiàn)orEach循環(huán)的速度優(yōu)勢(shì)不大，不過還是可以快10%左右ForEach…Next語句例：在指定的A1:C15區(qū)域中依次在每個(gè)單元格中插入一個(gè)[10,99]之間的隨機(jī)整數(shù)SubSample()DimvCellAsRangeWorksheets("Sheet1").ActivateRandomizeForEachvCellInRange("A1:C15").CellsvCell.Value=Int(Rnd()*(99-10+1))+10NextvCellEndSubActivate是Worksheet對(duì)象的一個(gè)方法，使指定工作表成為活動(dòng)工作表vCell為存儲(chǔ)Range(“A1:C15”)集合中每個(gè)元素的變量，即每個(gè)單元格ForEach…Next語句實(shí)踐1：使用ForEach…Next語句實(shí)現(xiàn)“新問題”的需求？ForEach…Next語句Range.Offset

屬性

P.120返回Range對(duì)象，它代表距離指定區(qū)域一定偏移量的區(qū)域語法：Range對(duì)象.Offset(RowOffset,ColumnOffset)示例：

Range("A1").Offset(3,3).Activate，此示例激活A(yù)1

單元格向右偏移三列、向下偏移三行處的單元格，即

D4

單元格ForEach…Next語句實(shí)例1：在A1:A10區(qū)域中產(chǎn)生10個(gè)[10,99]之間的隨機(jī)整數(shù)，然后判斷它們的奇偶性，并在B1:B10各單元格中分別填寫判斷結(jié)果，如下圖所示ForEach…Next語句實(shí)踐2某商場(chǎng)約定其某款產(chǎn)品的銷售單價(jià)（原價(jià)為100元）根據(jù)不同的購買數(shù)量有不同的折扣（如下表所示），試編寫一個(gè)VBA過程，計(jì)算產(chǎn)品銷售單價(jià)工作簿中該產(chǎn)品各銷售數(shù)量情況下的折扣過的銷售單價(jià)購買數(shù)量Q折扣Q<50095%500≤Q<60090%600≤Q<100080%1000≤Q<500070