VBA 事件
原创 2020-02-11 00:51:36
1994阅读
正在使用的工作簿,嫌窗口太多,不利于操作,想把窗口隐藏,该怎么做呢?Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿!" MsgBox "下面即将还原正在使用的工作簿!" Application.Visible = TrueEnd Sub点击运行程序后,出现如下结果接着出现弹窗工作簿还原了...
转载 2017-08-11 10:21:00
626阅读
2评论
'日志输出定义'--------------------------------shuchulog = 1 '0不输出日志,1输出日志logh = 0 '日志输出行初始值logl = "A" '日志输出列Dim logsheet As WorksheetSet logsheet = ThisWorkbook.Worksheets("shuchulogs") '定义日志输出工作表名'日志输出点'--
原创 精选 10月前
1702阅读
如何消除excel工作簿保护密码
转载 2018-08-09 12:40:35
1026阅读
1评论
目录Excel VBA函数定义合并所有工作簿REFRENCESExcel VBA函数定义合并所有工作簿直接合并Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As String...
原创 2021-06-09 20:32:09
1200阅读
【访问工作簿】 对已经打开的工作簿,可以通过使用索引号来访问工作簿,也可以通过名称来访问工作簿 【代码区域】 【打印结果】 现在打开的工作簿为: 【获取工作簿信息】 【代码区域】 【结果展示】 【新建工作簿】 【代码区域】 【结果展示】 【使用对话框打开工作簿】 【代码区域】 【结果展示】 【备份工
转载 2016-12-23 18:22:00
492阅读
2评论
目录Excel VBA函数定义合并所有工作簿REFRENCESExcel VBA函数定义合并所有工作簿直接合并Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As String...
原创 2022-02-10 17:01:00
1044阅读
Excel工作表(簿)保护
转载 8月前
136阅读
需求描述在点击单元格的时候,单元格所在行与列都变色显示实现方案打开Excle表格,按住ALT+F11双击上图中的ThisWorkbookPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Pattern = xlNone Rows(Targ...
转载 2018-08-03 14:14:00
579阅读
2评论
推荐使用插件易用宝,和方方格子(收费),当然代码熟练的可以自己敲代码。这只是我使用过的插件,做个记录 ...
转载 2021-05-13 08:44:00
502阅读
2评论
Sub汇总()Application.ScreenUpdating= FalseApplication.DisplayAlerts= False Dim i As LongDim mySht As WorksheetDim fname As Stringi= 1 '生成查找EXCEL的目录fname= Dir(ThisWorkbook.Path & "\*.xlsx") '在目录中循环Do
原创 2020-12-29 20:58:20
530阅读
问题:快速引用多个工作簿中同一位置的数据 解决思路:用简单函数连接+技巧操作 解决步骤: 第一步:直接引用第一个数据,并提取出其引用路径,如'C:\Users\小妖同学\Desktop\示例\[A001.xlsx]A001'!B2" 第二步:将路径中需要变动部分换成单元格地址 ="='C:\User
原创 8月前
373阅读
Excel也有专门统计工作簿信息的功能了,在审阅选项卡下:
原创 1月前
59阅读
Pandas 多个工作表、工作簿Pandas 读取多个工作表import pandas as pddf=pd.r
原创 2021-12-10 13:34:37
2437阅读
Pandas 多个工作表、工作簿Pandas 读取多个工作表import pandas as pddf=pd.read_excel('附件1.xlsx',sheet_name=None)for sheetname, data in df.items(): print(sheetname) print(data)注意一定要设置sheet_name=None设置后读取的数据返回的结果是按 工作表名:数据 的字典不设置 默认读取第一个工作表内容读取一组工作表import p
原创 2022-03-19 10:26:21
332阅读
同一文件夹内N个工作簿,每个工作簿中一个工作表,最终合并到一个工作簿内分工作表显示
原创 8月前
225阅读
本文出自Simmy的个人blog:西米在线 http://simmyonline.com/archives/331.html   用户时常会遇到这种问题,一不小心,按快了,文档就保存了,然后资料不见或者覆盖了,工作白做或者要加班加点做回来。遇到这种时候,我们也很无奈。虽然很同情,但是回天乏术。对于share drive上面的文档我们自然有备份,可以恢复昨天的备份,但是对于保存在用户本
转载 2009-06-23 19:11:39
1566阅读
我们在日常的工作处理中,也许你会遇到需要将某一个工作簿里的每一张工作表,分别另存为单独的工作薄,进行分别保存;如果是有若干个工作薄的话,我们采用纯手工操作……岂不是太显的太low?哈哈,这个时候如果有更为简便的方式就好啦!我们不慌,能够批量处理这个事情的方法有很多,我们今天来说说如何用VBA去解决这个小问题。其实VBA很简单,怎么个简单法呢?,请看动画视频:看了动画,是不是感觉非常的简单啦!处理数
工作薄引用的要点1、跨工作薄引用的EXCEL文件名用[]括起来;2、表名和单元格之间用!隔开;3、路径可以是绝对路径也可以是相对路径(同一目录下),且需要使用扩展名;4、引用还有个好处就是能自动更新总之,跨工作薄引用的简单表达式是:'盘符:\[工作薄名称.xls]表名1'!数据区域比如 'D:\[成绩表.xls]Sheet1'!A2:A7 如果是相对路径,还可以这样写:'[成绩表.xls]She
原创 2017-07-18 10:03:25
10000+阅读
  • 1
  • 2
  • 3
  • 4
  • 5