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

最新发布

利用Excel VBA快速汇总会议回执实例教程
利用Excel VBA快速汇总会议回执实例教程

某单位组织一次大型会议,要求各参会单位填写好会议回执后传回,再进行汇总。回执是用Excel制作的,有一个统一的标题行。由于参会单位和参会人员众多,返回的Excel文件很多,手工逐一汇总比较麻烦。这时用VBA可快速解决问题,示例文件下载 示例文件 如图所示,会议回执在工作簿的第一个工作表中,参会人员信息从第4行开始填写,共5列,各个单位的参会人员可能不同。汇总工作簿与回执工作簿具有相同的行标题。 将所有收到的回执和汇总工作簿放到某个文件夹中,注意该文件夹内不能包含其他非回执Excel文件,打开汇总工作簿并选择汇总工作表,按Alt+F11,在VBA编辑器中单击菜单“插入→模块”,将下列代码粘贴到代码窗口内执行,即可将所有回执工作簿第一个工作表中的人员信息自动复制到汇总工作簿的第一个工作表。Sub 回执汇总()Dim ThePath As String, TheFile As StringDim Wbk As WorkbookOn Error Resume NextApplication.ScreenUpdating = FalseRange("A4:F65536").ClearContentsThePath = ThisWorkbook.Path & "\"TheFile = Dir(ThePath & "*.xls")Do While TheFile <> ""If TheFile <> ThisWorkbook.Name ThenSet Wbk = GetObject(ThePath & TheFile)With Wbk.Worksheets(1)‘复制有内容的分表数据到汇总表If .[a65536].End(xlUp).Row > 3 Then.Range("A4:E" & .[a65536].End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).[a65536].End(xlUp).Offset(1)End IfEnd WithWbk.Close FalseEnd If‘当前文件夹内的下一个工作簿TheFile = DirLoopApplication.ScreenUpdating = TrueEnd Sub

123 次浏览
excel关闭工作簿时提醒某区域不能为空解决方案
excel关闭工作簿时提醒某区域不能为空解决方案

有时需要把设计好的Excel表格交给许多用户填写,如果表格中有一些单元格为必填项,当一些用户未填写这些单元格时,逐一检查这些表格显得有些繁琐。通常的方法是通知用户或通过设置条件格式、设置批注等方式进行提醒,但难免有的用户还是忘记填写。在这种情况下可以用通过下面的宏代码,当用户在关闭工作簿时进行提醒,如果指定的单元格为空则不能关闭工作簿。假如工作簿中“Sheet1”表的数据区域中C列为必填区域,步骤如下:1.按Alt+F11打开VBA编辑器,在“工程”窗口中双击“ThisWorkbook”。2.在代码窗口中输入下列代码:Private Sub Workbook_BeforeClose(Cancel As Boolean)If ActiveWorkbook.Name = ThisWorkbook.Name And ActiveSheet.Name = "Sheet1" _And ActiveCell.Row = 1 And ActiveCell.Column = 1 Then EndIf ThisWorkbook.Saved = True ThenFor i = 2 To Sheet1.Cells(65536, 1).End(xlUp).RowIf Sheet1.Cells(i, 3) = "" ThenMsgBox ThisWorkbook.Name & ": " & Sheet1.Name & "表C列有未填数据!", , "提示"Sheet1.ActivateCells(i, 3).SelectCancel = TrueEndEnd IfNextElseMsgBox "数据未保存,请保存工作簿!"Cancel = TrueEnd IfEnd Sub当Sheet1表数据区域中C列有未填数据时,只有在下面的情况下才能正常关闭工作簿,否则Excel会弹出一个对话框提醒用户并跳转到指定的单元格。一、C列的数据区域(例如本文结尾处示例文件中的C2:C10)无未填数据。二、选择“Sheet1”表的A1单元格后关闭工作簿。三、删除VBA代码后关闭工作簿。当需要把表格交给其他用户填写时,可以在保留C列为空的情况下,通过方法二和方法三正常关闭工作簿。对于其他用户,通常不会采用这两种方法关闭工作簿,因而可以起到提醒用户的作用。

238 次浏览
Excel工作表批量重命名的方法
Excel工作表批量重命名的方法

本文介绍Excel工作表单一文件和批量重命名文件的方法。  excel工作表重命名的方法有下面几种:  第一,单击菜单“格式”——“工作表”——“重命名”。  第二,单击工作表标签,右键选择“重命名”。  第三,双击工作表标签,直接对工作表重命名。  上面三种方法,都可以对Excel工作表重命名,不过都是一个一个工作表分别重命名。  如何做到excel工作表批量重命名呢?有下面两种方法,供参考:  第一种:利用Excel工作表现有单元格内容进行批量重命名。  例如:Excel工作表默认标签为sheet1,sheet2,sheet3,sheet4。如何快速重命名为1月销售表,2月销售表,3月销售表,4月销售表。  sheet1工作表A1:A4单元格内容是1月销售表,2月销售表,3月销售表,4月销售表。  方法:按下ALT+F11,打开VBE窗口,单击插入——模块,复制下面代码,并运行。Sub 按A列数据修改表名称()On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual ‘手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 ‘恢复正常的错误提示Application.Calculation = xlCalculationAutomatic ‘自动重算End Sub  第二种:直接批量重命名Excel工作表。Sub 新工作表名()Dim i As LongApplication.ScreenUpdating = FalseFor i = 1 To Worksheets.CountWorksheets(i).Name = "报表" & iNext iApplication.ScreenUpdating = TrueEnd Sub  上面5种方法,想必能帮你解决Excel工作表批量重命名的问题。

120 次浏览
Excel VBA中debug.print解释和使用介绍
Excel VBA中debug.print解释和使用介绍

VBA 中Debug.Print 是什么意思? debug.print的使用方法是怎样的呢?  VBA 中Debug.Print 的作用是将代码执行结果显示在“立即窗口”中。比如,我们按ALT+F11组合键,打开VBE窗口,插入——模块,输入下面的代码:Sub 测试()Debug.Print "ab"End Sub  将光标定位域代码中任意位置,按F5键执行代码,在立即窗口就会显示代码执行结果。  下图就是执行Debug.Print "ab"的效果。   又比如我们插入——模块,输入下面的代码:Sub 立即窗口显示结果() Debug.Print 300 * 2 + 50End Sub  同样的,F5键执行Debug.Print 300 * 2 + 50这句代码,在立即窗口就会显示出650。

220 次浏览
excel VBA快速取消工作簿中各工作表的自动筛选
excel VBA快速取消工作簿中各工作表的自动筛选

当工作簿中的工作表数量较多时,要快速取消各个工作表中的自动筛选可以下面的VBA代码。 1.按Alt+F11,打开VBA编辑器。2.在代码窗口中输入下列代码Sub RemoveAllAutoFilter()Dim sht As WorksheetFor Each sht In ActiveWorkbook.WorksheetsIf sht.AutoFilterMode = True Then sht.AutoFilterMode = FalseNextEnd Sub3.关闭VBA编辑器,按快捷键Alt+F8,打开“宏”对话框,选择包含“RemoveAllAutoFilter”的宏名,并单击“执行”按钮。

135 次浏览
Excel利用VBA在页眉页脚中调用单元格内容
Excel利用VBA在页眉页脚中调用单元格内容

有时我们需要在Excel的页眉页脚中调用某个单元格内容,例如让用户在A1单元格中填入月份,如“一月”,在页眉处自动生成“一月报表”,可以用VBA代码来实现,步骤如下:1.按Alt+F11,打开VBA编辑器。2.在“工程”窗口中,双击“ThisWorkbook”,在右侧的代码窗口中输入下列代码:Private Sub Workbook_BeforePrint(Cancel As Boolean)ActiveSheet.PageSetup.LeftHeader = Range("A1").Value & "报表"End Sub这样,每次在打印工作表时,会自动在页眉左侧调用A1单元格中的内容,如A1单元格内容为“一月”,左侧页眉中显示“一月报表”。如果要在页脚中调用单元格内容,将上述代码改为:Private Sub Workbook_BeforePrint(Cancel As Boolean)ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & "报表"End Sub同样,如果需要在页眉或页脚的中部、右侧调用单元格内容,只须将“LeftHeader”更换成“CenterHeader”、“CenterFooter”、“RightHeader” 和 “RightFooter”。

365 次浏览
在Excel表格中一次性插入多行或多列的技巧
在Excel表格中一次性插入多行或多列的技巧

工作中经常会遇到在Excel表格中插入多行或者多列的需求有木有?可90%的人总是一行一行插入,当需要插入的行列较多时操作重复又繁琐!怎么破?本文图文详解在Excel表格中一次性插入多行或多列的技巧。这招可以极大提升工作效率哦,而且最重要的是,简单易学!这么给力的功能,需要多久学会呢?只需1分钟!在Excel表格中一次性插入多行或多列的视频教程在Excel表格中一次性插入多行或多列的设置步骤1、选择多行,再单击鼠标右键-插入,选择了几行就可以批量插入几行。2、要插入列的原理也一致,选中多列以后再选择右键菜单中的插入就可以啦。这样插入多行或者多列就可以一次性搞定啦,既快捷又准确!

150 次浏览
图文演示excel怎样给单元格添加下拉列表
图文演示excel怎样给单元格添加下拉列表

在Excel表格中输入数据的时候,为了简便快捷的输入,经常需要给Excel单元格添加一个下拉菜单,这样在输入数据时不必按键盘,只是用鼠标选择选项就可以了。 比的位置。 4、可以看到一个预览的界面,的位置,这样就可以回到有效性的对话框。 5、在有效性的对话框中,勾选 “忽略空值”(数据源的空值不纳入下拉菜单)和“提供下拉箭头”(在单元格右边出现一个小三角)。点击确定就完成了设定。 6、接着选中一个单元格,点击右边的小三角,打开下拉菜单看一看是不是所有的院校都在下拉菜单里面。但是,这样设定以后,只有这一个单元格有下拉菜单,它下面的所有单元格都没有下拉菜单,还是达不到效果。

110 次浏览
Excel中2010版本进行更改工作薄默认显示格式的操作方法
Excel中2010版本进行更改工作薄默认显示格式的操作方法

新建的工作簿在字体格式、视图和包含的工作表数量都有默认的设置,根据个人的使用习惯可对这些格式进行更改。更改新建工作簿的默认显示格式也是在“Excel选项”对话框中完成。今天,小编就教大家在Excel中2010版本进行更改工作薄默认显示格式的操作方法。  Excel中2010版本进行更改工作薄默认显示格式的操作步骤如下:  一、Excel2010版本  1、打开“文件”→“选项”,如图所示:  2、打开“Excel选项”,对话框后,在“常规”选项卡的“新建工作簿时”栏中进行具体的设置,如图所示:  二、Excel2003版本  1、选择“工具”→“选项”,如图所示:  2、在“常规”选项卡中设置完成,并可在该项中设置工作簿的保存位置和启动时打开的文件,如图所示:Excel中2010版本进行更改工作薄默认显示格式的操作

137 次浏览
Excel中2010版进行表格筛选数据的操作技巧
Excel中2010版进行表格筛选数据的操作技巧

Excel表格的功能非常强大,特别是宏的功能更厉害,但是对于初级者而言的话,只需要了解最基础的初级功能就可以了,今天,小编就教大家在Excel中2010版进行表格筛选数据的操作技巧。  Excel中2010版进行表格筛选数据的操作步骤:  用查找替换来筛选数据  我们最常的用莫过于查找和替换,Ctrl+F查找的快捷键,输入我们的需要筛选的内容即可,替换的这个功能可用可不用,不这里的查找就查找包含的意思,只是包含的都会在出来。  用筛选工具来筛选数据  如果想精准筛选数据,或者利用更多功能,数据->筛选这个功能比较适合。  点击你想筛选数据的那一列,右则会有相应的提示,选择你需要的方式。  然后会弹出一个窗口,这里选择你所需要的方式,然后输入相关的内容就可以。  用排序和筛选功能来筛选数据  在工具栏的最右侧会有一个排序和筛选的功能,利用这个可以达到与上一个方法相同的效果,这个可以根据个人习惯来。

101 次浏览
共计27343条记录 上一页 1.. 273 274 275 276 277 278 279 ..2735 下一页