用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是:1.按Alt+F11打开VBA编辑器。2.在代码窗口中输入下列代码:PrivateDeclareSubmciSendStringALibwinmm.dll(ByVallpstrCommandAsString,_ByVallpst......
2023-01-04 0
用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是:1.按Alt+F11打开VBA编辑器。2.在代码窗口中输入下列代码:PrivateDeclareSubmciSendStringALibwinmm.dll(ByVallpstrCommandAsString,_ByVallpst......
2023-01-04 0
在Excel中可以通过FACT函数来计算非负整数n的阶乘(n!),而如果要通过VBA来计算阶乘,可以用下面的两个自定义函数:1.使用循环:FunctionFactorial_a(ByValNumAsInteger)IfNum0ThenFactorial_a=#NUM!......
2023-01-04 1
在Excel工作表的某个单元格中应用数据有效性设置来制作下拉列表时,如果引用的行或列区域中包含空单元格或重复项,那么在有效性下拉列表中会与原区域中的内容完全相同,也会包含空值或......
2023-01-04 1
用下面的代码可以获取屏幕分辨率,需将其放入模块中运行。1.按Alt+F11打开VBA编辑器。2.单击菜单插入模块,在模块中输入下列代码并运行:DeclareFunctionGetSystemMetrics32Libuser32_AliasGetSyst......
2023-01-04 1
下面的VBA代码可以将活动工作表中的所有文本字符串的首字母改为大写,对包含公式单元格则不作更改。SubCapitalizeFirstLetter()DimRngAsRangeActiveSheet.UsedRange.SelectForEachRngInSelection.CellsIfRn......
2023-01-04 0
显示指定工作表的打印预览,假如该工作表名称为Sheet1:Worksheets(Sheet1).PrintPreview显示活动工作表的打印预览:Worksheets(Sheet1).PrintPreview显示工作簿中所有工作表的打印预览:Sheets.PrintPrevie......
2023-01-04 0
如果在Excel中选择了一个或多个区域,用下面的VBA代码可以统计当前工作表所选区域中单元格(或行、列)的数量:1.统计选定区域中的单元格数量:SubCountCellsInSelection()DimCellsNumAsInteger......
2023-01-04 0
有时在工作中需要批量创建指定名称的文件夹,如果数量较多,例如要创建几十、甚至几百个文件夹,用手动的方法很难完成。批量创建文件夹的工具有很多,如果一时手头没有这类工具,可......
2023-01-04 5
当工作表中包含大量多单元格数组公式时,有时为了方便编辑这些数组公式,可能希望将工作表中的数组公式单独标记出来,以区分非数组公式,这时可以用下面的VBA代码来实现。选择包含数......
2023-01-04 1
当工作簿中的工作表数量较多时,要快速取消各个工作表中的自动筛选可以下面的VBA代码。1.按Alt+F11,打开VBA编辑器。2.在代码窗口中输入下列代码SubRemoveAllAutoFilter()DimshtAsWorksheetForEa......
2023-01-04 1
如果Excel工作簿中包含许多隐藏的工作表,要显示隐藏的工作表,通常的方法是单击菜单格式工作表取消隐藏(Excel2003)或右击工作表标签,在弹出的快捷菜单中选择取消隐藏(Excel2007/2010)......
2023-01-04 1
1、用数据有效性定义数据长度。用鼠标选定你要输入的数据范围,点数据-有效性-设置,有效性条件设成允许文本长度等于5(具体条件可根据你的需要改变)。还可以定义一些提示信息、出错警......
2023-01-04 1
例:第一行为表头,A列是姓名,B列是班级,C列是语文成绩,D列是录取结果,现在要统计班级为二,语文成绩大于等于104,录取结果为重本的人数。统计结果存放在本工作表的其他列。公式如......
2023-01-04 0
如果要用VBA同时选择多个工作表,可以利用数组或设置Select方法的参数为False来扩展所选择的内容,如下面的一些代码:1.用工作表名称:假如工作表名称为Sheet1、Sheet2、Sheet3,同时选择这3个......
2023-01-04 1
如果要颠倒某个单元格中字符串的排列顺序,例如将A1单元格中的ABCDEFG颠倒顺序排列为GFEDCBA,可以用自定义函数来实现,方法如下。1.按Alt+F11,打开VBA编辑器。2.单击菜单插入模块,然后在代......
2023-01-04 0
可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状,这种形状的鼠标指针表示系统比较繁忙。Application.Cursor=xlWait改为I型指针:Applica......
2023-01-04 1
有时打印Excel表格后发现有些单元格显示为井号(#),这些井号(#)并非手工输入的,而是Excel中的一种错误处理方法。例如当列宽不足或日期和时间为负数时,Excel就将这些单元格显示为井号......
2023-01-04 1
本文列出了在Excel中解多元一次方程组的三种方法:矩阵解法、用克莱姆法则和用规划求解的方法,供参考。单击右侧链接打开示例文件下载页面:示例文件。方法一:矩阵解法原理:对于由......
2023-01-04 0
在Excel中间隔不定数量的行插入一个空行,可用于分隔同列中连续相同的内容。例如在下图所示的表格中包含姓名和组别两列,组别列中相同的组别代号已排在一起,现在需要在不同的组别代号......
2023-01-04 0
在Excel2007以上的版本中对日期列自动筛选时,Excel默认会按年月日分组,十分方便。如果在某个工作簿中自动筛选日期时没有分组,这时可通过下面的方法来打开该功能。以Excel2013为例,单击......
2023-01-04 1