vba語句集100句(第1輯)
我將學習vba過程中常用的語句進行了歸納,希望能對excel愛好者和vba初學者有所幫助.
vba語句集
(第1輯)
定製模組行為
(1) option explicit '強制對模組內所有變數進行宣告
單元格/單元格區域
(32) activecell.currentregion.select
或range(activecell.end(xlup), activecell.end(xldown)).select'選擇當前活動單元格所包含的範圍，上下左右無空行
(33) cells.select 『選定當前工作表的所有單元格
(34) range(「a1」).clearcontents '清除活動工作表上單元格a1中的內容
selection.clearcontents '清除選定區域內容
range(「a1:d4」).clear '徹底清除a1至d4單元格區域的內容，包括格式
(35) cells.clear '清除工作表中所有單元格的內容
(36) activecell.offset(1,0).select '活動單元格下移一行，同理，可下移一列
(37) range(「a1」).offset(columnoffset:=1)或range(「a1」).offset(,1) 『偏移一列
range(「a1」).offset(rowoffset:=-1)或range(「a1」).offset(-1) 『向上偏移一行
(38) range(「a1」).copy range(「b1」) '複製單元格a1，貼上到單元格b1中
range(「a1:d8」).copy range(「f1」) '將單元格區域複製到單元格f1開始的區域中
range(「a1:d8」).cut range(「f1」) '剪下單元格區域a1至d8，複製到單元格f1開始的區域中
range(「a1」).currentregion.copy sheets(「sheet2」).range(「a1」) '複製包含a1的單元格區域到工作表2中以a1起始單元格區域中
注：currentregion屬性等價於定位命令，由乙個矩形單元格塊組成，周圍是乙個或多個空行或列
(39) activewindow.rangeselection.value=xx '將值xx輸入到所菜單元格區域中
(40) activewindow.rangeselection.count '活動視窗中選擇的單元格數
(41) selection.count '當前選中區域的單元格數
(42) getaddress=replace(hyperlinkcell.hyperlinks(1).address,mailto:,」」) 『返回單元格中超級鏈結的位址並賦值
(43) textcolor=range(「a1」).font.colorindex 『檢查單元格a1的文字顏色並返回顏色索引
range(「a1」).interior.colorindex 『獲取單元格a1背景色
(44) cells.count 『返回當前工作表的單元格數
(45) selection.range(「e4」).select 『啟用當前活動單元格下方3行，向右4列的單元格
(46) cells.item(5,」c」) 『引單元格c5
cells.item(5,3) 『引單元格c5
(47) range(「a1」).offset(rowoffset:=4,columnoffset:=5)
或 range(「a1」).offset(4,5) 『指定單元格f5
(48) range(「b3」).resize(rowsize:=11,columnsize:=3)
rnage(「b3」).resize(11,3) 『建立b3：d13區域
(49) range(「data」).resize(,2) 『將data區域擴充2列
(50) union(range(「data1」),range(「data2」)) 『將data1和data2區域連線
(51) intersect(range(「data1」),range(「data2」)) 『返回data1和data2區域的交叉區域
(52) range(「data」).count 『單元格區域data中的單元格數
range(「data」). columns.count 『單元格區域data中的列數
range(「data」). rows.count 『單元格區域data中的行數
(53) selection.columns.count 『當前選中的單元格區域中的列數
selection.rows.count 『當前選中的單元格區域中的行數
(54) selection.areas.count 『選中的單元格區域所包含的區域數
(55) activesheet.usedrange.row 『獲取單元格區域中使用的第一行的行號
(56) rng.column 『獲取單元格區域rng左上角單元格所在列編號
(57) activesheet.cells.specialcells(xlcelltypeallformatconditions) 『在活動工作表中返回所有符合條件格式設定的區域
(58) range(「a1」).autofilter field:=3,visibledropdown:=false 『關閉由於執行自動篩選命令產生的第3個字段的下拉列表
名稱(59) range(「a1：c3」).name=「computer」 『命名a1：c3區域為computer
或range(「d1：e6」).name=「sheet1!book」 『命名區域性變數，即sheet1上區域d1：e6為book
或 names(「computer」).name=「robot」 『將區域computer重新命名為robot
(60) names(「book」).delete 『刪除名稱
(61) names.add name:=「contentlist」，_
refersto:=「=offset(sheet1!a2,0,0,counta(sheet2!$a:$a))」 『動態命名列
(62) names.add name:=「company」,refersto:=「companycar」 『命名字串companycar
(63) names.add name:=「total」,refersto:=123456 『將數字123456命名為total。注意數字不能加引號，否則就是命名字串了。
(64) names.add name:=「myarray」,refersto:=arraynum 『將陣列arraynum命名為myarray。
(65) names.add name:=「producenum」,refersto:=「=$b$1」,visible:=false 『將名稱隱藏
(66) activeworkbook.names(「com」).name 『返回名稱字串
圖表(70) activesheet.chartobjects.count '獲取當前工作表中圖表的個數
(71) activesheet.chartobjects(「chart1」).select 『選中當前工作表中圖表chart1
(72) activesheet.chartobjects(「chart1」).activate
activechart.chartarea.select 『選中當前圖表區域
(73) worksheets(「sheet1」).chartobjects(「chart2」).chart. _
chartarea.interior.colorindex=2 『更改工作表中圖表的圖表區的顏色
(74) sheets(「chart2」).chartarea.interior.colorindex=2 『更改圖表工作表中圖表區的顏色
(75) charts.add 『新增新的圖表工作表
(76) activechart.setsourcedata source:=sheets(「sheet1」).range(「a1:d5」), _
plotby:=xlcolumns 『指定圖表資料來源並按列排列
(77) activechart.location where:=xllocationasnewsheet 『新圖表作為新圖表工作表
(78) activechart.plotarea.interior.colorindex=xlnone 『將繪圖區顏色變為白色
(79) worksheets(「sheet1」).chartobjects(1).chart. _
export filename:=「c：mychart.gif」,filtername:=「gif」 『將圖表1匯出到c盤上並命名為mychart.gif
今天你菊子曰了麼？
VBA程式集 第3輯
vba程式集 第3輯 程式11 查詢 程式功能 將數值轉換為文字 程式作用 搜尋選中的列，將數值轉變為文字。如果只選擇了乙個單元格，那麼 僅在活動單元格中操作。不能對公式單元格和空單元格操作。程式擴充套件 可以將程式 1和程式 2略加改動，將乙個字元附加到所菜單元格的開頭。如將cell.value ...
VBA程式集 第4輯
vba程式集 第4輯 for r lastrow to 2 step 1 if ucase cells r,1 value 留下 then rows r delete 可以根據實際情況將條件進行更改,以實現需求.如更改列,或比較的值等 next r 示例文件見uploadfiles 2006 6 6...
EXCELVBA常用語句100句 henry dx
excel vba常用語句100句 定製模組行為 工作簿單元格 單元格區域 圖表 70 activesheet.chartobjects.count 獲取當前工作表中圖表的個數 71 activesheet.chartobjects chart1 select 選中當前工作表中圖表chart1 72...