文章目錄

• name
• Cells
• Range
• AutoFilterMode
• AutoFilter
• Find

??ActiveSheet表示當(dāng)前處于活動狀態(tài)的Sheet。

name

??ActiveSheet.Name表示當(dāng)前Sheet的名稱：

Sub Main()Debug.Print ActiveSheet.Name End Sub

Cells

??ActiveSheet.Cells表示當(dāng)前Sheet中的某個Cell：

Sub Main()ActiveSheet.Cells(7, 3).Value = 1 ' 向第7行第3列賦值1Debug.Print ActiveSheet.Cells(7, 3).Value ' 打印第7行第3列的值ActiveSheet.Cells(1, 3).Select ' 選擇當(dāng)前sheet的第1行，第3列的cellActiveSheet.Cells(1, "F").Select ' 選擇當(dāng)前sheet的第1行，第F列的cell End Sub

Range

??表示cell的集合：

Sub Main()ActiveSheet.Range("A1:B10").Select ' 選擇A1到B10之間的cellActiveSheet.Range("$A:$D").Select ' 選擇A列到D列之間的cell End Sub

AutoFilterMode

??用于判斷表中是否存在下拉箭頭：

If ActiveSheet.AutoFilterMode = False Then ' 檢查是否開啟自動篩選Range("A1:B9").AutoFilter ' 沒有開啟的話，則開啟自動篩選 End If

AutoFilter

??用于過濾數(shù)據(jù)。假設(shè)有如下數(shù)據(jù)：

省份年份產(chǎn)量

湖北	2006	20000
廣州	2012	12000
廣東	2011	23000
湖北	2013	90002
廣東	2007	12090

??篩選省份為湖北的數(shù)據(jù)：

Sub Main()If ActiveSheet.AutoFilterMode = False Then ' 檢查是否開啟自動篩選Range("A1:B9").AutoFilter ' 沒有開啟的話則開啟自動篩選End IfActiveSheet.Range("A:B").AutoFilter field:=1, Criteria1:="湖北" ' “field:=1”指的是第一列 End Sub

??篩選省份為湖北，且年份為2013的數(shù)據(jù)：

Sub Main()If ActiveSheet.AutoFilterMode = False Then ' 檢查是否開啟自動篩選Range("A1:B9").AutoFilter ' 沒有開啟的話則開啟自動篩選End IfActiveSheet.Range("A:B").AutoFilter field:=1, Criteria1:="湖北"ActiveSheet.Range("A:B").AutoFilter field:=2, Criteria1:="2013", Operator:=xlAnd End Sub

Find

??查找數(shù)據(jù)：

Sub arrDemo()Dim xlRange As RangeSet xlRange = ActiveSheet.Range("A:A").Find(what:="湖北") ' 在第1列中查找關(guān)鍵詞“湖北”Debug.Print xlRange.Row ' 輸出對應(yīng)的行數(shù)xlRange.Select ' 選擇對應(yīng)的cell End Sub

總結(jié)

以上是生活随笔為你收集整理的VBA编程_ActiveSheet的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。