【Cells屬性】

Cells屬性用于返回一個Range對象，表示工作表中所有的單元格，包括已經使用的單元格和未使用的單元格。

【代碼區(qū)域】

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

【執(zhí)行結果】

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

【Columns屬性】

?Columns用于返回一個Range對象，表示當前工作簿中指定區(qū)域的列。

【代碼區(qū)域】

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

?

【執(zhí)行結果】

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?

【Next屬性】

?Next屬性用于返回表示下一個工作表的WorkSheet對象，如果引用此屬性的對象為一個區(qū)域，則屬性會模擬“TAB”,返回下一個單元格，而不選中下一個單元格

【代碼區(qū)域】

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

【執(zhí)行結果】

【Previous屬性】

Previous屬性用于返回表示前一個工作表的Worksheet對象，如果使用此屬性時，所使用的對象為區(qū)域對象，則此屬性的作用將效仿“Shift+Table”快捷鍵，但此屬性只是返回上一個單元格，不是選中。

?【代碼區(qū)域】

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

【執(zhí)行結果】

?

【Range屬性】

?Range返回一個Range對象，表示一個單元格或者一個單元格區(qū)域。

【代碼區(qū)域】

?

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

?

【執(zhí)行結果】

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

【Rows屬性】

?Rows屬性是一個只讀屬性，用于返回一個Range對象，表示制定工作表中的所有行。

【代碼區(qū)域】

Sub row應用()For Each rw In Rows("1:4") '第一行到第四行If rw.Row Mod 2 = 0 Thenrw.RowHeight = 12rw.Value = "數據"End IfNext End Sub

【執(zhí)行結果】

?

總結

以上是生活随笔為你收集整理的【VBA编程】15.WorkSheet对象常用属性的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。