Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' On Error Resume Next '忽略错误 Applicatio...

用VBA代码循环表格当前目录下的所有Excel文件中修改日期为最新的文件名 Dim strPath As String Dim strFile As String Dim datLast As Date Dim strLastFil...

数组批量赋值比循环快。 使用数组批量赋值简单示例            Dim arrValue as Variant     arrValue =...

无须PictureBox的全API截屏代码 Option Explicit '////////////////////////////////////////////////////////////////////////////// '...

模块代码： Option Explicit '********************************************************************************* 'StdPicture、IS...

在Excel表格中，经常需要行和列之间的转换，同时需要单列转换成多列等操作 如下图，要从左边的一列转换到右边的多行多列中 具体操作步骤： 1. 在目标单元格中输入需要转换的单元格从开始单元格到结束单元格，如图 2.快捷键 “...

在Excel中，我们会通过公式运算很多数据。而且有时因为计算的复杂性，公式会相当的复杂，各种嵌套 如果公式复杂，而且计算出来的结果出错，那么出错的地方就不好找了。只能拆分公式，逐个单元格运算看结果。 介绍一个简单的办法，通过快捷键“F9”来...

Items方法： 字典对象.Items( ) 返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。实例运用： Dim d Dim itms      Set d = CreateOb...

在Excel中导入文本文件。 我们可以通过菜单栏的数据-获取外部数据-文本 来导入文本数据。 由于TXT文本的格式的特殊性，可以参考下面的自定义函数导入txt文件。 Sub file_txt() Dim str_txt() ...

Excel使用VBA删除所有工作表出错 执行到那里提示的错误是： 实时错误：'-2147417848(80010108)' 自动化错误，远程进程到类型库或对象库的连接丢失      Dim xlsAppAs ...

VBA判断一个单元格或Range区域中有否包含公式 Cells(3,5).HasFormula range("A1").HasFormula  如果返回值为True, 则表明单元格或Range区域中包含了公式 如果返...

用VBA做一个自定义一个函数, 返回区域Range中的数组公式:    Function GetArrayFormula(Rng As Range)     If Rng.HasArray Then ...

VBA判断数据类型 IsText(Cells(1, 1)) = True "文本" IsNumeric(Cells(1, 1)) = True "数值" IsDate(Cells(1, 1)) = True "日期" 函数判断数据类...

分享一个自定义函数，批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim...

VBA判断Excel单元格的数据类型 Public Function gf_CheckCellType(cel As Range) As String Dim strType As String Select C...