创建一个宏，保存在“当前工作簿”中，将EXCEL关闭后，再打开后，提示我“已删除的部件: 部件
/xl/vbaProject.bin。 (Visual Basic for Applications (VBA))”。
创建的宏就没有，写的东西就没了。解决方法:在第一次创建宏的时候，将宏 “.bas”文...
分类：
其他好文 时间：
2014-05-26 06:41:32
阅读次数：
209
转自：http://blog.csdn.net/jyh_jack/article/details/2315345mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3) 则返回 "小欣无"instr(从第几个开始,字符串1,字符串...
分类：
其他好文 时间：
2014-05-23 03:00:37
阅读次数：
194
相信很多经常使用excel的同学为了格式美观经常需要把连续相同的单元格（如班级、类型）进行合并。如果数据量较小，手工点击合并即可。但如果是大量的数据，如几千行。那可真是麻烦！所以，作者在一次遇到较多单元格的时候变写了一段vba来实现。初次写是为了合并连续相同的行，后来了解到有些同事也需要，而且有时候...
分类：
其他好文 时间：
2014-05-19 07:05:01
阅读次数：
246
作者：iamlaosong
一个简单的函数，从包含有数字信息的字符串中取出这个数据，利用VAL函数将字符串转换为数值，该函数或略数字字符串后面的字母和汉字信息，所以，只要把数字前面的字母和汉字信息去掉就行了。
'函数，从字符串“ABC123456.78DEF”中取出数据
Function mydata(mystring As String) As Double
Dim...
分类：
其他好文 时间：
2014-05-15 11:16:23
阅读次数：
448
今天第一次尝试使用Excel宏。
要实现的功能是：1个xls文件中，有2个工作表。判断工作表是否筛选，如果筛选清除筛选。然后将一个工作表中的数据，粘贴到另一个工作表下方。
尝试了录制宏，然后个修改其中的代码。整个过程中，遇到了一些问题，在网上找，并试验，解决了部分问题。1）判断工作表是否处于筛选模....
分类：
其他好文 时间：
2014-05-15 07:54:07
阅读次数：
273
Public Function GetDataFromDSV(fpath As String)
As Collection Dim AllTextFormat(255) As Integer Dim i As Long For i = 0 To 255
AllTextF...
分类：
其他好文 时间：
2014-05-14 22:32:10
阅读次数：
470
作者：iamlaosong
我常用下面方式取得有效行数：
maxrow=sheets(1).[A65536].End(xlUp).Row
实际使用中发现这种方法存在2个问题:
1、高低版本不兼容，2007版最大行数增加以后，就不能用65536了，而要用1048576，即
maxrow = sheets(1).[A1048576].End(xlUp).Row
2、当最后一行不为空时，用这...
分类：
其他好文 时间：
2014-05-14 15:02:51
阅读次数：
292
利用VBA+OO4O构造CTAIS开放式通用平台2010-06-08 14:59:28 |
来源：税务信息化论文集 | 作者：于非 易飞 摘
要：文立足于CTAIS系统体系，探讨如何通过OO4O技术和VBA技术搭建ORACLE前端开放式通用平台，同时以通过最低编程技术满足基层信息化建设的要求，从.....
分类：
其他好文 时间：
2014-05-09 02:51:57
阅读次数：
438
首先今天要说的东西跟游戏无关，你是不是有时候会遇到，在某个网页上重复着几十次的简单而又无聊的录入或点击等工作？比如你的程序需要测试，需要注册大量的测试邮箱。比如你的老板是个变态，让你去各个论坛发大量的垃圾贴子（最无耻行为，纯属举例）。或者，你需要定时的到某一个网页上执行某一些行为，比如上班下班的出勤打卡系统，等等吧，如果有，那么我今天所介绍的或许会对你有帮助。当然，如果你要操作的这些网页都是自己开...
分类：
Web程序 时间：
2014-05-07 15:46:01
阅读次数：
491
实现密件抄送方式有很多种，多数的方法为设置Outlook规则。这里讲尝试使用VBA来实现此功能。
1、打开Outlook 2010 ，使用快捷键 ALT + F11 ，如下图：
2、刚开始左侧 ThisOutlookSession中代码是空的，填入如下代码：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel A...
分类：
其他好文 时间：
2014-05-06 22:02:28
阅读次数：
641
