(转)Excel编程概念之:【单元格和区域】二、在单元格区域中循环
来源:互联网 发布:网络呼叫中心 编辑:程序博客网 时间:2024/05/20 04:26
转自:http://hi.baidu.com/imecho/blog/item/0deec5ddb7e3df365882dd13.html
在单元格区域中循环
使用 Visual Basic 时,经常需要对某一单元格区域内的每个单元格运行同一段语句。为达到这一目的,可组合循环语句和一个或多个方法来标识每个单元格,一次针对一个单元格,并执行该操作。
在单元格区域中循环的一种方法是将 For...Next 循环语句与 Cells 属性配合使用。使用 Cells 属性时,可用循环计数器(或其他变量或表达式)来替代单元格索引编号。下例中,变量 counter 代替了行号。此过程将在单元格区域 C1:C20 中循环,将所有绝对值小于 0.01 的数字都设置为 0(零)。
Sub RoundToZero1()
For Counter = 1 To 20
Set curCell = Worksheets("Sheet1").Cells(Counter, 3)
If Abs(curCell.Value) < 0.01 Then curCell.Value = 0
Next Counter
End Sub
在 单元格区域中循环的另一种简便方法是使用 For Each...Next 循环语句和由 Range 属性指定的单元格集合。在每一次循环过程中,Visual Basic 都为下一个单元格自动设置一个对象变量。下述过程在单元格区域 A1:D10 中循环,将所有绝对值小于 0.01 的数字都设置为 0(零)。
Sub RoundToZero2()
For Each c In Worksheets("Sheet1").Range("A1:D10").Cells
If Abs(c.Value) < 0.01 Then c.Value = 0
Next
End Sub
如果不知道要循环的单元格区域的边界,可用 CurrentRegion 属性返回活动单元格周围的区域。例如,下述过程在工作表上运行时,将在活动单元格周围的区域内循环,将所有绝对值小于 0.01 的数字都设置为 0(零)。
Sub RoundToZero3()
For Each c In ActiveCell.CurrentRegion.Cells
If Abs(c.Value) < 0.01 Then c.Value = 0
Next
End Sub
- (转)Excel编程概念之:【单元格和区域】二、在单元格区域中循环
- VBA - Excel编程概念之:【单元格和区域】二、在单元格区域中循环
- (转)Excel编程概念之:【单元格和区域】一、如何引用单元格和区域
- (转)Excel编程概念之:【单元格和区域】三、选定和激活单元格
- (转)Excel编程概念之:【单元格和区域】五、处理活动单元格
- (转)Excel编程概念之:【单元格和区域】四、处理三维区域
- VBA - Excel编程概念之:【单元格和区域】一、如何引用单元格和区域
- VBA - Excel编程概念之:【单元格和区域】三、选定和激活单元格
- VBA - Excel编程概念之:【单元格和区域】五、处理活动单元格
- VBA - Excel编程概念之:【单元格和区域】四、处理三维区域
- Excel单元格和单元格区域的引用
- 在Excel中统计出指定区域的空单元格个数和非空单元格个数
- 在VBA代码中引用Excel工作表中单元格区域的方式小结
- 向EXCEL导出数据(通过定义单元格区域名称)
- VB.NET填充 Excel 多单元格区域
- Excel VBA以单元格区域做参数
- 基于.NET的Excel开发:单元格区域的操作(读取、赋值、边框和格式)
- 如何在合并单元格区域汇总数量
- 经典SQL语句
- Symbian OS 打包文件(.pkg)详解及问题总结
- Java Annotation注释语法
- C#如何为winform程序打包发布应用(图解教程)
- apache服务器让一个虚拟站点失效:a2dissite dPDF
- (转)Excel编程概念之:【单元格和区域】二、在单元格区域中循环
- 聊一聊引擎的开发
- oracle10g "数据源管理器"找不到应用程序,可能是程序没有正确安装"问题解决
- (转)Excel编程概念之:【单元格和区域】三、选定和激活单元格
- (转)Excel编程概念之:【单元格和区域】四、处理三维区域
- (转)Excel编程概念之:【单元格和区域】五、处理活动单元格
- 解决CakePHP页面显示中文乱码的问题
- hello csdn
- VC6.0下MFC的双缓存颜色显示问题