共 255 篇文章 |
|
Sub 按aa工作表A列的内容排列工作表标签顺序()Sub 以A1单元文本作表名插入工作表()Sub 为指定工作表加指定密码保护表()Sub 光标定位到指定工作表A列最后数据行下一单元()Sub 将Sheet1的A列的非空值写到Sheet2的A列()Range(Worksheets("数据库").Cells(ier + 1, 3), Worksheets("数据库").Cells(ier + 1, 3)).Hyperlinks.Ad... 阅1 转自网海漫步 公众公开 22-03-17 09:36 |
Dim d As New Dictionary.Dim arr.arr = Sheets(x).For y = 1 To UBound(arr)d(arr(y, 1)) = arr(y, 2)d(arr(y, 2)) = arr(y, 1)Dim arr, x.arr = Range(''a2:a12'')For x = 1 To UBound(arr)d(arr(x, 1)) = ''''Sub 字典求和汇总()arr = Range(''a2:b10'')d(arr(x, 1)) = d(arr(x, 1)) + arr... 阅1 转自先生草堂 公众公开 22-03-17 09:34 |
Sub 数组写入字典2()Dim d As New DictionaryOn Error Resume Next ''''错误继续执行 如果有重复会跳过arr = Range("a1:b" &Cells(Rows.Count, 2).End(xlUp).Row)For i = 1 To UBound(arr) j = arr(i, 1) m = arr(i, 2) d.Item(arr(i, 1)) = arr(i, 2) ''''修改解释 要修改的关... 阅1 转自时间剧毒 公众公开 22-03-17 09:32 |
EnableEvents = False cells(irow, 5) = "=单位名称" cells(irow, 7) = "=摘要" cells(irow, 11) = "=余额" Range(cells(irow, 14), cells(irow, 16)) = "=预内外收支NOP" cells(irow, 17) = "=审核Q" cells(irow, 18) = "=对帐U" Range(cells(irow, 19), cells(irow, 20)) = &qu... 阅1 转自sdwindy 公众公开 22-03-17 09:27 |
Public Function WebDaima(WebBrowser, BuFen) ''获取WebBrowser控件中网页源代码 Select Case BuFen Case "Body" ''只获取<body>与</body>之间的代码 WebDaima = WebBrowser.Document.body.innerhtml Case "All" ''获取整个网页源代码 WebDaima = WebBrowse... 阅1 转自zele 公众公开 17-08-20 20:07 |
Function GetSerialNumber(sroot As String) As LongDim lserialnum As LongDim r As LongDim strlabel As String, strtype As Stringstrlabel = String$(255, Chr$(0))strtype = String$(255, Chr$(0))r = GetVolumeInformation(sroot, strlabel, Len(strlabel), lserialnum, 0, 0, strtype, Len(strtype))GetSerialNumber = lserialnum'&... 阅262 转自林中雁 公众公开 15-10-06 19:21 |
用VB编写键盘拦截程序 — 编程爱好者 programfan.com我们知道,在一些程序中,有一些快捷方式(如:Shift键最小化、ESC键退出、Ctrl+S存盘、Alt+x退出等等)。窗体有一个 CommandButton 控件,并且 Cancel 属性设置为 True 时的 ESC 键、TAB键,KeyDown 和 KeyUp 用两种参数解释每个字符的大写形式和小写形式:keycode —显示物理的键(将 A 和... 阅117 转自林中雁 公众公开 15-10-06 19:20 |
定位字符串中某特定字符第N次出现的位置 | VBA实例教程。GetPosition = pEnd Function这个函数还是用了Instr,但用的形式和之前那个不太一样,Instr函数还是有另一种形式的,就是Instr(n,str1,str2),意思就是从str1字符串的第n个字符开始向后找,找到第一次出现str2的位置。Print sEnd Sub自定义函数GetPosition函数当原字符串中不包括要查找... 阅355 转自gblhp 公众公开 15-05-08 10:44 |
假如F盘有一个Excel文件test.xls,现在有另一个Excel文件要访问test.xls的数据,我们来看用VBA代码如何操作。示例:On Error Resume Next ''错误处理Name "f:\TEST.xls" As "f:\TEST123.xls" ''重命名Name "f:\TEST.xls" As "f:\dll\TEST.xls" ''移动文件Name "f:\... 阅53 转自xiangtui 公众公开 14-04-14 10:20 |
二、利用VBA文件处理语句来处理文件。示例:On Error Resume Next ''错误处理Name "f:\TEST.xls" As "f:\TEST123.xls" ''重命名Name "f:\TEST.xls" As "f:\dll\TEST.xls" ''移动文件Name "f:\TEST.xls" As "d:\TEST123.xls" ''跨驱动器移... 阅28 转自爱睡觉的猫 公众公开 14-04-14 10:10 |