相信很多经常使用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
今天在程序库里面发现一个程序
可复制直接运行*&---------------------------------------------------------------------**&
Report ZDOWNLOAD*&*&--------------------------------....
分类：
其他好文 时间：
2014-05-12 11:39:57
阅读次数：
11474
利用VBA+OO4O构造CTAIS开放式通用平台2010-06-08 14:59:28 |
来源：税务信息化论文集 | 作者：于非 易飞 摘
要：文立足于CTAIS系统体系，探讨如何通过OO4O技术和VBA技术搭建ORACLE前端开放式通用平台，同时以通过最低编程技术满足基层信息化建设的要求，从.....
分类：
其他好文 时间：
2014-05-09 02:51:57
阅读次数：
438
在物理表中分配搜索帮助有两种办法：1.就是刚才我们分配搜索帮助在一个数据元素中，定义表的时候再把该字段分配给这张表，这样这张表中的这个字段就具有此搜索帮助的功能。2.在表中指定字段分配搜索帮助，具体如下：2.3.4.效果如下，查询表的时候：在abap中可以直接参考该表字段建立就无需指定搜索帮助了。P...
分类：
其他好文 时间：
2014-05-08 07:21:50
阅读次数：
371
SAP领航社区，开设了一个导师性质的师徒圈子，类似大学导师带研究生，导师给学生安排课题、分配任务、分享资料，让学生自学提高。我们的教学方法是以自学为主，辅导为辅助，在实践中积累经验掌握原理。主要方向ABAP、FICO、SD、MM、PP、HR、CS、CRM、Webdynpro、BO、BW 等等，经验丰富的老顾问带新徒弟，既可以教徒弟技术，又可以给徒弟推荐项目机会
（特殊说明：非线下或者网络授课，通过分享资料，让学生自学，不懂问导师，引导之路）...
分类：
其他好文 时间：
2014-05-07 15:35:46
阅读次数：
425
