[实用参考]VBA常用代码大全.doc
VBA常用代码大全
.、八、-刖言我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在 VBA中不能直接应用，必须在函数名前面加上对象，比如：Applicatio n. WorksheetF un ctio n.Sum(arg1,arg2,arg3) 。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。
第1.1例ASC函数一、题目：要求编写一段代码，运行后得到字符串”EGcel”的首字母和” e”的ASCII值。
二、代码：Sub 示例_1_01()DimmyNum1%,myNum2%myNum仁Asc("EGcel")'返回 69myNum2=Asc("e")' 返回 101[a1]="myNum 1=":[b1]=myNum1[a2]="myNum2=":[b2]=myNum2En dSub三、代码详解1、Sub示例_1_01():宏程序的开始语句。
2、DimmyNum1%,myNum2% :变量 myNum1 和 myNum2 声明为整型变量。
也可以写为DimmyNum1AsInteger 。
Integer变量存储为16位(2个字节)的数值形式，其范围为-32,768到32,767之间。
Integer的类型声明字符是百分比符号(％)。
3、myNum1=Asc("EGcel"):把 Asc 函数的值赋给变量 myNum1 。
Asc函数返回一个Integer，代表字符串中首字母的字符的 ASCII代码。
语法Asc(stri ng)必要的string (字符串)参数可以是任何有效的字符串表达式。
如果string中没有包含任何字符，则会产生运行时错误。
4、myNum2=Asc("e"):把Asc函数的值赋给变量myNum2。
VBA代码汇总
1：打开所有隐藏工作表Sub打开所有隐藏工作表()Dim i As IntegerFor i=1To Sheets.CountSheets(i).Visible=TrueNext iEnd Sub2：循环宏Sub循环()AAA=Range("C2")Dim i As LongDim times As Longtimes=AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i=1To timesCall过滤一行If Range("完成标志")="完成"ThenExit For'假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出'If Sheets("传送参数").Range("A"&i).Text="完成"ThenExit For'假如某列出现"完成"内容则退出循环Next iEnd Sub3：录制宏时调用“停止录制”工具栏Sub录制宏时调用停止录制工具栏()mandBars("Stop Recording").Visible=TrueEnd Sub4：高级筛选5列不重复数据至指定表Sub高级筛选5列不重复数据至Sheet2()Sheets("Sheet2").Range("A1:E65536")=""'清除Sheet2的A:D列Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy,CopyToRange:=Sheet2.Range(_"A1"),Unique:=TrueSheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"),Order1:=xlAscending,Header:=xlGuess,_OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod_ :=xlPinYinEnd Sub5：双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)If Range("$A$1")="关闭"ThenExit SubSelect Case Target.AddressCase"$A$4"Call宏1Cancel=TrueCase"$B$4"Call宏2Cancel=TrueCase"$C$4"Call宏3Cancel=TrueCase"$E$4"Call宏4Cancel=TrueEnd SelectEnd Sub6：双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean) If Range("$A$1")="关闭"Then Exit SubIf Not Application.Intersect(Target,Range("A4:A9","C4:C9"))Is Nothing Then Call打开隐藏表End Sub7：进入单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)'以单元格进入代替按钮对象调用宏If Range("$A$1")="关闭"Then Exit SubSelect Case Target.AddressCase"$A$5"'单元地址(Target.Address),或命名单元名字()Call宏1Case"$B$5"Call宏2Case"$C$5"Call宏3End SelectEnd Sub8：进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("$A$1")="关闭"Then Exit SubIf Not Application.Intersect(Target,Range("A4:A9","C4:C9"))Is Nothing Then Call打开隐藏表End Sub9：在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click()Static RunMacro As IntegerSelect Case RunMacroCase0宏1RunMacro=1Case1宏2RunMacro=2Case2宏3RunMacro=0End SelectEnd Sub10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click()With CommandButton1If.Caption="保护工作表"ThenCall保护工作表.Caption="取消工作表保护"Exit SubEnd IfIf.Caption="取消工作表保护"ThenCall取消工作表保护.Caption="保护工作表"Exit SubEnd IfEnd WithEnd Sub11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option Explicit Private Sub CommandButton1_Click()With CommandButton1If.Caption="宏1"ThenCall宏1.Caption="宏2"Exit SubEnd IfIf.Caption="宏2"ThenCall宏2.Caption="宏3"Exit SubEnd IfIf.Caption="宏3"ThenCall宏3.Caption="宏1"Exit SubEnd IfEnd WithEnd Sub12：根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1")>2ThenCommandButton1.Visible=1ElseCommandButton1.Visible=0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub13：当前单元返回按钮名称（控件按钮代码）Private Sub CommandButton1_Click()ActiveCell=CommandButton1.CaptionEnd Sub14：当前单元内容返回到按钮名称（控件按钮代码）Private Sub CommandButton1_Click()CommandButton1.Caption=ActiveCellEnd Sub15：奇偶页分别打印Sub奇偶页分别打印()Dim i%,Ps%Ps=ExecuteExcel4Macro("GET.DOCUMENT(50)")'总页数MsgBox"现在打印奇数页,按确定开始."For i=1To Ps Step2ActiveSheet.PrintOut from:=i,To:=iNext iMsgBox"现在打印偶数页,按确定开始."For i=2To Ps Step2ActiveSheet.PrintOut from:=i,To:=iNext iEnd Sub16：自动打印多工作表第一页Sub自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx=InputBox("请输入起始工作表名字:")sy=InputBox("请输入结束工作表名字:")y=Sheets(x).Indexsyz=Sheets(sy).IndexFor sh=y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1,To:=1Next shEnd Sub17：查找A列文本循环插入分页符Sub循环插入分页符()'Selection=Workbooks("临时表").Sheets("表2").Range("A1")调用指定地址内容Dim i As LongDim times As Longtimes=Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"),"分页")'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i=1To timesCall插入分页符Next iEnd SubSub插入分页符()Cells.Find(What:="分页",After:=ActiveCell,LookIn:=xlValues,LookAt:=_xlPart,SearchOrder:=xlByRows,SearchDirection:=xlNext,MatchCase:=False)_.ActivateActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellEnd SubSub取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小Sub将A列最后数据行以上的所有B列图片大小调整为所在单元大小()Dim Pic As Picture,i&i=[A65536].End(xlUp).RowFor Each Pic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell,Range("B1:B"&i))Is Nothing Then Pic.Top=Pic.TopLeftCell.TopPic.Left=Pic.TopLeftCell.LeftPic.Height=Pic.TopLeftCell.HeightPic.Width=Pic.TopLeftCell.WidthEnd IfNextEnd Sub19：返回光标所在行数Sub返回光标所在行数()x=ActiveCell.RowRange("A1")=xEnd Sub20：在A1返回当前选中单元格数量Sub在A1返回当前选中单元格数量()[A1]=Selection.CountEnd Sub21：返回当前工作簿中工作表数量Sub返回当前工作簿中工作表数量()t=Application.Sheets.CountMsgBox tEnd Sub93：B列录入数据时在A列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range)If Target.Column=2ThenTarget.Offset(,-1)=NowEnd IfEnd Sub94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target,[A1:A1000])Is Nothing Then If Target.Column=1ThenTarget.Offset(,1)=DateTarget.Offset(,2)=TimeEnd IfEnd IfEnd SubPublic Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target,[A1:A1000])Is Nothing Then If Target.Column=1ThenTarget.Offset(,1)=Format(Now(),"yyyy-mm-dd")Target.Offset(,2)=Format(Now(),"h:mm:ss")End IfEnd IfEnd Sub95：指定单元显示光标位置内容（工作表代码）Private Sub Worksheet_SelectionChange(ByVal T As Range) Sheets(1).Range("A1")=SelectionEnd Sub96：每编辑一个单元保存文件Private Sub Worksheet_Change(ByVal Target As Range) ThisWorkbook.SaveEnd Sub97：指定允许编辑区域Sub指定允许编辑区域()ActiveSheet.ScrollArea="B8:G15"End Sub98：解除允许编辑区域限制Sub解除允许编辑区域限制()ActiveSheet.ScrollArea=""End Sub99：删除指定行Sub删除指定行()Workbooks("临时表").Sheets("表2").Range("5:5").Delete End Sub100：删除A列为指定内容的行Sub删除A列为指定内容的行()Dim a,b As Integera=Sheet1.[a65536].End(xlUp).RowFor b=a To2Step-1If Cells(b,1).Value="删除"ThenRows(b).DeleteEnd IfNextEnd SubExcel VBA常用代码总结1改变背景色Range("A1").Interior.ColorIndex = xlNone ColorIndex一览•改变文字颜色Range("A1").Font.ColorIndex = 1•获取单元格Cells(1, 2)Range("H7")•获取范围Range(Cells(2, 3), Cells(4, 5))Range("a1:c3")'用快捷记号引用单元格Worksheets("Sheet1").[A1:B5]•选中某sheetSet NewSheet = Sheets("sheet1")NewSheet.Select•选中或激活某单元格'“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。
(完整word)VBA代码全集
目录一、引用 (2)二、Worksheet_Change事件： (2)三、相乘 (4)四、相减 (5)五、高级筛选 (5)六、双击事件 (7)七．单位汇总（sumif），单条件汇总 (9)八、多条件汇总（连接、sumif） (11)九、多条件汇总、ado (13)十、对账 (15)十一、sql筛选 (18)十二、sql连接、交叉汇总 (20)十三、select语句总结 (22)十四、报表(有层次) (23)一、引用相对引用B4绝对引用$B$4混合引用＄B4、B＄4F4进行引用切换,$在字母前面则锁定列，在数字前面则锁定行。
二、Worksheet_Change 事件：1.在单元格中C4=VLOOKUP（B4，简码表!＄B＄4：$C＄1000，2，FALSE)2。
Worksheet_Change事件代码：Private Sub Worksheet_Change（ByVal Target As Range）On error resume nextIf Target.Row > 3 And Target。
Column = 2 Theni = Target.RowCells(i， 3） = Application.WorksheetFunction.VLookup(Cells（i, 2), Sheets(”简码表”）.Range（"b4:c100"）, 2, False)End IfEnd Sub备查代码：Private Sub Worksheet_Change(ByVal Target As Range）On Error Resume NextIf Target。
Row > 3 And Target。
Column = 5 Theni = Target.RowCells(i, 6） = Application.WorksheetFunction。
VLookup(Cells（i， 5）， Sheets(”类款项")。
(word完整版)Excel VBA常用技巧代码
1.删除重复行 (1)2. ActiveX控件的相关操作 (1)3. 单元格内容匹配 (2)4。
单元格填充公式 (3)5。
弹出打开对话框 (3)6. 操作文件夹下的所有工作簿 (3)7. 获取数据区域的最后一行和最后一列 (4)8. 获取列的字母顺序[A~IV］ (4)9. 自定义函数返回数组并填充至单元格区域 (4)10. 绘制曲线图 (5)11. 单元格区域拷贝 (5)12. 操纵数据库(查、增、删、改） (6)13。
待定XX (6)1.删除重复行关键字：[a65536］.End（xlUp).Row、Offset（)、相关双层循环Sub RemoveDuplicate(）'删除重复行For i = [a65536].End(xlUp)。
Row — 1 To 1 Step —1 '按倒叙删除For j = [a65536]。
End(xlUp).Row To i + 1 Step —1If Cells(i， 1)。
Value = Cells（j， 1）.Value ThenRows（i)。
DeleteEnd IfNextNextEnd SubSub RemoveItem()'删除相邻重复，但不删除隔行重复Dim i As LongWith Range（"A2”）’以A2为基准进行单元格偏移Do While .Offset(i, 0)If .Offset（i， 0)。
Value = .Offset（i — 1, 0）。
Value Then 。
Offset（i, 0）.EntireRow.Delete i = i + 1LoopEnd WithEnd Sub2.ActiveX控件的相关操作关键字：ActiveX、OLEObjects、ActiveSheet。
OLEObjects遍历控件Dim c As ObjectFor Each c In ActiveSheet.OLEObjectsIf = ”ComboBox” & i Then’…………。
vba常用代码大全
前言我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数一、题目：要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer 。
Integer 变量存储为16位（2 个字节）的数值形式，其范围为-32,768 到32,767 之间。
Integer 的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的string（字符串）参数可以是任何有效的字符串表达式。
如果string 中没有包含任何字符，则会产生运行时错误。
4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。
vba常用代码大全
前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数一、题目：要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。
Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。
Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的 string（字符串）参数可以是任何有效的字符串表达式。
如果 string 中没有包含任何字符，则会产生运行时错误。
4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。
VBA编程中的常用代码
***************** 定制模块行为 *****************Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为 1On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置On Error GoTo 0 '恢复正常的错误提示Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示Application.ScreenUpdating=False '关闭屏幕刷新Application.ScreenUpdating=True '打开屏幕刷新Application.Enable.CancelKey=xlDisabled '禁用 Ctrl+Break 中止宏运行的功能Err.Clear '清除程序运行过程中所有的错误*********** 工作簿 ***********Workbooks.Add() '创建一个新的工作簿Workbooks("book1.xls").Activate '激活名为 book1的工作簿ThisWorkbook.Save '保存工作簿ThisWorkbook.close '关闭当前工作簿ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数 '返回活动工作薄的名称 '返回当前工作簿名称ThisWorkbook.FullName '返回当前工作簿路径和名称ActiveWindow.EnableResize=False '禁止调整活动工作簿的大小Application.Window.Arrange xlArrangeStyleTiled '将工作簿以平铺方式排列ActiveWorkbook.WindowState=xlMaximized '将当前工作簿最大化ThisWorkbook.BuiltinDocumentProperties(""Last Save Time")或 Application.Caller.Parent.Parent.BuiltinDocumentProperties(""Last Save Time") '返回上次保存工作簿的日期和时间ThisWorkbook.BuiltinDocumentProperties("Last Print Date")或 Application.Caller.Parent.Parent.BuiltinDocumentProperties(""Last Print Date") '返回上次打印或预览工作簿的日期和时间Workbooks.Close '关闭所有打开的工作簿ActiveWorkbook.LinkSources(xlExcelLinks)'返回当前工作簿中的第一条链接ActiveWorkbook.CodeNameThisWorkbook.CodeName '返回工作簿代码的名称ActiveWorkbook.FileFormatThisWorkbook.FileFormat '返回当前工作簿文件格式代码ThisWorkbook.PathActiveWorkbook.Path '返回当前工作簿的路径(注:若工作簿未保存,则为空) ThisWorkbook.ReadOnlyActiveWorkbook.ReadOnly '返回当前工作簿的读/写值(为 False) ThisWorkbook.SavedActiveWorkbook.Saved '返回工作簿的存储值(若已保存则为 False) Application.Visible = False '隐藏工作簿Application.Visible = True '显示工作簿注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见*********** 工作表 ***********edRange.Rows.Count '当前工作表中已使用的行数Rows.Count '获取工作表的行数(注：考虑向前兼容性)Sheets(Sheet1).Name= "Sum" '将 Sheet1命名为 SumThisWorkbook.Sheets.Add Before:=Worksheets'添加一个新工作表在第一工作表前ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后Worksheets(Array("sheet1","sheet2")).Select '同时选择工作表 1和工作表2Sheets("sheet1").Delete或 Sheets(1).Delete '删除工作表 1 ActiveWorkbook.Sheets(i).Name '获取工作表 i的名称ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开关按钮ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings '切换工作表中的行列边框显示edRange.FormatConditions.Delete '删除当前工作表中所有的条件格式Cells.Hyperlinks.Delete '取消当前工作表所有超链接ActiveSheet.PageSetup.Orientation=xlLandscape或 ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName '在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=erName '将用户名放置在活动工作表的页脚ActiveSheet.Columns("B").Insert '在A 列右侧插入列,即插入 B 列ActiveSheet.Columns("E").CutActiveSheet.Columns("B").Insert '以上两句将 E 列数据移至 B 列,原 B 列及以后的数据相应后移ActiveSheet.Columns("B").CutActiveSheet.Columns("E").Insert '以上两句将 B列数据移至 D列,原 C列和D列数据相应左移一列ActiveSheet.Calculate '计算当前工作表ThisWorkbook.Worksheets(""sheet1").Visible=xlSheetHidden '正常隐藏工作表,同在 Excel 菜单中选择""格式——工作表——隐藏"操作一样ThisWorkbook.Worksheets(""sheet1").Visible=xlSheetVeryHidden '隐藏工作表,不能通过在 Excel 菜单中选择""格式——工作表——取消隐藏"来重新显示工作表ThisWorkbook.Worksheets(""sheet1").Visible=xlSheetVisible '显示被隐藏的工作表ThisWorkbook.Sheets(1).ProtectContents '检查工作表是否受到保护ThisWorkbook.Worksheets.Add Count:=2,Before:=ThisWorkbook.Worksheets(2)或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 '在第二个工作表之前添加两个新的工作表ThisWorkbook.Worksheets(3).Copy '复制一个工作表到新的工作簿ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets'复制第三个工作表到第二个工作表之前ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 '改变工作表的列宽为20ThisWorkbook.ActiveSheet.Columns.ColumnWidth =ThisWorkbook.ActiveSheet.StandardWidth '将工作表的列宽恢复为标准值ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 '改变工作表列 1的宽度为 20ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 '改变工作表的行高为 10 ThisWorkbook.ActiveSheet.Rows.RowHeight =ThisWorkbook.ActiveSheet.StandardHeight '将工作表的行高恢复为标准值ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 '改变工作表的行 1的高度值设置为 10ThisWorkbook.Worksheets(1).Activate '当前工作簿中的第一个工作表被激活ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True '设置工作表Sheet1中的行1数据为粗体ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True '将工作表Sheet1中的行1隐藏ActiveCell.EntireRow.Hidden = True '将当前工作表中活动单元格所在的行隐藏注：同样可用于列。
30个有用的ExcelVBA代码（1~5）
30个有用的ExcelVBA代码（1~5）原创浮云Excel 2019-03-29 11:58:001.显示多个隐藏的工作表如果你的工作簿里面有多个隐藏的工作表，你需要花很多时间一个一个的显示隐藏的工作表。
下面的代码，可以让你一次显示所有的工作表Sub UnhideAllWoksheets()Dim ws As WorksheetFor Each ws In ActiveWorkbook.Worksheetsws.Visible = xlSheetVisibleNext wsEnd Sub2.隐藏除了活动工作表外的所有工作表如果你做的报表，希望隐藏除了报表工作表以外的所有工作表，则可以用一下代码来实现：Sub HideAllExcetActiveSheet()Dim ws As WorksheetFor Each ws In ThisWorkbook.WorksheetsIf <> Thenws.Visible = xlSheetHiddenEnd ifNext wsEnd Sub3.用VBA代码按字母的顺序对工作表进行排序如果你有一个包含多个工作表的工作簿，并且希望按字母对工作表进行排序，那么下面的代码，可以派上用场。
Sub SortSheetsTabName()Application.ScreenUpdating = FalseDim ShCount As Integer, i As Integer, j As IntegerShCount = Sheets.CountFor i = 1 To ShCount - 1For j = i + 1 To ShCountIf Sheets(j).Name < Sheets(i).Name ThenSheets(j).Move before:=Sheets(i)End IfNext jNext iApplication.ScreenUpdating = TrueEnd Sub4.一次性保护所有的工作表如果工作薄里面有多个工作表，并且希望保护所有的工作表，那么下面的代码，可以派上用场。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
前言我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数一、题目：要求编写一段代码，运行后得到字符串”EGcel”的首字母和”e”的ASCII值。
二、代码：Sub示例_1_01()DimmyNum1%,myNum2%myNum1=Asc("EGcel")'返回69myNum2=Asc("e")'返回101[a1]="myNum1=":[b1]=myNum1[a2]="myNum2=":[b2]=myNum2EndSub三、代码详解1、Sub示例_1_01()：宏程序的开始语句。
2、DimmyNum1%,myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为DimmyNum1AsInteger。
Integer变量存储为16位（2个字节）的数值形式，其范围为-32,768到32,767之间。
Integer的类型声明字符是百分比符号(%)。
3、myNum1=Asc("EGcel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的string（字符串）参数可以是任何有效的字符串表达式。
如果string中没有包含任何字符，则会产生运行时错误。
4、myNum2=Asc("e")：把Asc函数的值赋给变量myNum2。
这里返回小写字母e的ASCII代码101。
5、[a1]="myNum1=":[b1]=myNum1：把字符串“myNum1=“赋给A1单元格，把变量myNum1的值赋给B1单元格。
6、[a2]="myNum2=":[b2]=myNum2：把字符串“myNum2=“赋给A2单元格，把变量myNum2的值赋给B2单元格。
7、EndSub：程序的结束语句，和“Sub示例_1_01（）”相对应。
第1.2例Chr函数一、题目""：要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。
二、代码：Sub示例_1_02()DimmyChar1$,myChar2$myChar1=Chr(69)'返回E。
myChar2=Chr(101)'返回e。
[a1]="myChar1=":[b1]=myChar1[a2]="myChar2=":[b2]=myChar2EndSub三、代码详解1、Sub示例_1_02()：宏程序的开始语句。
2、DimmyChar1$,myChar2$：变量myChar1和myChar2声明为字符串变量。
也可以写为DimmyChar1AsString。
String之字符码的范围是0到255。
字符集的前128个字符（0到127）对应于标准的U.S.键盘上的字符与符号。
这前128个字符与ASCII字符集中所定义的相同。
后128个字符（128到255）则代表特殊字符，例如国际字符，重音符号，货币符号及分数。
String的类型声明字符为美元号($)。
3、myChar1=Chr(69)：把Chr(69)的值赋给变量myChar1。
这里返回大写字母E。
Chr函数根据字符代码返回一个字符。
语法Chr(charcode)必要的charcode（字符代码）参数是用来识别某字符的。
4、myChar2=Chr(101)：把Chr函数的值赋给变量myChar2。
这里返回小写字母e。
5、[a1]="myChar1=":[b1]=myChar1：把字符串“myChar1=“赋给A1单元格，把变量myChar1的值赋给B1单元格。
6、[a2]="myChar2=":[b2]=myChar2：把字符串“myChar2=“赋给A2单元格，把变量myChar2的值赋给B2单元格。
7、EndSub：程序的结束语句，和“Sub示例_1_02（）”相对应。
第1.3例Choose函数一、题目：要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。
二、代码：Sub示例_1_03()DimNum%Num=2MsgBoGChoose(Num,"一月","二月","三月")EndSub三、代码详解1、Sub示例_1_03()：宏程序的开始语句。
宏名为示例_1_03。
2、DimNum%：变量Num声明为整型变量。
3、Num=2：把2赋给变量Num。
4、MsgBoGChoose(Num,"一月","二月","三月")：Choose函数从参数列表中选择并返回一个值。
语法Choose(indeG,choice-1[,choice-2,...[,choice-n]])Choose会根据indeG的值来返回选择项列表中的某个值。
如果indeG是1，则Choose 会返回列表中的第1个选择项。
如果indeG是2，则会返回列表中的第2个选择项，以此类推。
IndeG是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。
当indeG小于1或大于列出的选择项数目时，Choose函数返回Null。
如果indeG不是整数，则会先四舍五入为与其最接近的整数。
第1.4例Cos函数一、题目：要求编写一段代码，运用Cos函数根据指定角度的余弦计算其正割的值。
二、代码：Sub示例_1_04()Dimjiaodu,zengejiaodu=1.3zenge=1/Cos(jiaodu)MsgBoG“角度为”&jiaodu&“的正割的值＝”&zengeEndSub三、代码详解1、Sub示例_1_04()：宏程序的开始语句。
宏名为示例_1_04。
2、Dimjiaodu,zenge：两个变量都被指定为可变型数据类型。
当声明常数、变量或参数时，若无指定数据类型则会自动的指定成Variant（可变型）数据类型。
声明成Variant 数据类型的变量可以为字符串、日期、时间、Boolean或数值。
3、jiaodu=1.3：把以“弧度”为单位的角度1.3赋给变量jiaodu。
4、zenge=1/Cos(jiaodu)：利用1/余弦算得正割（sec()）的值，赋给变量zenge。
Cos函数返回一个角的余弦值。
其参数是表示一个以弧度为单位的角。
5、MsgBoG“角度为”&jiaodu&“的正割的值＝”&zenge：利用MsgBoG函数显示算得的正割（sec()）的值。
第1.5例Date函数一、题目：要求编写一段代码，运用Date函数显示系统日期的值。
二、代码：Sub示例_1_05()DimmyDatemyDate=DateMsgBoG“系统日期为”&myDateEndSub三、代码详解1、Sub示例_1_05()：宏程序的开始语句。
宏名为示例_1_05。
2、DimmyDate：变量myDate被指定为可变型数据类型。
3、myDate=Date：把系统日期的值赋给变量myDate。
Date函数返回系统当前的日期。
4、MsgBoG“系统日期为”&myDate：利用MsgBoG函数显示系统日期的值。
第1.6例DateAdd函数一、题目：要求编写一段代码，运用DateAdd函数显示返回一定间隔后的日期。
二、代码：Sub示例_1_06()DimdyrqAsDateDimjglGAsStringDimnAsIntegerDimMsgjglG="m"dyrq=InputBoG("请输入一个日期")n=InputBoG("输入增加月的数目：")Msg="新日期:"&DateAdd(jglG,n,dyrq)MsgBoGMsgEndSub三、代码详解1、Sub示例_1_06()：宏程序的开始语句。
宏名为示例_1_06。
2、DimdyrqAsDate：变量dyrq声明为日期对象型数据类型。
其余几个变量分别是字符串型、整型和可变型变量。
3、jglG="m"：用字符m来指定以“月份”作为间隔。
4、dyrq=InputBoG("请输入一个日期")：用InputBoG函数来让用户输入一个日期，并把用户输入的日期赋给变量dyrq。
5、n=InputBoG("输入增加月的数目：")：用InputBoG函数来让用户输入间隔月的数目，并把用户输入的值赋给变量n。
6、Msg="新日期:"&DateAdd(jglG,n,dyrq)：用DateAdd函数计算得到的新的日期和字符串“新日期：”连接起来赋给变量Msg。
DateAdd函数返回一个日期，这一日期加上了一个时间间隔。
语法DateAdd(interval,number,date)DateAdd函数语法中有下列命名参数：interval必要。
字符串表达式，是所要加上去的时间间隔。
它具有好多设定值，比如”m”为月；”d”为日；”yyyy”为年等等。
number必要。
数值表达式，是要加上的时间间隔的数目。
其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date必要。
表示日期的文字。
7、MsgBoGMsg：利用MsgBoG函数显示Msg的值。
第1.7例DateDiff函数一、题目：要求编写一段代码，运用DateDiff函数返回某个指定日期距离今天的天数。
二、代码：Sub示例_1_07()DimzdrqAsDateDimMsgzdrq=InputBoG("请输入一个日期：")Msg="离开今天的天数:"&DateDiff("d",Now,zdrq)MsgBoGMsgEndSub三、代码详解1、Sub示例_1_07()：宏程序的开始语句。
宏名为示例_1_07。
2、DimzdrqAsDate：变量zdrq声明为日期对象型数据类型。