【VBA编程】15.WorkSheet对象常用属性

【Cells属性】

Cells属性用于返回一个Range对象，表示工作表中所有的单元格，包括已经使用的单元格和未使用的单元格。

【代码区域】

Sub 使用Cells属性()
    '声明变量
    Dim wk As Workbook
    Dim wt As Worksheet
    '赋值
    Set wk = Application.Workbooks()
    wk.Activate  '激活工作簿
    Set wt = wk.Worksheets() '选择工作簿
    With wt.Cells.Font
            .Bold = True
            .Italic = True
            .Size =
            .ColorIndex =
    End With
    MsgBox "设置完成", vbOKOnly, "使用Cells属性"
    Set wk = Nothing
    Set wt = Nothing
End Sub

【执行结果】

【Columns属性】

Columns用于返回一个Range对象，表示当前工作簿中指定区域的列。

【代码区域】

Sub 使用Columns属性()
    Dim wk As Workbook
    Dim wt As Worksheet
    Set wk = Application.Workbooks()
    wk.Activate
    Set wt = Worksheets()
    With wt.Columns().Font
            .Bold = True
            .Size =
            .ColorIndex =
    End With
     MsgBox "设置完成", vbOKOnly, "使用Columns属性"
    Set wk = Nothing
    Set wt = Nothing
End Sub

【执行结果】

【Next属性】

Next属性用于返回表示下一个工作表的WorkSheet对象，如果引用此属性的对象为一个区域，则属性会模拟“TAB”,返回下一个单元格，而不选中下一个单元格

【代码区域】

Sub next属性()
  Dim wk As Workbook
  Dim wt As Worksheet
  Set wk = Application.Workbooks()
  wk.Activate
  Set wt = wk.Worksheets()
  wt.Cells(, ).Next = "OLIVER"
End Sub

【执行结果】

【Previous属性】

Previous属性用于返回表示前一个工作表的Worksheet对象，如果使用此属性时，所使用的对象为区域对象，则此属性的作用将效仿“Shift+Table”快捷键，但此属性只是返回上一个单元格，不是选中。

【代码区域】

Sub Previous属性()
Dim wk As Workbook
  Dim wt As Worksheet
  Set wk = Application.Workbooks()
  wk.Activate
  Set wt = wk.Worksheets()
  wt.Cells(, ).Previous = "OLIVER"
End Sub

【执行结果】

【Range属性】

Range返回一个Range对象，表示一个单元格或者一个单元格区域。

【代码区域】

Sub Range属性()
Dim wk As Workbook
  Dim wt As Worksheet
  Set wk = Application.Workbooks()
  wk.Activate
  Set wt = wk.Worksheets()
  wt.Range(Cells(, ), Cells(, )).Select
  With Selection.Interior
    .Color =
  End With
End Sub

【执行结果】

更多Range资料：http://www.cnblogs.com/OliverQin/p/6198441.html

【Rows属性】

Rows属性是一个只读属性，用于返回一个Range对象，表示制定工作表中的所有行。

【代码区域】

Sub row应用()
    For Each rw In Rows("1:4") '第一行到第四行
    If rw.Row Mod  =  Then
    rw.RowHeight =
    rw.Value = "数据"
    End If
    Next
End Sub

【执行结果】