快速学习VBA的方法莫过于录制宏了。

先开一个新宏，然后操作ms office，然后停止录制，打开宏的代码一看，刚才的操作是怎么样的语句，就学会了。

很快吧……

嗯，当然，VB的那些语法也很简单就是了。

看完这个短片，技术的进步还真是神速。

大概不久的将来，那些赌神赌圣之类的大片都会把这种技术用上去的，嘎嘎，将灯打在对手的牌上，反射到对手的脸上，从脸上的细微变化分析牌的特点。

感觉很可爱，抬杠的继续抬杠，

不过有些是我不懂的，于是就不发言了。

最后结果依靠投票决定。

最近无聊做文档，跟领导建议不要用word做，没被采纳，无奈文档给洋人看，全角符号要改半角，于是仿照现成例子写个macro:

Sub 字母数字符号全角转半角()

‘

‘ 字母数字符号全角转半角 Macro

‘ 宏在 2005-10-14 由 ZhengRC 创建

‘

Dim qjsz, bjsz As String, i As Integer ‘定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型

qjsz =

０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ，．／＜＞？；＇：

［］｛｝＼｜＝－＋＿）（＊％＄＃＠！｀～＆　

bjsz =

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./

?;’:

[]{}\|=-+_)(*%$#@!`~

Selection.WholeStory

For i = 1 To 95 ‘循环10次

    With Selection.Find

        .Text = Mid(qjsz, i, 1) ‘mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字

        .Replacement.Text = Mid(bjsz, i, 1) ‘将用于替换的相应位置的半角数字

        .Format = False ‘保留替换前的字符格式

        .Execute Replace:=wdReplaceAll ‘用半角符号替换全角符号

    End With

Next i

End Sub

宽容是一种美德。

当你看到别人写的代码很难理解，或是风格很不合你的心意。不要批评它。

你知道，这就好像你的普通话说得并不那么好，让别人理解一样。

图片我可没版权啊，就贴贴而已。

Watch windows的,左栏是变量名,右栏是变量值。当显示方式定为hex的时候，关掉，重新debug，选数据显示为十进制，于是出现左栏为16进制，右栏为10进制的不同步。

　　Scarborough Fair                   

　　Are you going to Scarborough Fair

　　Parsely sage rosemary and thyme

　　Remember me to one who lives there

　　She once was a true love of mine

　　Tell her to make me a cambric shirt

　　Parsely sage rosemary and thyme

　　Without no seams nor needle work

　　Then she will be a true love of mine

　　伴唱：

　　On the side of hill in the deep forest green

　　Tracing of sparrow on snow crested brown

　　Blankets and bed clothers the child of maintain

　　Sleeps unawafe of the clarion call

　　Tell her to find me an acre of land

　　Parsely sage rosemary and thyme

　　Between the salt water and the sea strand

　　Then she will be a true love of mine

　　伴唱：

　　On the side of hill a sprinkling of leaves

　　Washes the grave with slivery tears

　　A soldier cleans and polishes a gun

　　Sleeps unaware of the clarion call

　　Tell her to reap it with a sickle of leather

　　Parsely sage rosemary and thyme

　　And gather it all in a bunch of heather

　　Then she will be a ture love of mine

　　伴唱：

　　War bellows blazing in scarlet battalions

　　Generals order their soldiers to kill and to fight for a cause

　　They have long ago forgoten

　　Sleeps unaware of the clarion call

sigh……

上周在深大上了四天的课，里面树很多，人比较少。啧啧

荔枝和龙眼的开花了，鲜绿鲜绿的，深大的mm们身材都很好，虽然样子都不咋的。

深大的食堂比较差，没什么好吃的。

还是VC6，啧啧。