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

【Cells属性】

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

【代码区域】

Sub 使用Cells属性()'声明变量Dim wk As WorkbookDim 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 = 25End WithMsgBox "设置完成", vbOKOnly, "使用Cells属性"Set wk = NothingSet wt = Nothing End Sub

【执行结果】

                                                                                            

                                                         

【Columns属性】

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

【代码区域】

Sub 使用Columns属性()Dim wk As WorkbookDim wt As WorksheetSet wk = Application.Workbooks(1)wk.ActivateSet wt = Worksheets(1)With wt.Columns(1).Font.Bold = True.Size = 15.ColorIndex = 13End WithMsgBox "设置完成", vbOKOnly, "使用Columns属性"Set wk = NothingSet wt = Nothing End Sub

 

【执行结果】

                                                                                 

                                

 

【Next属性】

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

【代码区域】

Sub next属性()Dim wk As WorkbookDim wt As WorksheetSet wk = Application.Workbooks(1)wk.ActivateSet wt = wk.Worksheets(1)wt.Cells(2, 2).Next = "OLIVER" End Sub

【执行结果】

【Previous属性】

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

 【代码区域】

Sub Previous属性() Dim wk As WorkbookDim wt As WorksheetSet wk = Application.Workbooks(1)wk.ActivateSet wt = wk.Worksheets(1)wt.Cells(2, 2).Previous = "OLIVER" End Sub

【执行结果】

 

【Range属性】

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

【代码区域】

 

Sub Range属性() Dim wk As WorkbookDim wt As WorksheetSet wk = Application.Workbooks(1)wk.ActivateSet wt = wk.Worksheets(1)wt.Range(Cells(1, 1), Cells(5, 3)).SelectWith Selection.Interior.Color = 65535End 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 Thenrw.RowHeight = 12rw.Value = "数据"End IfNext End Sub

【执行结果】

 

总结

以上是生活随笔为你收集整理的【VBA编程】15.WorkSheet对象常用属性的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。