司徒无名的博客

2012-3-16 21:49:49 阅读19 评论0 162012/03 Mar16

我对国内的教程都普遍失望的。从学习的角度考虑，不一定非要绝对正确的开始讲起才是好教材。程杰老师的书，如果批评他的人，要么是没有读过，要么是高手来吐槽的。这两种人都可恶

作者 | 2012-3-16 21:49:49 | 阅读(19) |评论(0) | 阅读全文>>

关于蔡学镛老师的微博

2012-2-25 0:15:25 阅读25 评论0 252012/02 Feb25

如果你辛辛苦苦写了一本 IT 技术书，且你家米缸只剩下一把米。你到网上看到你的书已经变成电子版，大家都在盗版下载，你会 1) 大哭一场，发誓再也不写书 2) 试图通过法律途径解决未果，发誓再也不写书 3) 狂笑一场，彻底发疯了，再也写不了书 [疯]

今天偶尔看到蔡老师关于盗版电子书的言论，发表点不同意见，首先不同意盗版，但我有话要说。我实在不明白一些道理，请那些口口声声反对盗版的人出来对质，特别是搞IT又出版书，同时又口口声声反对盗版的：

①你所在的公司有人用盗版windows操作系统吗？全部是linux？你的office软件全部是正版的吗？为什么不从公司内部反对起，既然是这么有担当，这么有正义感的人

②你自己搞IT的时候，在作为学生的时候，你用过盗版的东西吗？你下载过国外免费的电子书吗？你在读书的时候用的编程工具全部不是crack的吗？

③这些理由并不是倡导盗版有理的，不要偷换概念。我反感的是那些口口声声反对盗版的，有自己用盗版的人，本质上是反对说说不做，虚伪的人士。

④你可以辩解说，那个时候不懂事，或者那个时候穷，那个时候那个时候，那个时候你都没成年吗？读大学不知道法律吗？

⑤自己用过盗版的，现在不用盗版的，可以出来反对盗版，但是不要以卫道士的姿态来宣布，所有用盗版的就是支持盗版，我生平买正版书超过万把块，不信我可以拿出各种证据对质，但是我也买过很多盗版书，当然，最多最多是下载电子书。

⑥从根本上杜绝盗版靠谴责人不道德的人是最不靠谱的。本身这是国家制度的问题，这是国家法律的问题。还有加上大环境的问题。真正要打击盗版的是那些靠盗版谋取利益的

作者 | 2012-2-25 0:15:25 | 阅读(25) |评论(0) | 阅读全文>>

请问网易博客，我哪里涉及到搜索引擎欺骗了？这种弱智的博客

2012-1-10 20:59:10 阅读26 评论0 102012/01 Jan10

尊敬的用户，你好! 你的《http://www.xtzj.com/read-htm-tid-120531.html》等日志中可能存在搜索引擎欺骗嫌疑,已被系统暂时隐藏，请您检查。若确认清理完毕，请点击申请恢复日志状态。

回复-历史消息

01-07 11:00

博客小管

尊敬的用户，你好! 你的《http://www.sciencenet.cn/u/何毓琦/》等日志中可能存在搜索引擎欺骗嫌疑,已被系统暂时隐藏，请您检查。若确认清理完毕，请点击申请恢复日志状态。

回复-历史消息

01-06 19:33

博客小管

尊敬的用户，你好! 你的《

作者 | 2012-1-10 20:59:10 | 阅读(26) |评论(0) | 阅读全文>>

Application对象的GetOpenFilename方法

2011-11-20 13:43:50 阅读47 评论0 202011/11 Nov20

Application对象的FindFile方法

Sub OpenFile()

If Application.FindFile = True Then '判断文件是否打开

MsgBox "选择的文件已打开！"

Else

MsgBox "没有打开任何文件！"

End If

End Sub

Application对象的GetOpenFilename方法

Sub GetFile1()

Dim fil As String

fil = Application.GetOpenFilename() '将选择的文件名赋给变量fil

Range("A1").Value = fil '将文件名写入A1单元格

End Sub

Sub GetFile2()

Dim fil As String

fil = Application.GetOpenFilename(filefilter:="Excel 97-2003工作薄(*.xls),*.xls")

Range("A1").Value = fil '将文件名写入A1单元格

End Sub

Sub GetFile3()

Dim fil As String

fil = Application.GetOpenFilename(filefilter:="Excel

作者 | 2011-11-20 13:43:50 | 阅读(47) |评论(0) | 阅读全文>>

正则表达式1

2011-11-7 10:14:33 阅读51 评论0 72011/11 Nov7

Regular expression

"规则"表达式，顾名思义是一种规则、模式等的表达方式。

我不知道为什么要翻译成正则表达式。

在vba中运用正则表达式需要vbscript的引用，VBScript是另一种vb类的语言，与VBA有差异。VBA没有正则表达式，需要添加VBScript的引用库。

例子：

Sub regularforfun()

Dim re, s

Set re = New RegExp

re.Pattern = "France"

s = "The rain in France falls mainly on the plains."

MsgBox re.Replace(s, "Spain")

End Sub

Sub regularforfun2()

Dim re, s, sc

Set re = New RegExp

s = Application.InputBox("输入你要找的字符串")

re.Pattern = Application.InputBox("输入你要寻找的单词")

sc = Application.InputBox("输入替换的单词")

Range("a2") = re.Replace(s, sc)

End Sub

Sub reforFun()

Dim re, s

作者 | 2011-11-7 10:14:33 | 阅读(51) |评论(0) | 阅读全文>>

EDATE

2011-10-28 23:23:11 阅读36 评论0 282011/10 Oct28

项目计划表

　

　

项目

开工日期

计划时长（个月）

预计完工日期

A

2010/5/3

5

2010/10/3

B

2010/6/21

7

2011/1/21

C

2010/8/12

17

2012/1/12

D

2010/9/30

2

2010/11/30

E

2010/2/28

15

2011/5/28

F

2010/1/24

4

2010/5/24

G

2010/12/7

13

2012/1/7

H

2010/11/16

3

2011/2/16

I

2010/3/31

6

2010/9/30

J

2010/4/15

8

2010/12/15

=EDATE(B3,C3)

=DATE(YEAR(B3),MONTH(B3)+C3,DAY(B3))

这两个公式的差异在于：当A1单元格的日期如2010/1/28 2010/1/29 2010/1/30 2010/1/31 日期时

EDATE(A1,1),month参数为1，跨过一个月，这四个日期都返回2010/2/28

=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1)),则依次返回2010/2/28 2010/3/1 2010/3/2 2010/3/3 也就是加上绝对日期30天

作者 | 2011-10-28 23:23:11 | 阅读(36) |评论(0) | 阅读全文>>

The DATEDIF Worksheet Function 转载

2011-10-28 21:26:26 阅读45 评论0 282011/10 Oct28

原文地址http://www.cpearson.com/excel/datedif.aspx

我进行了翻译：

The DATEDIF Worksheet Function

DATEDIF工作表函数

This page describes the undocumented DATEDIF worksheet function.

本页描述了官方文档没有介绍的工作表函数DATEDIF

Introduction To The DATEDIF Function

DATEDIF 函数介绍

The DATEDIF function computes the difference between two dates in a variety of different intervals, such as the number of years, months, or days between the dates. This function is available in all versions of Excel since at least version 5/95, but is documented in the help file only for Excel 2000. For some reason, Microsoft has

作者 | 2011-10-28 21:26:26 | 阅读(45) |评论(0) | 阅读全文>>

Excel版本（转载）

2011-10-28 20:05:17 阅读51 评论0 282011/10 Oct28

Excel 2010是Excel的第14个版本，这个名称代表着Excel的第14版。微软公司是一家成功的公司，但它的版本编号十分混乱。Excel 2010实际上代表Excel的第12个Windows版本。下面我们简要介绍Excel的主要Windows版本。

Excel 2

作为Windows Excel的原始版本，Excel 2于1987年问世。Excel 2的版本号是相对于macintosh版本而言的（这是他们的原始版本）。因为当时Windows还不是很流行，所以这个版本只包括了一个Windows的运行版本，它是一种特殊的版本，足以使Excel顺利运行。根据现在的标准看，这个版本过于粗糙。

Excel 3

1990年底，微软公司发布了Excel 3 for Windows。这个版本无论从外观还是性能上都做了重大改进。它增加了工具栏、绘图功能、工作表大纲、加载宏支持、3D图表、工作组编辑等。

Excel 4

Excel 4在1992年投入市场。这个版本在市场上产生了不小的反响，因为这时Windows已经家喻户晓。这个版本增加了很多新功能，并且可用性也增强了，使初学者在短时间内就可以掌握。

Excel 5

Excel 5是在1994年初投入市场的，这个版本也推出了更多的功能，包括多页面工作簿和新的VBA宏语言。和其他的早期版本一样，与各类电子表格程序比较，Excel 5在行业杂志上面获得不少赞誉。

Excel 95

Excel 95（也被称为Excel

作者 | 2011-10-28 20:05:17 | 阅读(51) |评论(0) | 阅读全文>>

Eomonth返回最后一天和开始一天

2011-10-28 19:28:42 阅读29 评论0 282011/10 Oct28

日期

月首日期

DATE

月末日期

DATE

月首日期

EOMONTH

月末日期

EOMONTH

2008/2/21

2008/2/1

2008/2/29

2008/2/1

2008/2/29

2009/2/2

2009/2/1

2009/2/28

2009/2/1

2009/2/28

2010/1/12

2010/1/1

2010/1/31

2010/1/1

2010/1/31

2010/2/18

2010/2/1

2010/2/28

2010/2/1

2010/2/28

2010/3/26

2010/3/1

2010/3/31

2010/3/1

2010/3/31

2010/4/24

2010/4/1

2010/4/30

2010/4/1

2010/4/30

2010/5/2

2010/5/1

2010/5/31

2010/5/1

2010/5/31

2010/6/27

2010/6/1

2010/6/30

2010/6/1

2010/6/30

2010/7/20

2010/7/1

2010/7/31

2010/7/1

2010/7/31

2010/8/12

2010/8/1

2010/8/31

2010/8/1

2010/8/31

2010/9/19

2010/9/1

2010/9/30

2010/9/1

2010/9/30

2010/10/23

2010/10/1

作者 | 2011-10-28 19:28:42 | 阅读(29) |评论(0) | 阅读全文>>