![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 58
兰明明
这个作者很懒,什么都没留下…
展开
-
VBA 抽出文件夹下所有文件中指定单元格的内容
Sub output()Application.ScreenUpdating = FalseDim Mydir As StringDim i As Integeri = 2Mydir = ThisWorkbook.Path & “”ChDrive Left(Mydir, 1)ChDir Mydir'文件名Match = DirKaTeX parse error: Expected 'EOF', got '&' at position 143: …heet.Range("A"原创 2021-08-06 14:29:51 · 1736 阅读 · 0 评论 -
VBA多个sheet页合并为一个sheet页,并且加边框
Sub sumSheet()Application.ScreenUpdating = False'sheet数循环For j = 1 To Sheets.Count '如果不是当前活动sheet If Sheets(j).Name <> ActiveSheet.Name Then '有内容的行中加入边框 Sheets(j).UsedRange.Borders.LineStyle = xlContinuous '与下一个sheet内容之间原创 2020-07-09 13:46:14 · 371 阅读 · 0 评论 -
VBA 常用处理
1.禁止连续触发事件'EXCEL中有多个单元格有change事件,只有当前单元格发生改变时触发当前单元格对应的处理Private Sub Worksheet_Change(ByVal Target As Range)'禁止连续触发事件Application.EnableEvents = False'======主要处理略'允许连续触发事件Application.EnableEvents = TrueEnd Sub2.获取当前单元格的位置:Target.address3.获取当前单元格原创 2020-09-17 10:24:27 · 600 阅读 · 0 评论 -
VBA 列的隐藏和显示,密码验证
VBA 列的隐藏和显示,密码验证Sub button1_Click() 'default password finalPwd = "123456" ' If Sheets("Sheet1").Columns("E:G").Hidden = True Then 'INPUT PASSWORD inputPwd = InputBox("INPUT PASSWORD!", Default) If finalPwd = inputPwd Then原创 2020-09-14 16:30:32 · 962 阅读 · 0 评论