生病了,一点一滴的积累,慢慢康复,今年十月,我就 2 周岁了. 以下代码完成了excelhome中留的作业 http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=22#pid3114744 Sub mysub() Dim start As Double start = Timer '在这里添加你的代码 For i = 2 To 8 For j = 3 To Sheets(i).[B65536].End(xlUp…

最近在学习<菜鸟谈VBA最最基础入门<原创>>,其中第22节有一个VBA编程作业,实现对花名册进行分类. 自己花了点时间,自己丫丫学步,终于实现出来. 在原创聚集地cnblogs发布出来,鼓励自己的一点一滴的进步. Sub mysub() Dim i As Long Dim MAX As Long MAX = [A65536].End(xlUp).Row For i = 3 To MAX If Cells(i, 8) = "清镇" Then Select Cas…

虽然我前面讲过,在VBA中操作工作薄并不是件明智的事,但有些时候,还是避免不了要这么做.绝大多数情况下,我们要做的是获取到某个工作薄对象,并以此来获得其中的工作表对象,然后再对工作表中的数据进行处理.而后面这一部分(操作工作表)在前面已经讲过了,所以本章只讲如何在VBA中打开.关闭工作薄,以及介绍两个常用的工作薄对象.在VBA中打开工作薄有两种方法:显式打开及隐式打开. 1. 显式打开 显式打开即跟我们手动双击打开一个Excel文件一样,可以看到工作薄的内容,可以在里面进行各种操作.代码及示例如…

在网上找EXCEL多文件合并的方法,思路: 一.Linux 或者window+cmder,直接用命令行cat合并EXCEL文件,但是,需要安装辅助东西才能直接处理(也许也不可以,但是,可以用文件格式转换工具转换是可行的,把EXCEL文件转换成txt文件,再操作,操作好了,再转换成EXCEL格式):还有一种是perl或者Python有自己自带的EXCEL处理包,能像处理数组一样,实现直接处理EXCEL文件的目的 二.EXCEL自带VBA编程实现合并,但是,网上搜了很多,格式很类似的VBA脚本,都不…

全网最全的Android游戏源代码汇总 mod=viewthread&tid=5080&fromuid=5" target="_blank">http://neast.cn/forum.php?mod=viewthread&tid=5080&fromuid=5    AndroidUI设计之高仿系列 http://neast.cn/forum.php? mod=viewthread&tid=5293&fromuid=5  …

Option Explicit Sub yy() Dim d, arr, s$, i&, m&, w$ Set d = CreateObject("Scripting.Dictionary") arr = Sheet1.[a1].CurrentRegion.Value 'a1 数据 返回 a1 单元格周围的区域 ---直到 空行 空列 ) '定义数组 brr为 4列 所有数据的最大行号 w = InputBox("请输入要汇总的部门:" &…

工具 待破解的xlsm文件.Excel2010.Hex Editor 步骤 1.修改.xlsm后缀为.zip 2.使用压缩软件打开,进入xl目录找到vbaProject.bin文件,解压出来 3.使用Hex软件打开vbaProject.bin文件,查找DPB替换成DPx,保存文件,重新压缩,修改后缀名.zip为.xlsm 4.使用excel打开.xlsm文件,开发工具->查看代码,弹出错误提示框,点击“是”或“确定”.在VBAProject上点击右键,打开工程属性,重新填入密码,如:123456…

正在使用的工作簿,嫌窗口太多,不利于操作,想把窗口隐藏,该怎么做呢? Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿!" MsgBox "下面即将还原正在使用的工作簿!" Application.Visible = True End Sub 点击运行程序后,出现如下结果 接着出现弹窗 工作簿还原了! 点击下载附件…

sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10    '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sheets(1).Cells(1, i) Next End Sub…

后台打开工作簿读取内容源码: Sub subOpenWorkbook() Dim datebase As String datebase = "... ....xlsx" Application.ScreenUpdating = False '关闭屏幕 Workbooks.Open datebase, ReadOnly:=True '只读方式打开工作簿 Dim oWB As Workbook Set oWB = ActiveWorkbook ThisWorkbook.Activate…