共 16 篇文章 |
|
教程 | Excel条件判断中的8个函数 17个公式,工作中你一定会用到!写在前面工作中最常用的场景恐怕就是条件判断了,在满足什么条件的情况下应该怎么处理是再耳熟能详不过的职场语言了.那么在Excel中做数据处理的时候自然也绕不过if函数,本文总结了相关的函数和公式,基本可以覆盖职场中所有的场景了。countif函数。根据条件统计个数,主要是统... 阅3101 转2 评0 公众公开 22-07-22 06:59 |
Sub 统计未保存工作簿() Dim book As Workbook Dim i As Integer For Each book In Workbooks If book.Saved = False Then i = i + 1 End If Next book MsgBox iEnd Sub.Sub 刷新透视表() Dim pt As PivotTable For Each pt In ActiveWorkbook.PivotTables pt.RefreshTable Next ptEnd Sub.Sub 图表转图像() ActiveChart.ChartArea.Copy Active... 阅69 转4 评0 公众公开 22-07-07 22:43 |
Sub Excel2pdf() Dimws As Worksheet For Each ws In Worksheets ws.Name & ''''''''.pdf'''''''' Next wsEnd Sub.Sub 禁用分页符() Dim wb As Workbook Dim wks As Worksheet Application.ScreenUpdating = False For Each wb In Application.Workbooks For Each Sht... 阅162 转4 评0 公众公开 22-07-06 23:26 |
Sub 关闭所有() Dim wbs As Workbook For Each wbs In Workbooks wbs.Close SaveChanges:=True Next wbEnd Sub.Sub 添加附件() Application.Dialogs(xlDialogSendMail).ShowEnd Sub.文件备份当前文件的同一目录中保存当前工作簿的备份文件,并添加当前日期到文件名。Sub 备份文件() ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path &... 阅64 转6 评0 公众公开 22-07-04 21:04 |
当运行此代码时,它将选择工作表中的所有单元格,并自动调整所有行高或列宽。Sub 删除空白工作表() Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating= False Application.DisplayAlerts= False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then Ws.Delete End If ... 阅175 转15 评0 公众公开 22-07-04 21:04 |
Sub dateToday() Dim tempCell As Range Selection.Value For Each tempCell In Selection If IsDate(tempCell) = True Then With tempCell .Sub Get_Word_Count() Dim WordCnt As Long Dim rng As Range Dim S As String Dim N As Long For Each rng In ActiveSheet.Sub GSToNumber() Dim MyRange As Range Dim MyCell As Range Set M... 阅270 转10 评0 公众公开 22-07-04 21:03 |
EnableCalculation=False禁止工作表1进行自动重算,通常情况下,自动重算和手动重算设置都影响到整个工作薄,该语句可以对指定的工作表进行设置,避免了对整体的影响。Activate激活当前工作簿的工作表sheet1,注意与select的区别,激活只能针对一个工作表,而选择可以同时对应多个,另外可以激活隐藏的工作表,但是无法选择隐藏工作表。Add Thi... 阅32 转3 评0 公众公开 22-06-17 23:03 |
教程 | 10个值得收藏的VBA写法(第7集)Volatile TrueExcel里有个非常实用的功能就是可以直接引用自定义函数用于数据处理,但在某些场景下,比如修改工作表标签名称、插入工作表等操作自定义函数并不会自动重算,用上面的方法相当于把自定义函数标识为易失性函数,而对于易失性函数,系统会强制进行重算。Volatile False与上句对应,这句相当于... 阅42 转3 评0 公众公开 22-06-14 07:20 |
加载窗体。隐藏窗体。卸载窗体。Unload Userform1或Unload Me通过Unload可以把窗体从内存中删除,释放窗体所占用的内存空间,再次调用窗体,窗体控件上的值全部被初始化。显示窗体。窗体显示方式分两种:有模式和无模式。有模式指只显示本窗体,只能在本窗体使用控件,无法选择其他窗体或者工作表对象。无模式下可以同时显示多个窗体,能在多个... 阅59 转3 评0 公众公开 22-06-11 10:06 |
Row指工作表中已经使用过的单元格区域,判断单元格是否使用过,要注意的是,修改过单元格的行高列宽,即使单元格是空的,也算是使用过单元格。模式窗体:窗体显示后将停止显示之后的代码直到退出或隐藏此窗体,并且必须退出或隐藏此窗体后,才可以操作非此窗体的其他界面元素。也就是说,当你使用模式窗体显示某窗体的时候,当程序执行完“显示... 阅44 转3 评0 公众公开 22-06-07 00:33 |