Excel VBA开发

在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...
532   2019-11-16

Split函数的使用方法

Sub test1()     Dim strTest As String     Dim arrResult() As String     Dim i As Inte...
312   2019-11-13

Listbox的相关VBA代码

Private Sub btnUpdate_Click() Dim values(3) Dim u As Long u = ListBox1.ListIndex If u <> -1 Then ...
Excel VBA给Listbox 或ComboBox 设置 时出现权限拒绝的错误解决办法 英文的错误 提示: Run time error 70: Permission denied 这种情况多数是在Listbox的属性设...
在Excel表格中,有下载下来的大量包含网址链接的文本 希望能批量提取所有文本的链接地址,如下图 通过下面代码。可以直接提取超链接地址。使用Range.offset属性向右偏移一个单元输出结果 Sub ExtractHyperli...
在Excel数据表格中有些网页图片的链接。希望把这些链接转变成对应的图片 通过下面代码,可以先把图片文本地址转变成超链接格式 然后插入图片到链接对应的单元格内,可以先设置单元格的长宽,这样图片会按单元格大小自动生成 Sub Hyper...
1/4