VBA程序控制結構ForEach...Next循環語句本講內容循環語句ForEach…Next復習For…Next語句功能：以指定的次數重復執行循環體格式：

For變量

=初值

To終值

[Step步長]

語句塊

[ExitFor]

語句塊

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

屬性

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

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

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

D4

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