Polyanthusun&睿谦

[...]

    开始一部新美剧的时候，我总是激动的，完成Friends三遍之后我开始转向其他美剧，目前在追的Lie to me，Gossip grils和被砍掉的heroes，随后lost已经完结了一段时间，我决定从verycd上托720的回来看，每个season就是接近30个gb啊，但是看着720的就是舒服~

    故事一开始从一位职业医生Jack的视角展开，一架客机坠落在太平洋的一个孤岛上，48名乘客侥幸生还。得不到好的医疗，Jack只能用最简陋的办法将奄奄一息的人们一个个救活。在为生存而抗争的过程中，Jack成了英雄。然而，即使英雄也会有不可告人的秘密…陆续的，几名性格突出的生还者都不断暴露自己的秘密和不堪回首之过往，而他们似乎都也具有一些过人的能力和本领，更有一些人为一些不解的谜困而困惑，岛上的一切给他们制造了更多的猜忌和故事，他们的命运将会怎么样?

    [...]

[...]

[...]

前天在办公室无聊，随手写了个小东西

可能你也遇到过这个问题，每天你生成一个excel的表，月底的时候你要把30天的表汇总到一个表里，你要打开每一个表之后再全选-copy-paste吗？

我就遇到这个问题，自己写了个vba，自动处理

总之，就是把多个xls文件里的内容合并到一个表里

由于技术不咋地，处理的过程中实际是打开每一个表，在关闭，如果数据表非常多，我测试超过100个垃圾内存就比较多了，也很慢，但是用getbit函数我有怕遗漏数据，在ec在研究一下吧。

下载点击这里

一些说明：

1.每个表你从那个sheet到处？必选的。
2.以哪一行数据为基准，如果你的数据部规则，那么截取数据将以那一列为空的时候为止。默认是A，这里尽量选择数据列长的情况吧。
3.点击process会让你选择excel表，这里只能选择.xls或是.xlsx的，选择其他格式会报错哦，选完之后就直接开始处理了
4.兼容off003和2007
5.剩下的看界面上的说明吧
6.show excel的作用：打开后会隐藏excel表格，点这个就显示了，Quit就不说了

版本：1.0 后期还有新功能加入，已经在计划了

小软件开源的，没啥技术含量也是借鉴前辈的写的代码放出，工程密码：polyanthusun

下面是一些截图

以下是代码：

模块1：

‘Pro by: Polyanthusun
‘Email: sunruiqian@ sd.chinamobile.com
‘website: http://polyanthusun.cn
‘Date:2010.7.28

‘===============================================================================

Dim myfs As String   ‘Public var
Dim ro As Integer
Dim path_file As String
Dim begin_row As Integer
Dim sheet_num As Integer
Dim strandar_col As String

Sub getname(path) ‘get filename form path string
Dim str As String

    str = StrReverse(path)
    myfs = InStr(1, str, “\”)
    myfs = VBA.Left(str, myfs – 1)
    myfs = StrReverse(myfs)
End Sub

Sub checkrow()
    If UserForm1.CheckBox1.Value = True Then
    begin_row = 2
    Else
    begin_row = 1
    End If

阅读全文 发个小东西

很久没看links的东西了，发现很多博主已经不能访问了，今天不能访问的全部砍掉，超过3个月没更新的也砍掉了喽~

友情链接旨在活跃互联网关系，心不在焉做的做怎可以？

Lists：

万花筒 技术类
木客网 个人博客，主要包括WordPress及电子设计相关内容
晓风晨月 个人blog
cPanel教程 迄今找到中文的最权威的cpanel教程了
潍坊街舞 同事的主站的关于舞蹈，很少有文艺方面的link
星期V-有图有真相 [...]

[...]

[...]