【分享成果,随喜正能量】 穷不失义,达不离道。人生总有顺境、逆境,但无论什么时候,都不要背弃心中的仁义,有义有爱,才是一个人的立世之道。。 ??
2024年04月08日
最近接触了一下VBA编程,才知道Excel还能编程,而且还如此强大,真的是惊呆了,话不多说,先了解一下VBA常用的语法吧。 1、基础语法 //高级for循环 Function deleteArrayByIndex(list) As String Dim item
2024年04月08日
Excel每次新建工作表要从一个空表格开始,然后分别设置表格参数,然后输入数据。 感觉有点麻烦,如果是初学者,可能根本找不到在哪里设置单元格格式。 本节介绍一种方法,制作一个全功能建表格式,选择相应的格式,然后一键完成。
2024年04月08日
将以下代码保存到待拆分的工作簿的模块中,运行后即可执行拆分,对于保存位置,以下两个过程分别以不同的方式指定: 1 以原工作簿的名字新建一文件夹,然后将拆分后的工作表做为工作簿保存到新文件夹中:Sub 拆分工作簿()
On Error Resume Next
Dim fso As Object
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
Set wb = ThisWorkbook
Dim str As String
Dim lens As Integer
lens = VBA.InStr(wb.Name, ".")
str = VBA.Left(wb.Name, lens)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(ThisWorkbook.path & "\" & str) = True Then
MsgBox "文件夹已存在"
Exit Sub
Else
MkDir ThisWorkbook.path & "\" & str
End If
For i = 1 To wb.Worksheets.Count
Set ws = wb.Worksheets(i)
ws.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.path & "\" & str & "\" & ws.Name & ".xlsx" '不能指定不存在的工作路径
Debug.Print ThisWorkbook.path & "\" & str & "\" & ws.Name & ".xlsx"
ActiveWorkbook.Close
Next
Set ws = Nothing
Set wb = Nothing
End Sub
2024年04月08日
原创作者: 卢子 转自:Excel不加班 员周末的问题,有点急,想快速从一堆金额凑出20238840.20元。 有凑金额模板在手,这种简直太简单了,秒解决! 将所有金额放在A列,在B2写上目标值,点开始凑数按钮。
2024年04月08日
Excel的强项是数据处理,工作当中会遇到很多相同或类似的数据,需要统一提取出来,进行一个整合判断。 通过一个循环方法可以快速实现数据的有序提取。
2024年04月08日
在数据表操作的时候,通常会有大量的选择项目,在工作当中,不可能在众多的选择当中找到想要的结果,反而对操作是一种很大的困扰,并不能真正体现出自动化的效率来。 如何在众多选择项目当中快捷地找出想要的条目就是一件十分有用的处理。
2024年04月08日
要获取文件名和扩展名,可以使用VBA语句和FSO对象模型两种方式。 Function SplitFilename(ByVal sFileName As String) As Variant Dim aRet(1 To 3) As String1 使用VBA语句拆分文件名和扩展名
2024年04月08日
工艺生产当中的开停车,是一个生产过程当中最重要的一环。很多事故也是在这个环节发生,所以,开停车过程作为一个重点,来进行管理。 同时,开停车也是企业安全标准化中的一个必要项目。
2024年04月08日
数据查询在Excel工作表中应用十分普遍,工作表应用的一个重点,就是对数据进行有序整理,而查询是其整理阶段的一个重要方面。 如下图所示,通过某一列数据内容可对数据表进行查询并显示。