LIKE是用来比较两个字符串是否符合某个模型。如包含关系  语法：result = string like pattern pattern中的字符表达方式，？和 *  这2个通配符大家用得比较多 而 #代表任意一个0...

一句话VBA技巧 如何判断一个选中的区域是Range 还是Cell(单元格） Target.Count >1 就是区域，等于1就是单元格

在Excel电子表格中，我们要保存相对重要的数据，有时并不希望用户在超过的时间再能翻阅该数据。 为了不让数据外漏，希望定时删除表格防止泄露。该如何操作呢？ 可以通过VBA代码删除。在Excel对象的ThisWorkbook中的op...

VBA程序代码自己动态写VBA程序代码 简单的思路 1.把代码放在窗体文本框中,如 txtCode（也可从工作表单元格中读取内容） 2.用代码写入窗体的CodeModule 3.主要关键代码： VBE.ActiveVBProject.VBC...

在Excel中，我们需要把一个工作表的数据拆分到多个独立的工作表中。 即以数据的某个字段命名创建工作簿，然后在对应的工作表中的添加该对应的数据 运行下面代码，把5条数据拆分到5个新建的表中。 Sub 拆分工作表() Dim ...

Excel表格中，我们经常需要插入行，列等操作 当然这是很简单的事情，只需要右键-插入 行或者列就可以。 但是如果要各行插入，或者插入多行呢？这样手动插入显得相当复杂了。 下面介绍一下用vba如何插入多行，这几个代码都可以在Excel中插...

VBA密码破解代码-支持xls,xla,xlt等格式 测试使用过，有效 Private Sub CommandButton1_Click()   VBA_Decryption End Sub Sub VBA_Decrypti...

Excel是电子表格，我们可以直接在里面插入数据。 直接能修改，有时容易对表格数据直接修改而导致错误 所以这里我们利用vba代码ADO来添加数据。 Sub ADOaddnew() Dim Cn, Rs, arr, i As In...

从全路径文件名中获取文件名（不含路径） 方法一： Public Function gf_GetFileName(strFullPath As String) As String Dim splitList As Vari...

在Excel中，我们需要对单元格内的文字做一些格式化设置 比如加粗，对齐，字号，字体等设置 通过下面的代码可以直接修改区域范围内容的单元格格式 Sub FormatRange() With Range("A1:B10") ...

批量删除空白行，在Excel表格中经常需要做的动作。 之前我们讲过用定位的方法找到空值删除 《Excel批量删除空白行》 下面说说用代码的方法批量删除空白行，如下图，B列中有空值的行 运行下面的代码，删除B列中的空行 Co...

在Excel数据表中， 我们可能因为某些原因删除了部分数据，或者漏输入了数据。 但是数据是有顺序的，而这部分数据是在数据表中间的任何位置。如果手动插入再录入数据就会当然麻烦 如下图中，某些月份被删除了。希望间隔插入所有月份 B列是辅助...

在Excel表格中，我们为了突出显示选中的记录。有时希望高亮显示点击的行。 在当前工作表的Worksheet_SelectionChange事件添加下面的代码，可在鼠标点击后高亮显示该行数据。 Private Sub Worksheet_...

工作场景中，可能有时处理数据之前，可能需要使用VBA先判断待处理的Excel文件是否已经被别人打开，如果打开，需要提示先关闭或代码强制关闭。 那如何判断工作簿已经被打开呢，有以下一些方法 方法1： Const strFileNa...

Sub test1()     Dim strTest As String     Dim arrResult() As String     Dim i As Inte...