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

【Cells属性】

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

【代码区域】

Sub 使用Cells属性()
    '声明变量
    Dim wk As Workbook
    Dim wt As Worksheet
    '赋值
    Set wk = Application.Workbooks(1)
    wk.Activate  '激活工作簿
    Set wt = wk.Worksheets(1) '选择工作簿
    With wt.Cells.Font
            .Bold = True
            .Italic = True
            .Size = 12
            .ColorIndex = 25
    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(1)
    wk.Activate
    Set wt = Worksheets(1)
    With wt.Columns(1).Font
            .Bold = True
            .Size = 15
            .ColorIndex = 13
    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(1)
  wk.Activate
  Set wt = wk.Worksheets(1)
  wt.Cells(2, 2).Next = "OLIVER"
End Sub

【执行结果】

【Previous属性】

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

 【代码区域】

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

【执行结果】

 

【Range属性】

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

【代码区域】

Sub Range属性()
Dim wk As Workbook
  Dim wt As Worksheet
  Set wk = Application.Workbooks(1)
  wk.Activate
  Set wt = wk.Worksheets(1)
  wt.Range(Cells(1, 1), Cells(5, 3)).Select
  With Selection.Interior
    .Color = 65535
  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 2 = 0 Then
    rw.RowHeight = 12
    rw.Value = "数据"
    End If
    Next
End Sub

【执行结果】