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

最新发布

Excel打印工作簿的操作和方法
Excel打印工作簿的操作和方法

本文介绍excel打印工作簿的方法。一次性打印多个excel工作簿文件的方法是这样的:  1.把所有需要打印的excel文件放在一个文件夹下面。  2.执行“文件——打开”,弹出“打开”对话框。  3.选择需要打印的excel工作簿文件。  4.单击左小角的“工具”按钮,选择“打印”。  上面的步骤就是excel打印工作簿的方法。  附:打印工作簿截图:

97 次浏览
如何改变Excel鼠标指针形状
如何改变Excel鼠标指针形状

在Excel VBA中,如果需要改变Excel鼠标指针形状以方便用户的操作体验,可通过VBA设置Excel鼠标的显示状态改变Excel鼠标指针形状。Excel2003可通过VBA宏改变Excel鼠标指针形状。改变Excel鼠标指针形状的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.Cursor = xlWaitMsgBox "Excel鼠标指针被改为沙漏型指针!下面将恢复默认形状!"Application.Cursor = xlDefaultEnd Sub按F5运行键运行程序,即可改变Excel鼠标指针形状。

151 次浏览
如何隐藏Excel格式工具栏
如何隐藏Excel格式工具栏

在Excel VBA中,Excel格式的操作可通过Excel格式工具栏进行操作。如果需要隐藏Excel格式工具栏以方便用户的操作体验,可通过VBA设置Excel格式工具栏的显示状态隐藏Excel格式工具栏。Excel2003可通过VBA宏隐藏Excel格式工具栏。隐藏Excel格式工具栏的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.CommandBars("Formatting").Visible = FalseIf MsgBox("格式工具栏被隐藏!" & vbCrLf & "是否重新显示格式工具栏?", _vbQuestion + vbYesNo) = vbNo Then Exit SubApplication.CommandBars("Formatting").Visible = TrueEnd Sub按F5运行键运行程序,即可隐藏Excel格式工具栏。Excel格式工具栏可通过单击“视图”菜单-“工具栏”子菜单-“格式”菜单项隐藏Excel格式工具栏,再次单击,显示Excel格式工具栏。

136 次浏览
如何查询Excel的版本号
如何查询Excel的版本号

在Excel VBA中,如果需要查询Excel的版本号以方便用户的操作,可通过VBA查询Excel的版本号。Excel2003可通过VBA宏查询Excel的版本号。查询Excel的版本号的方法:首先Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Dim myVersion As StringSelect Case Application.VersionCase "8.0"myVersion = "97"Case "9.0"myVersion = "2000"Case "10.0"myVersion = "2002"Case "11.0"myVersion = "2003"Case "12.0"myVersion = "2007"Case "14.0"myVersion = "2010"Case ElsemyVersion = "未知版本"End SelectMsgBox "Excel 版本是: " & myVersionEnd Sub按F5运行键,查询Excel的版本号,返回用户使用的Excel的版本。

157 次浏览
excel中使用dget函数如何使用
excel中使用dget函数如何使用

DGET函数,从列表或数据库的列中提取符合指定条件的单个值。 意思就是可以利用DEGT函数查找相关数据,对于少用函数的朋友或许不知道,那么下面小编就教你怎么在excel中使用dget函数的方法。  在excel中使用dget函数的方法 点击菜单栏中f(x),弹出对话框如图,选择类别:点击“数据库”;选择函数:点击“DGET”;  点击确认,弹出对话框,进行函数参数选定:  Datebase(所选数据的单元格区域):B2:B10  Field(列标签/列位置):2  Criteria(条件单元格):C12:C13  点击确认,得出结果

213 次浏览
如何使Excel事件无效
如何使Excel事件无效

在Excel VBA中,如果需要使Excel事件无效以方便用户的操作体验,可通过VBA使Excel事件无效。Excel2003可通过VBA宏使Excel事件无效。使Excel事件无效的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.EnableEvents = FalseActiveWorkbook.SaveMsgBox "Excel事件已无效,下面将恢复!"Application.EnableEvents = TrueActiveWorkbook.SaveEnd Sub按F5运行键运行程序,即可使Excel事件无效。

132 次浏览
如何查询Excel的当前用户名
如何查询Excel的当前用户名

在Excel VBA中,如果需要查询Excel的当前用户名以方便用户的操作,可通过VBA查询Excel的当前用户名。Excel2003可通过VBA宏查询Excel的当前用户名。查询Excel的当前用户名的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()MsgBox "Excel的当前用户名是: " & Application.UserNameEnd Sub按F5运行键运行程序,查询Excel的当前用户名,返回当前系统下Excel的当前用户名。Excel的当前用户名可通过单击“工具”菜单-“选项”菜单项,在打开的“选项”对话框中单击“常规”选项卡,在“用户名”输入框可修改Excel的当前用户名。

129 次浏览
Excel批量获取指定目录下文本文件内容VBA代码
Excel批量获取指定目录下文本文件内容VBA代码

今天帮一位网友弄的,A列为文件名,B列为对应的文本文件内容。此代码只适用于Excel2003及以下版本,因FileSearch方法被微软阉割了。Sub listfile()”””””””””””””””””””””””‘ 批量获取指定目录下所有文本文件名和内容 ‘‘ ‘”””””””””””””””””””””””Dim fs, fso, flDim mypath As StringDim theSh As ObjectDim theFolder As ObjectDim strtmp As StringApplication.ScreenUpdating = FalseOn Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject") ‘设置搜索路径Set theSh = CreateObject("shell.application")Set theFolder = theSh.BrowseForFolder(0, "", 0, "")If Not theFolder Is Nothing Thenmypath = theFolder.Items.Item.PathEnd If‘搜索开始Set fs = Application.FileSearchWith fs.NewSearch.SearchSubFolders = True ‘搜索子目录.LookIn = mypath ‘搜索路径.FileName = "*.txt" ‘搜索文件类型为txtIf .Execute(SortBy:=msoSortByFileName) = 0 ThenC = .FoundFiles.Count ‘统计搜索到的文件个数For i = 1 To Cstrtemp = .FoundFiles(i) ‘设置临时文件n = InStrRev(strtemp, "\") ‘获取文件路径长度(不包括文件名)‘获取文件名及扩展名strfilename = Replace(strtemp, Left(strtemp, n), "")‘从A2单元格开始输出格式为:文件名Cells(i + 1, 1) = Left(strfilename, Len(strfilename) – 4)Set fl = fso.opentextfile(strtemp, 1)strtmp = fl.readall ‘读取文本内容Range("b" & i + 1) = strtmp ‘B2开始写入内容fl.CloseNextElseMsgBox "该文件夹里没有符合要求的文件!"End IfEnd WithSet fs = NothingApplication.ScreenUpdating = TrueEnd Sub

391 次浏览
如何修改Excel的标题
如何修改Excel的标题

在Excel中,标题栏显示“Microsoft Excel”,如果需要修改Excel的标题以方便用户的操作,可通过VBA修改Excel的标题。Excel2003可通过VBA宏修改Excel的标题。Excel的标题的方法:首先Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Application.Caption = "Excel 伙伴天下"MsgBox "已完成修改Excel的标题", vbOKOnlyApplication.Caption = vbNullStringEnd Sub按F5运行键,出现“已完成修改Excel的标题”说明已完成修改Excel的标题,单击“确定”按钮还原修改修改Excel的标题。

135 次浏览
如何查询Excel子窗口的最大高度和宽度
如何查询Excel子窗口的最大高度和宽度

在Excel VBA中,如果需要查询Excel子窗口的最大高度和宽度以方便用户的操作,可通过VBA查询Excel子窗口的最大高度和宽度。Excel2003可通过VBA宏查询Excel子窗口的最大高度和宽度。查询Excel子窗口的最大高度和宽度的方法:首先按“Alt+F11”组合键,Excel2003打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:Sub Excel_Partner()Dim myMaxHeight As Double, myMaxWidth As DoublemyMaxHeight = Application.UsableHeightmyMaxWidth = Application.UsableWidthMsgBox "Excel子窗口:" _& vbCrLf & "最大高度为:" & myMaxHeight _& vbCrLf & "最大宽度为:" & myMaxWidth, vbInformationEnd Sub按F5运行键运行程序,返回当前系统下Excel子窗口的最大高度和宽度。

130 次浏览
共计5788条记录 上一页 1.. 76 77 78 79 80 81 82 ..579 下一页