wps2016啟用宏vba是一款針對(duì)同名軟件打造的宏模塊軟件。該軟件界面美觀，支持最近版本的wps，能夠幫我們快速開啟wps表格應(yīng)用中的宏功能，從而讓用戶能夠在wps表格中利用各種宏工具來處理數(shù)據(jù)。

【代碼說明】

　　(1) Option Explicit '強(qiáng)制對(duì)模塊內(nèi)所有變量進(jìn)行聲明

　　(2) Option Base 1 '指定數(shù)組的第一個(gè)下標(biāo)為1

　　(3) On Error Resume Next '忽略錯(cuò)誤繼續(xù)執(zhí)行VBA代碼,避免出現(xiàn)錯(cuò)誤消息

　　(4) On Error GoTo 100 '當(dāng)錯(cuò)誤發(fā)生時(shí)跳轉(zhuǎn)到過程中的某個(gè)位置

　　(5) On Error GoTo 0 '恢復(fù)正常的錯(cuò)誤提示

　　(6) Application.DisplayAlerts=False '在程序執(zhí)行過程中使出現(xiàn)的警告框不顯示

　　(7) Application.DisplayAlerts=True '在程序執(zhí)行過程中恢復(fù)顯示警告框

　　(8) Application.ScreenUpdating=False '關(guān)閉屏幕刷新

　　(9) Application.ScreenUpdating = True '打開屏幕刷新

　　(10) Workbooks.Add() '創(chuàng)建一個(gè)新的工作簿

　　(11) Workbooks(“book1.xls”).Activate '激活名為book1的工作簿

　　(12) ThisWorkbook.Save '保存工作簿

　　(13) ThisWorkbook.close '關(guān)閉當(dāng)前工作簿

　　(14) ActiveWorkbook.Sheets.Count '獲取活動(dòng)工作薄中工作表數(shù)

　　(15) ActiveWorkbook.name '返回活動(dòng)工作薄的名稱

　　(16) ThisWorkbook.Name ‘返回當(dāng)前工作簿名稱

　　(17) ThisWorkbook.FullName ‘返回當(dāng)前工作簿路徑和名

　　(18) ActiveSheet.UsedRange.Rows.Count ‘當(dāng)前工作表中已使用的行數(shù)

　　(19) Rows.Count ‘獲取工作表的行數(shù)(注：考慮兼容性)

　　(20) Sheets(Sheet1).Name= “Sum” '將Sheet1命名為Sum

　　(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一個(gè)新工作表在第一工作表前

　　(22) ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) '將當(dāng)前工作表移至工作表的最后

　　(23) Worksheets(Array(“sheet1”,”sheet2”)).Select '同時(shí)選擇工作表1和工作表2

　　(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete '刪除工作表1

　　(25) ActiveSheet.UsedRange.FormatConditions.Delete ‘刪除當(dāng)前工作表中所有的條件格式

　　(26) Cells.Hyperlinks.Delete ‘取消當(dāng)前工作表所有超鏈接

　　(27) ActiveCell.CurrentRegion.Select選擇當(dāng)前活動(dòng)單元格所包含的范圍，等同于快捷鍵Ctrl+A

　　(28) Cells.Select ‘選定當(dāng)前工作表的所有單元格

　　(29) Range(“A1”).ClearContents '清除活動(dòng)工作表上單元格A1中的內(nèi)容。Selection.ClearContents '清除選定區(qū)域內(nèi)容。Range(“A1:D4”).Clear '徹底清除A1至D4單元格區(qū)域的內(nèi)容，包括格式。

　　(30) Cells.Clear '清除工作表中所有單元格的內(nèi)容

　　(31) ActiveCell.Offset(1,0).Select '活動(dòng)單元格下移一行，同理，可下移一列

　　(32) Range(“A1”).Copy Range(“B1”) '復(fù)制單元格A1，粘貼到單元格B1中

　　(33) Range(“A1:D8”).Copy Range(“F1”) '將單元格區(qū)域復(fù)制到單元格F1開始的區(qū)域中

　　(34) Range(“A1:D8”).Cut Range(“F1”) '剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1開始的區(qū)域中

　　(35) Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) '復(fù)制包含A1的單元格區(qū)域到工作表2中以A1起始的單元格區(qū)域中。

　　(36) ActiveWindow.RangeSelection.Count '活動(dòng)窗口中選擇的單元格數(shù)