请教守柔版主有关循环问题

xiangdhai

For....Next循环是按照步长值有规律循环的，如果其中一项无规律，则循环中断，有办法解决吗？如以下例子：

For i = 1 To 100

ActiveWindow.SelectedSheets.PrintOut Next i

如果 i 按照1、2、4、6、7、11、14....结果只能打印1、2后，循环中断，有办法让循环继续吗？详情见附件.

cjYo4b5t.rar (11.33 KB, 下载次数: 9)

2005-10-7 18:08 上传

点击文件名下载附件
请教守柔版主有关循环问题

守柔

请恕我眼拙。

1、2、4、6、7、11、14....我一时看不出什么规律，类似这样的循环，可以加入判断语句或者选择性分支结构语句，其中如IF ELSEIF END IF 或者SELECT CASE END SELECT，看情况，分支多时，提倡使用SELECT CASE 语句更好。

Sub Example() Dim i As Byte For i = 1 To 100 Select Case i Case 1, 2, 4, 6, 7, 11, 14 ActiveWindow.SelectedSheets.PrintOut End Select Next i End Sub

另，就你的附件而言，以EXCEL中的SHEET3为数据源，在WORD中以邮件合并的形式打印，编程都不用。有关邮件合并的贴子请搜索本版或者WORD的帮助文件。