Cells 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Cells 属性

发布于 2019-08-07 字数 3115 浏览 901 评论 0

全部显示

Cells 属性

应用于 Application 对象的 Cells 属性。

返回一个 Range 对象,该对象代表活动工作表中的所有单元格。如果活动文档不是工作表,则本属性无效。只读。

expression.Cells

expression 必需。该表达式返回一个 Application 对象。

应用于 Range 对象的 Cells 属性。

返回一个 Range 对象,该对象代表指定单元格区域中的单元格。只读。

expression.Cells

expression 必需。该表达式返回一个 Range 对象。

应用于 WorkSheet 对象的 Cells 属性。

返回一个 Range 对象,该对象代表工作表(不仅仅是当前使用的单元格)中的所有单元格。只读。

expression.Cells

expression 必需。该表达式返回一个 Worksheet 对象。

说明

因为 Item 属性是 Range 对象的默认属性,所以可在 Cells 关键字后直接指定行号和列标。有关详细信息,请参阅 Item 属性及本帮助主题的示例。

使用本属性时,如果不指定对象识别符,则本属性将返回代表活动工作表中所有单元格的 Range 对象。

示例

本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

本示例清除 Sheet1 上第一个单元格的公式。

Worksheets("Sheet1").Cells(1).ClearContents

本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。

With Worksheets("Sheet1").Cells.Font
 .Name = "Arial"
 .Size = 8
End With

本示例在 Sheet1 上的单元格区域 A1:J4 中循环,将其中小于 0.001 的值替换为 0(零)。

For rwIndex = 1 to 4
 For colIndex = 1 to 10
 With Worksheets("Sheet1").Cells(rwIndex, colIndex)
 If .Value < .001 Then .Value = 0
 End With
 Next colIndex
Next rwIndex

本示例将 Sheet1 上单元格区域 A1: C5 的字体样式设置为斜体。

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

本示例搜索列“myRange”中的数据。如果发现某单元格的值与上面的一个单元格的值相等,则本示例将显示这个包含重复数据的单元格的地址。

Set r = Range("myRange")
For n = 1 To r.Rows.Count
 If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
 MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
 End If
Next n

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!