当前位置:主页 > Office办公 > Excel专区 > Excel函数

最新发布

如何删除excel中隐藏的名称
如何删除excel中隐藏的名称

一些Excel宏和加载宏可以坐成隐含的名称,这些名称存在于某个工作簿中,但是并不出现在“定义名称”对话框中。例如, Solver加载宏生成了许多隐含的名称。通常,可以忽略掉这些隐含的名称。 然而,有时候这些隐含的名称会引起问题。假如将一个工作表复制到另一个工作簿中,隐含的名称也同样被复制,并且它们可能产生很难跟踪的链接。  可以使用下列一段VBA程序删除工作簿中的所有隐含的名称:  Sub DeleteHiddenNames()   Dim n As Name   Dim Count As Integer   For Each n in ActiveWorkbook.Names    If Not n.Visible Then      n.DeleteCount=Count+1End IfNext nMsgBox Count & "hidden names were deleted."End Sub

139 次浏览
Excel中vba宏代码合并单元格的方法
Excel中vba宏代码合并单元格的方法

文章介绍excel中用vba宏代码来进行合并单元格的操作过程,以及用VBA宏代码语句判断单元格是否为合并单元格。  以前的文章介绍excel合并单元格多是基础操作,本文介绍关于excel合并单元格宏VBA代码方面的应用。第一,用VBA宏判断excel合并单元格  在excel中按下ALT+F11,打开VBE编辑器,复制下面代码,按F5键运行,如果A1单元格为合并单元格,则弹出消息框提示此单元格为合并单元格,如果A1单元格没有合并,消息框提示此单元格不是合并单元格。Sub excel合并单元格宏()If Range("A1").MergeCells ThenMsgBox "此单元格为合并单元格"ElseMsgBox "此单元格不是合并单元格"End IfEnd Sub 第二,用宏VBA代码来进行合并单元格  用上面介绍的方法,复制下面这段代码,运行的结果是:当我们在输入框输入一个行号,然后excel会自动合并A1到输入行号的单元格区域。比如我们输入8,excel则合并A1:A8单元格区域。Sub合并单元格宏()Dim x1 As Longx1 = InputBox("请输入行号:")Sheets("sheet1").Range("a1:a" & x1).MergeEnd Sub  又比如下面这段宏VBA代码可以实现C6:F10单元格区域合并。

138 次浏览
Excel vba删除工作表的代码和实例
Excel vba删除工作表的代码和实例

文章介绍excel中vba删除工作表的方法,并通过两个案例来具体理解vba代码。  上一篇文章我们介绍了使用excel的基础操作来删除工作表。本文给大家分享vba删除工作表的代码写法。vba删除工作表案例一:删除一张表以外的所有工作表  如下图所示:这一个excel工作薄包含多张工作表,如何使用vba删除 “IT部落窝论坛”以外的工作表呢?右边截图就是使用VBA代码删除后的效果,整个工作薄就只剩下一张工作表:IT部落窝论坛。   下面是具体的vba删除工作表操作步骤:  第一,按下ALT+F11,打开VBE编辑器。  第二,单击菜单:插入——模块,插入一个模块,并复制下面的代码到代码输入区:Sub vba删除工作表()Application.DisplayAlerts = FalseDim sht As ObjectFor Each sht In ThisWorkbook.WorksheetsIf sht.Name <> "IT部落窝论坛" Thensht.DeleteEnd IfNextApplication.DisplayAlerts = TrueEnd Sub

265 次浏览
Excel启用宏的详细说明
Excel启用宏的详细说明

Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,主要能用来扩展Windows的应用程式功能,特别是Microsoft Office软件,其中包括Excel、PPT、Word、Outlook等。使用Excel的VBA开发的Excel文档,在Excel中运行时需要开启Excel的宏功能,否则此文档的VBA自动化功能将被完全屏蔽,文档的功能无法实现。因此,在打开这些Excel程序文件之前,您需要先对您的Excel宏安全性进行设置(设置永久有效,在同一台电脑上无需再次设置)在Excel2003版本中,可以依以下步骤操作:1,在Excel的菜单栏上依次单击“工具”——“宏”——“安全性”,打开下图所示的“安全性”对话框,2,在“安全级”选项卡中将宏的安全级别设置为“中”或“低”。其中推荐使用“中”级,这样的设置并不会降低您的安全性,您仍然对任意一个宏文件都拥有主动选择是否运行的权力。 在宏的安全性级别设置成功后,再次打开Excel程序文件时,会出现下图所示信息框,此时点击“启用宏”按钮即可使本程序正常运行:在Excel2007/2010版本中,可以依以下步骤操作:1,依次单击Excel的Office按钮(2010版本为“文件”按钮)——“Excel选项”,打开下图所示的“Excel选项”选项卡,在左侧列表中选择“信任中心”,在右侧出现的窗口中点击“信任中心设置”按钮,

171 次浏览
Excel定位最后一行的四种方法
Excel定位最后一行的四种方法

文章总结excel定位最后一行的多种方法,使用技巧、快捷键、VBA代码来定位到最后一行。  如果在excel工作表中数据很多,需要快速定位最后一行,有什么可以实现呢?  比如EXCEL可用的表格有65536行,实际有6000多行是填充了数据的,如何快速定位最后一行。第一,使用技巧完成  按下快捷键:ctrl +↓,或者Ctrl+end,以及双击选取单元格之下框线(对不连续区域不适用)。  另外,在最后一行双击又可以定位到第一行。双击单元格的中间可以编辑单元格,双击单元格右下角可以进行填充。第二,使用VBA代码完成  下面这段代码能定位选择最后一行:Sub 定位最后一行()Range("a65536").End(xlUp).EntireRow.SelectEnd Sub  如果需要定位选择最后一行数据行的下一行,可以使用下面的代码:

141 次浏览
excel VBA批量更改数据透视表数据字段值汇总方式
excel VBA批量更改数据透视表数据字段值汇总方式

如果需要更改Excel数据透视表数值区域中字段的值汇总方式,在字段较多的情况下,手动逐一更改显得有些繁琐。用下面的VBA代码可快速批量更改全部数据字段的值汇总方式。例如要将当前工作表中第一个数据透视表的所有数据字段值汇总方式改为“求和”,方法如下: 按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下列代码:Sub SumDataFields()Dim ptField As PivotFieldFor Each ptField In ActiveSheet.PivotTables(1).DataFieldsWith ptField.Function = xlSum.Caption = "求和项:" & .SourceNameEnd WithNextEnd Sub关闭VBA编辑器,返回Excel工作表界面,按Alt+F8,打开“宏”对话框,选择“SumDataFields”宏执行即可。

114 次浏览
excel利用自定义函数获取工作表名称
excel利用自定义函数获取工作表名称

有时需要在工作表中引用同一工作簿中其他工作表名称,当工作表数量较多时,逐一手工输入有些繁琐,这时可以添加一个自定义函数来快速获取工作表名称,方法如下:按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码:Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As StringApplication.VolatileGetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).NameEnd Function上述代码定义了一个自定义函数GetSheetName,有两个参数:“idx”为工作表的索引号,“relative_position ”为逻辑型可选参数。“relative_position ”参数为“0”或省略时表示按工作表的绝对位置来获取工作表名称,其取值范围为“1,2,3,……”,当“idx”取这些值时依次获取工作簿中从左到右的第1,2,3,……个工作表的名称;该参数为真时按相对位置来获取工作表名称,即“idx”参数为“0”时取得当前工作表名称,为“-1”时取得其左侧第一个工作表名称,为“1”时取得其右侧第一个工作表名称。示例:取得第一个工作表的名称:=getsheetname(ROW(A1))向下拖到填充柄填充公式即可依次取得各工作表名称。在G11单元格取得当前工作表的名称:=getsheetname(ROW()-11,1)

178 次浏览
Excel中vba变量类型小结
Excel中vba变量类型小结

本文对excel中vba变量类型和dim语句进行一些小结。  EXCEL VBA中,如何判断数据类型?使用变量的第一步是了解变量的数据类型。变量的数据类型控制变量允许保存何种类型的数据。  下面这个表列出了VBA支持的数据类型,以及各种数据类型的变量所需要的存储空间和能够存储的数值范围。   作为我们编写代码,为了做到效率,一个目标是选择需要存储空间尽可能小的数据类型来保存需要存储的数据。例如,如果要保存诸如班级学生总数这样的小数字,那么Byte数据类型就OK。这种情况,使用Single数据类型只是对计算机存储空间的浪费。  使用Dim语句创建变量  对变量可以使用的数据类型已经熟悉了,就可以创建变量。创建变量可以使用Dim语句,创建变量通常称为声明变量。  Dim语句的基本语法:Dim变量名As数据类型  Dim sName As String:申明sName变量为字符串类型。  如果在语句中没有提供数据类型,变量将被指定为Variant类型,因为VBA中默认的数据类型是Variant。  必须指定数据类型的第一个原因是,Variant数据类型占用的存储空间较大,即使没有给Variant类型的变量赋值,它也要占用16个字节或者22个字节。第二个原因是,Variant数据类型将影响应用程序的性能。VBA必须辨认Variant类型的变量中存储了何种类型的数据。

129 次浏览
利用快捷键保护excel工作表和撤消工作表保护
利用快捷键保护excel工作表和撤消工作表保护

在Excel中经常进行设置密码的保护工作表或撤消工作表保护的操作时,每次都单击菜单或功能区中的“保护工作表”命令,并在对话框中设置密码显得有些繁琐。如果能用快捷键来保护工作表或取消工作表保护就方便多了。下面的宏就可以实现这个目的。1.按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中粘贴下列代码:Sub ProtectOrUnprotect()On Error GoTo l_endIf ActiveSheet.ProtectContents ThenActiveSheet.Unprotect Password:="123"ElseActiveSheet.Protect Password:="123"End Ifl_end:End Sub代码中保护工作表和撤消工作表保护的密码都为“123”,可根据需要自行更改。2.返回工作表界面,按Alt+F8,打开“宏”对话框,选择“ProtectOrUnprotect”宏,单击“选项”按钮,为该宏指定一个快捷键,如输入字母“e”,则快捷键“Ctrl+E”则为执行该宏命令的快捷键,如图。 3.单击“确定”,关闭“宏”对话框。以后选择某个工作表,反复按快捷键“Ctrl+E”即可在保护工作表和撤消工作表保护之间切换。需要注意的是,执行宏命令前须确保工作簿已设计完毕,因为宏命令运行后将无法撤消到工作簿以前的状态。

677 次浏览
excel模拟“AfterPrint”事件打印后执行命令
excel模拟“AfterPrint”事件打印后执行命令

通常在Excel VBA中用“Workbook.BeforePrint”事件在打印前执行某项操作或命令,那么,要在打印后再执行某个命令该如何实现呢?Excel中并没有提供“AfterPrint”事件,用下面的VBA代码可以模拟“AfterPrint”事件。假如在“Sheet1”表的A1单元格包含某个数值,需要在打印后让这个数值加“1”,方法如下:按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“ThisWorkBook”,在代码窗口中粘贴下列代码:Private Sub Workbook_BeforePrint(Cancel As Boolean)Application.EnableEvents = False ‘不触发BeforePrint事件ActiveSheet.PrintOutSheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1Application.EnableEvents = TrueCancel = True ‘取消打印End Sub返回Excel工作表界面,在“工具栏”或“快速访问工具栏”中点“打印”按钮打印当前活动工作表后,Sheet1表A1单元格的数值就会自动加“1”。

126 次浏览
共计5788条记录 上一页 1.. 71 72 73 74 75 76 77 ..579 下一页