(转)Excel编程概念之:【单元格和区域】二、在单元格区域中循环
2010-05-06 10:02
141 查看
转自: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
在单元格区域中循环
使用 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
相关文章推荐
- VBA - Excel编程概念之:【单元格和区域】二、在单元格区域中循环
- VBA - Excel编程概念之:【单元格和区域】五、处理活动单元格
- VBA - Excel编程概念之:【单元格和区域】三、选定和激活单元格
- (转)Excel编程概念之:【单元格和区域】一、如何引用单元格和区域
- (转)Excel编程概念之:【单元格和区域】三、选定和激活单元格
- VBA - Excel编程概念之:【单元格和区域】一、如何引用单元格和区域
- (转)Excel编程概念之:【单元格和区域】四、处理三维区域
- (转)Excel编程概念之:【单元格和区域】五、处理活动单元格
- VBA - Excel编程概念之:【单元格和区域】四、处理三维区域
- 在Excel中如何为单元格或单元格区域定义名称
- VC编程实现 excel插入一行单元格Insert
- 反选EXCEL数据区域已选定的单元格
- excel 填充选定区域的空白单元格并填充
- 反选EXCEL数据区域已选定的单元格
- c#并行编程--Parallel提供对并行循环和区域的支持
- 一个Excel里用的VBA,循环处理每个单元格,将分号分隔的内容倒过来
- EXCEL在VB中的编程概念全解
- phpexcel 不确定结束单元格的导出并循环
- excel内一键进行sql查询(使用方法 1.选择’需要进行sql查询区域 包括字段名 2 输入sql语句 3.选择输出数据的单元格)
- 反选EXCEL数据区域已选定的单元格