Excel Blog http://blog.excelhome.net/ 1 4.60 Final master@excelhome.net <![CDATA[跟我学Excel 2010/2007简易教程1500篇下载]]> http://blog.excelhome.net/user1/apolloh/1194.html apolloh 2010-2-3 18:48:00 Excel 2010/2007取代2003只是时间问题！Excel 2003所能办到的事，2010/2007也能办到，而且能办得更好。现在就开始接触Excel 2010/2007，也算是顺应时代的潮流吧。

才发现新版的博客程序新发的文章，游客无法下载附件。修改一下，请到如下地址下载附件，谢谢！

请点击这里下载：下载地址

]]> <![CDATA[在VBA中调用调色板的几种方法（下篇）]]> http://blog.excelhome.net/user1/chrisfang/1193.html chrisfang 2010-2-2 12:50:00 （续前）

方法三：调用WindowsAPI，调用Windows的调色板。

Private Type CHOOSECOLOR
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As Long
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As Long
End Type
Private Type RGBColor
    R As Byte
    G As Byte
    B As Byte
    space As Byte   '用作间隔
End Type
Private Declare Function ChooseColorA Lib "Comdlg32" (pChoosecolor As CHOOSECOLOR) As Long
Dim CustColors(1 To 16) As RGBColor
Private Sub CommandButton3_Click()
    Dim CColor As CHOOSECOLOR
    With CColor
        .lStructSize = Len(CColor)    '结构长度
        .lpCustColors = VarPtr(CustColors(1))    '存储自定义颜色的缓冲区地址，CustColors为公共变量，用于保存自定义颜色，以便于用户下一次打开调色板时仍能够使用前一次的自定义颜色
    End With
    If ChooseColorA(CColor) = 0 Then Exit Sub    '等于0表示按下了取消键
    Me.Label1.ForeColor = CColor.rgbResult
End Sub

此方法为API调用，调用的是Windows系统的调色板，稍显繁琐。

其中CColor.lpCustColors指向16种自定义颜色的地址，如果要在程序运行过程中保存用户的自定义颜色，使得任何时候打开调色板都可以继续使用之前所定义的颜色，可以通过定义CustColors(1 to 16) As Byte为公共变量，然后使用VarPtr函数转换后将VarPtr(CustColors(1))赋值给CColor.lpCustColors。上面的代码中定义了类型RGBColor，主要用于方便程序处理中取得自定义颜色的RGB值，实际使用中并非必需。

如果不需要保存自定义颜色，lpCustColors的赋值比较随意。

 

方法四：使用CommonDialog控件，调用Windows调色板，需要系统控件支持。（Windows7中好像没有这个控件）
Private Sub CommandButton4_Click()
    On Error GoTo zz
    Me.CommonDialog1.CancelError = True
    Me.CommonDialog1.ShowColor
    Me.Label1.ForeColor = CommonDialog1.Color
    Exit Sub
zz:
End Sub

此方法也是调用Windows中的调色板，其缺点就是需要附带控件，Xp中一般都包含了CommonDialog控件。

附件如下：调色板.rar

综合以上几种方法来看，个人比较推荐方法二，简单易行，而且使用的是Excel中的调色板，还可以自定义颜色。如果对API比较熟悉，也可以使用方法三。除此以外，也可以自己制作一个调色板窗体供用户选择颜色。例如下面这个John-Walkenbach的作品：
http://spreadsheetpage.com/index.php/site/tip/creating_a_color_picker_dialog_box/

在论坛中查看此帖

 

]]> <![CDATA[在VBA中调用调色板的几种方法（上篇）]]> http://blog.excelhome.net/user1/chrisfang/1192.html chrisfang 2010-2-2 12:39:00

在有些程序中，需要向用户提供选择颜色的功能，调用Excel或Windows的调色板是一种比较理想的交互方式，关于在VBA中如何调用调色板，本人总结了以下几种方法：

 

（以下程序以用户窗体中调用调色板修改Label1的标签字体颜色ForeColor为例）

 

方法一：调用单元格格式中的“字体”选项卡对话框。
Private Sub CommandButton1_Click()
'保存活动单元格当前字体格式设置
    With ActiveCell.Font
        x_name = .Name
        x_fontstyle = .FontStyle
        x_size = .Size
        x_Strikethrough = .Strikethrough
        x_Superscript = .Superscript
        x_Subscript = .Subscript
        x_OutlineFont = .OutlineFont
        x_Shadow = .Shadow
        x_Underline = .Underline
        x_ColorIndex = .ColorIndex
    End With
    dlg = Application.Dialogs(xlDialogActiveCellFont).Show    '调用活动单元格字体设置选项卡对话框
    '************其他类似对话框*************
    'Application.Dialogs(xlDialogFontProperties).Show
    'Application.Dialogs(xlDialogFormatFont).Show
    'Application.Dialogs(xlDialogFont).Show
    'Application.Dialogs(xlDialogPatterns).Show   '单元格底纹设置
    'Application.Dialogs(xlDialogReplaceFont).Show  '查找替换对话框中的字体设置
    'Application.Dialogs(xlDialogStandardFont).Show
    '************************************
    If dlg = True Then
        Application.ScreenUpdating = False
        Me.Label1.ForeColor = ActiveCell.Font.Color
        '恢复活动单元格原有字体格式设置
        With ActiveCell.Font
            .Name = x_name
            .FontStyle = x_fontstyle
            .Size = x_size
            .Strikethrough = x_Strikethrough
            .Superscript = x_Superscript
            .Subscript = x_Subscript
            .OutlineFont = x_OutlineFont
            .Shadow = x_Shadow
            .Underline = x_Underline
            .ColorIndex = x_ColorIndex
        End With
        Application.ScreenUpdating = True
    End If
End Sub

这个方法的缺点是显示的对话框中不仅仅包含颜色设置，还有字体、加粗、斜体等等其他字体格式，虽然在代码中屏蔽了颜色以外的设置功能，但还是容易引起用户误解。当然，如果需要设置字体的更多格式，还是比较适合使用此方法。

 

方法二：调用Excel中的“编辑颜色对话框”

在Excel的选项设置中，有一项Excel调色板的设置（Excel2003菜单：工具—选项—颜色—修改），可以对Excel调色板中的56种颜色进行编辑修改自定义，此方法就是调用这里的编辑颜色对话框。
Private Sub CommandButton2_Click()
    oldcolor = ActiveWorkbook.Colors(1)   '保存活动工作簿中调色板第一格的当前颜色
    If Application.Dialogs(xlDialogEditColor).Show(1) = True Then    '调用编辑颜色对话框，选择的颜色将返回到调色板的第一格
'************其上一级对话框，但不太适合使用*************
'Application.Dialogs(xlDialogColorPalette).Show
'Application.Dialogs.Item(xlDialogColorPalette).Show
'*************************************************
        Me.Label1.ForeColor = ActiveWorkbook.Colors(1)
        ActiveWorkbook.Colors(1) = oldcolor   '恢复活动工作簿调色板第一格的原有颜色
    End If
End Sub

这个方法是个人比较推荐的一种方法，操作简单。网上有不少地方都提到使用Application.Dialogs(xlDialogColorPalette).Show这个对话框，但从实际使用上来看，还是现在这个对话框（xlDialogEditColor）更合适。

 

（未完）

]]> <![CDATA[《完美Excel》(第2期)发布了]]> http://blog.excelhome.net/user1/fanjy/1189.html fanjy 2010-1-6 14:41:00 又有惊喜了！《完美Excel》(第2期)终于发布了！希望大家多提建议。
本期主要内容为Office功能区的开发，汇集了大多数权威的基础资料，相信有兴趣的读者在学习后，会顺利地开发出适合自已的Office功能区界面来。

下载：

]]> <![CDATA[Excel 2007功能区开发大全]]> http://blog.excelhome.net/user1/fanjy/1187.html fanjy 2009-12-31 17:01:00 2010年到了，祝大家新年新进步。给大家送礼了，希望大家喜欢。这里，将学习整理的RibbonX开发系列文章汇总于此，供有兴趣的朋友参考！

注：请尊重作者劳动，转载请注明链接。

]]> <![CDATA[《我爱弹钢琴》窗体版]]> http://blog.excelhome.net/user1/chrisfang/1186.html chrisfang 2009-12-28 13:52:00 《我爱弹钢琴》窗体版

附件： 我爱弹钢琴V1.2.rar

程序简介
本程序是在原有非窗体版的基础上改进的版本（原版本见此贴：http://club.excelhome.net/thread-488256-1-1.html），这两个版本均是利用Windows API调用MIDI软波表功能来使用电脑模拟钢琴发音。程序的基本原理和Excel并没有多大关系，只是利用了Excel的VBA开发环境和数据存储方式加以实现。其中的原版本使用了工作表模式来实现，没有使用窗体和控件，更多地体现了Excel工作表的元素应用，例如条件格式、数据有效性序列、拼音指南等等。
【原版本截图】：

 


而现在这个版本使用窗体来实现，更多地体现了界面的美观化、操作的人性化、容错性的提高、并且支持更多功能扩展。

主要功能

1，【弹奏】打开工作簿，选择“启用宏”启动程序。下方状态栏显示“就绪”后，即可使用鼠标或电脑键盘开始弹奏钢琴（记得打开音箱和系统中的小喇叭）。使用鼠标可以直接在程序的界面上点击钢琴键盘弹奏，如果使用电脑按键进行弹奏，则可以勾选上方功能区右侧的“按键提示”复选框，此时钢琴键盘上会显示对应的电脑按键，对照按键即可弹奏。

2，【按键、音阶提示】功能区的“按键提示”和“音阶提示”复选框可以根据需要进行勾选，“按键提示”显示键盘对应按键，“音阶提示”则显示C调下的音阶对照以及当前所选择的音调。

3，【音量、音调调节】功能区的第一个按钮为“音量调节”按钮，点击后出现音量滑动条，可以调节系统主音量和MIDI设备音量大小（同时调节）。
      功能区的第二个按钮为“音调选择”按钮，点击后可以选择不同的音调基准。

4，【收藏曲目】功能区的第三个按钮为“收藏曲目”按钮，程序中已经内置了一些钢琴弹奏的曲目，点击此按钮选择其中的内置曲目后，可以再通过点击右侧的三角形“播放”按钮播放内置曲目，程序会在播放钢琴声音的同时显示键盘按键位置。在播放内置曲目过程中，不再接受用户按键或鼠标点击琴键的动作。播放过程中可以点击功能区中的正方形“停止”按钮终止播放，播放结束后可以再次点击“播放”按钮进行播放，或是选择其他内置曲目进行播放，也可以进行自由弹奏。
       收藏曲目中有一首“EH欢迎您”，是Excelhome热心会员根据北京欢迎您曲调改编的歌曲。在播放这首内置曲目时，会在功能区右侧区域同步显示其对应的歌词字幕。

5，【录音和回放】功能区右侧的“录音功能”复选框在勾选以后，程序进入录音模式工作状态，不再允许内置曲目的选择。用户准备好进行弹奏录音后，可以点击功能区中红色圆圈图标的“录音”按钮开始录音，此时用户的按键动作和按键之间的时间停顿都将被实时记录下来，直到点击功能区中的正方形“停止”按钮停止录音。在停止录音后，可以点击“播放”按钮收听录音回放，同时查看记录下来的按键操作。在播放过程中，不再接受用户按键或鼠标点击琴键的动作。播放过程中可以点击功能区中的正方形“停止”按钮终止录音的播放，播放结束后可以再次点击“播放”按钮进行回放，也可以再次点击“录音”按钮开始新的录音操作，也可以进行自由弹奏。进行新的录音时，会覆盖原有用户录制的曲目（不影响程序内置曲目）。

6，【其他注意事项】要退出录音模式，可以取消“录音功能”复选框的勾选，恢复到正常模式，此时播放内置曲目功能同时恢复有效。注意，在录音按钮按下后，系统长时间处于按键记录状态，如果不再需要记录，记得点击“停止”按钮终止录音，避免长时间消耗系统资源。

 

 

 

在论坛中查看此帖：http://club.excelhome.net/thread-515429-1-1.html

]]> <![CDATA[《Excel2007实战技巧精粹》]]> http://blog.excelhome.net/user1/xolf/1185.html xolf 2009-12-26 11:28:00 ]]> <![CDATA[矛厕的蚊子]]> http://blog.excelhome.net/user1/guoguo/1183.html guoguo 2009-12-11 22:16:00

“我前世是贵族。”我得意的；

“我前世是青瓦。”他如是说。

 

看了一系列蚊子的蚊帐，才发现原来蚊子也是有文化有内涵有知识的种类，只是因为与人类的沟通出现障碍，一直被划分到“四害”里。其实我目前也不具体清楚“四害”到底是哪几种，但是很显然，蚊子是一害。

 

蚊子传播病毒，在人类看来，其实在蚊子看来是一种另类的文化传播，只是人类无法抵御而已，受到了侵害所以要反击要消灭。可是爱情何尝不也是一种病毒，在人类传播，蚊子可没有站出来要消灭爱情，因为蚊子更进化，能理解爱情的含义，虽然也有被爱情害死的先例。

 

当我看到划着不优美的曲线飘落在地上的蚊子时，我很伤感，或者这只蚊子正是因为爱情而亡，落入人的爪爪里，掉进人的键盘里，背后的故事人又如何能知晓呢，即使是是蚊言文发源地的茅厕，也仅仅就其思维方式而看到了一些关于蚊子的表象，认为蚊子的死应该是不凄美的。

 

面对蚊子的嗡嗡声，茅厕烦躁了。可茅厕又如何知道这正是蚊子在唱着爱情葬歌呢，为了爱情的结晶，是一定要吃人血的，可这一去未必能全身而退，转身即是百年……你情我浓彼此依依不舍，茅厕只知道蚊子又开始干扰环境了，又要做坏事了，不屑的鄙视着蚊子的葬歌。是啊，牛都说不要对它谈情它不懂了，何况一个茅厕咧。

 

于是茅厕既而想到了跳蚤的好处来，跳蚤即使做了坏事也不留名，还得等几个小时之后才会发现被咬的痕迹。但是矛厕没有被跳蚤咬过，又如何能感受到被咬的痛楚和难过呢。矛厕有点似叶公好龙，遥遥的喜欢着，如果矛厕知道被跳蚤咬了之后的感受是痒得难过想抓又疼不抓又痒抓得出血还不解恨时时的痒时，矛厕想来就是被真龙吓得屁滚尿流的时候。

 

矛厕还幻想过自己不知道来自何方的一匹狼，文化矛厕嘛，有这样那样的想法都是很自然的，但是很显然这次文化的很成功，终于想到了狼的无助不被人所理解既而产生的一种凄美，仅仅因为一女孩的意外停留的眼神而致使矛厕文化乱了心弦，胡乱的做了许多美梦，这也是矛厕文化的进步，瞧，被人理解是一件多么美妙的事。我想起了矛厕文化关于蚊子的前奏嗡嗡嗡，蚊子该是多么的委屈和无奈，只能不屑的表达在心底。

 

最被矛厕文化看不起的前奏，却是人的专利。无论做任何事都会有前奏，马路上才有那么多喇叭声，而菜市场里的吵架多恰是因为前奏没做好，而家庭的不和睦也是前奏功夫没做足，而最最为人类所赞美的爱情，不也得送花美言才能获得芳心或狼心么。我想矛厕文化省略了前奏直接冲一美女说：妞，我看上你了。人会以为疯人院的围墙倒了。

 

那片前世的青瓦不是这样的，其实，我的前世是贵族屋檐下的一溜冰勾，生命何其短暂，但是因为挂住我的那片青瓦，让我更加晶莹剔透，当早晨的一束阳光照在我身上时，我能看到青瓦身上泛起的堇色光芒，我与青瓦的缘分仅仅是一个冬季，还未来得及告诉青瓦，我是多么的喜欢他，将我捧在手心里的温暖，让我度过了一个如春天般的冬季。

 

这世，他是矛厕，我却是只蚊子，年轮又将我们仅仅的联系在一起……

]]> <![CDATA[[转帖] 什么才叫电脑高手？如何成为电脑高手？]]> http://blog.excelhome.net/user1/gvntw/1182.html gvntw 2009-11-15 15:55:00 http://hi.baidu.com/%BF%E1%D7%A7%CB%A7%B4%F4/blog/item/ab4c31cbc930361ebe09e69b.html
建议:
首先，支持你！

要想成为电脑高手，首先要对电脑报以极大的兴趣和热爱！

不要以为学习电脑是多么难的事，不要以为成为高手是高不可攀，所谓的电脑高手：
他只是比别人更执着
他只是更喜欢思考
他只是善于总结经验
他只是动手能力很强
他只是把电脑玩的更彻底

一、提倡自学

对初学者，老师引进门很重要，但以后就要靠自学。自学能力对于计算机学习尤为重要，原因就是计算机发展奇快，掌握了自学方法，具备了自学能力，才能应付计算机日新月异的发展形势。有人说，"自学，谈何容易！"我说别的学科自学可能较难，而计算机却相对容易一些。为什么这样说呢？因为计算机越来“平易近人"，让人能够看得见、摸得着。能够让人动的东西就好学，比如几岁的娃娃就敢去开电视机和调台，能够去控制VCD等，难道电视机和VCD机不是高科技产品吗？计算机作为学习对象，理论知识和实践环境是统一的，学习内容和进度自己可以掌握，自学当中有弄不懂的东西，大多可以通过上机加以解决。因此，我说它易于自学、便于自学。当然，有一本便于自学的指导书就更好了。

二、强调动手
计算机这个学科实践性特强，不动手是学不会的。计算机从诞生那天起就被人蒙上了神秘的面纱，许多专著像"天书"，让初学者望而生畏。但是，很多小孩子为什么能把计算机用得那么好呢？窍门在哪儿呢？动手！一动手就会感?原来如此！没有什么了不得"！这样，就会越学越轻松、越学越有兴趣。边动手边动脑是计算机学习的基本模式，可以自然而然地摈弃那种死记硬背、"纸上谈兵"的学习模式，既动手又动脑，形成生动活泼的学习氛围。动手，还能强化理论联系实际的优良学风、培养实干精神。

三、注重应用
在学习计算机知识与技能的过程中，要想到"用"，"用"到自己的学习、工作和生活中。作为智力工具，作为人脑的延伸物，让计算机帮助我们思维、论证、决策，以提高分析问题和解决问题的能力。人们常说"熟能生巧"，泛指学用一般工具，对学用计算机这种智力工具，就不仅仅是"生巧"了，而且还"益智"，即有利于开发智力。计算机中浓缩着人类智慧的结晶，集成着现代人的思维方式和科学方法，通过人脑指挥电脑、电脑帮助人脑的过程，会使人越来越聪明，越来越能干。在新世纪大智大勇，富有创造才能的人，一定是会使用电脑帮自己工作的人。

四、上网
计算机教育不仅仅是学科教育，更重要的是一种文化教育。目前，分布在五大洲的几千万台计算机已经联到了互联网上，形成了一种新的文化氛围；会不会使用网络成为衡量现代人文化水准的一个新尺度。在网络文化氛围中，获取信息、处理信息、交流信息的能力十分重要 庖彩窍执 说囊恢只 灸芰Γ
五、有益的考试
是学习电脑的技术还是学习专业知识？是学习操作还是学习应用？是仅仅和电脑交朋友还是要熟练地掌握？不同的层次、不同的要求就有不同的回答。对于绝大多数人来说，学习电脑不是为了成为一名计算机专家，而是为了应用。电脑是高科技的产品，它的内部结构、工作原理，硬件的制造技术极其复杂，是科学的象牙之塔。但是它的使用又是那么方便、简单，学习电脑的基本操作要比学开汽车，或学习一个学科知识容易得多。这是其他机器所根本不能相比的。现在一些所谓自动洗衣机、傻瓜相机等机器很容易使用，就是因为它们内部安装了"微型电脑"的缘故。正是由于电脑的这种特殊性，因此学习电脑从初级到高级有多个层次。这与照相一样，可以学习用"傻瓜相机"一按就照的初级摄影，也可以学习用专业相机、具备丰富专业知识的高级摄影。可以有：与电脑交朋友、用电脑帮助学习、学习基本操作技能、学习电脑使用、学习电脑的应用、学习一些电脑基础知识等几个层次。

只要我们掌握以上的几点，我们的学习将会如鱼得水，"海阔凭鱼跃，天高任鸟飞"。在信息海洋中游弋的时代就要到来了。


对你的建议:

1.结识一些电脑高手，高手能给你很有用的经验，帮你少走弯路，是成长的捷径。
2.玩电脑上自带的挖地雷游戏——锻炼鼠标的手感和对鼠标的控制能力。
3.熟悉键盘，电脑不是个娇气包，只要不是大卸八块，一般不会出问题，所以你大可以在键盘上胡乱敲一气，大不了关了电源过一会儿再开机。不过既然要学就要学好，一开始就要学会正确的方法——打字的姿势等等。
4.至少学会一种输入法，我个人建议用5笔或智能ABC。
5.首先学会上网！这很重要，也很简单。首先应该学会搜索。网上几乎有你想要的任何知识，有你想得到的任何问题。比如，在SOHU、SINA、163等大型网站的搜索栏里键入“学电脑”就可以找到天文数字的条目，包括我们正在回答你问题的这个网页。
6.买一款好的电脑学习软件，边学边用。
7.玩游戏，这可是学习电脑的捷径。


DOS是英文Disk Operating System的缩写，意思是“磁盘操作系统”，是Windows的前辈。

DOS和Windows的最大区别是：DOS一次只能同时运行一个程序，而Windows是多任务系统，可以同时运行多个程序。比如，你可以一边听歌一边上网，而这在DOS下是绝对做不到的。

其次，DOS是命令行操作，程序运行简单、直接。而Windows是图形界面操作，比较直观，但真正的操作在后台，我们看不到。

实际上，除了多媒体的部分功能在DOS下无法实现以外，（比如看电影）大多数的计算机功能，在DOS下同样能实现，比如DOS下也可以联网。

虽然现在都是Windows的天下，但DOS还是很有用处的，如著名的备份还原系统的GHOST软件，目前还只能在DOS下运行；在DOS下安装的Windows是最稳定、纯净的；解决硬件问题、进行日常维护和维修，如刷BIOS版本，也离不开DOS；编程软件的运行，如大名鼎鼎的C语言，也在DOS下运行。

总之，DOS远还没有到退出历史舞台的时候，它的作用非常大，一个真正的电脑高手，必定会DOS的操作技能。]]> <![CDATA[[转帖]两条腿走路：为技术人才提供恰当的晋升通道]]> http://blog.excelhome.net/user1/gvntw/1178.html gvntw 2009-10-17 20:44:00
将合适的人放到合适的岗位上，是企业的领导者最应该关注的问题之一。但是许多时候，这个目标更象一句口号，而非一项实际可执行的战略，或者仅在企业的战略规划图中占据了显要位置，而缺乏具体可实施的策略、制度和方法上的保障。
在许多富有经验的领导者看来，实现这一战略目标的最直接的做法，就是为企业制定一套适合自身情况的人力资源管理制度。通过一套规章制度，以及HR人员的执行，从员工的招聘、培养和提拔等各个阶段，为企业发现人才、使用人才和保留人才提供强有力的保障。
两种通道共存
在许多企业的人力资源管理制度中，都为员工提供了多方位的发展渠道，比如管理晋升通道、技术晋升通道。
管理晋升通道让那些有着优秀的管理能力、领导能力和沟通能力的员工，能够在管理职位上更好的发挥出自身的能力和作用；技术晋升通道让那些有着卓越的专业能力、钻研精神和技术敏感度的员工，能够在专业岗位上更出色的发挥出自身的优势和特长。
说到底，企业的管理岗位毕竟数量有限，既不能毫无原则的增加管理岗位，也不能坐视技术专家黯然离开，只有通过与管理晋升通道相得益彰的技术晋升通道，为技术专家们提供企业内部的各级技术职称，并配合设置相应的薪资制度和福利待遇，让无意于管理岗位的技术人才们也可以通过提升专业技能获得地位和薪酬上的晋升，增强员工的满意度和忠诚度。
两种通道的共存，既可以避免员工为了晋升无视个人的特点去争夺有限的管理岗位，也可以避免技术型员工由于看不到发展的前景而选择离开，造成企业核心技术人才的流失，还可以避免技术专家因转入管理岗位而不适应，既无法发挥原有的技术专长，也无法胜任现在的管理职责，给企业和个人都造成难以挽回的损失。
两种通道的共存，为不同类型的员工提供了更适合的发展空间，技术晋升通道是管理晋升通道的有益补充，两者之间是相互配合的，只有具备了这两种发展通道的人力资源制度才是完善和有生命力的，只有彻底贯彻了这两种晋升制度的企业才能真正的发挥出各种人才的优势，真正具备对优秀人才的吸引力和凝聚力。
技术晋升的缺失
然而，从目前许多企业的现状来看，领导者并没有把这两种通道的放在同样的高度来考虑，他们往往更重视管理人才的选拔和提升，而对技术人才的重视度往往不够。即使对那些掌握着企业关键技术的核心人才，也仅仅是用提高薪资、增加管理头衔的方法来体现企业的重视，而这些简单的薪酬提升和并不合适的管理岗位，往往不能提升技术核心人才的满足感，不能达到企业留人的目的。
举个例子，有的企业确实设置了企业内部的“技术专家评定”的制度，也设置了相应的津贴和职称管理制度，从制度上来看无可挑剔。但是在实际的执行过程中，现有的各级管理者却没有认识到此项制度对于技术人才管理的重要意义，使这项制度完全失去了原来的设计初衷。企业按部就班的选拔和评定出来的所谓技术专家们，不过成了各级管理者的另一次集体亮相罢了，根本未曾涉及普通员工中真正的技术专才们，而这项原本应该为技术人才提供更广阔发展空间的制度，却成了管理者们的又一项福利，让人无奈又无语。
企业的领导者总是会抱怨技术型的员工“个性强，不好管”，忙着制定各种强制性的规章制度来规范个性员工的行为，一个“堵”字诀练得炉火纯青，却独独忘了“疏堵结合”的道理。要知道，“堵”永远只能跟在后面尽量减少损失，而“疏”则可以从源头上避免不利局面的形成，不再是尽量“减少”损失，而是“避免”损失，甚至是创造新的收益。
因此，企业的领导者必须给与这两种通道相同的重视，甚至在管理晋升通道已经比较完善的当下，将更多的注意力放在技术晋升通道的设计和执行上面，激发技术人才的工作积极性，从而为企业的技术进步和产品创新提供持续的、充足的动力。
加强技术人才管理
“提高自主创新能力，建设创新型国家”是我们的发展方针，创新的主力军则是广大的技术人才，只有发挥人才的创造性和主动性，科技强国之梦才可能成为现实。
对于企业的发展，技术也是最主要的推动力之一，是企业最具生命力的核心竞争力，如果在技术的发展过程中被竞争对手所淘汰，那么无论多么优秀的管理和营销能力，都将无法挽回失去市场的结局。
在国际金融危机爆发的时候，各国的实体经济生存环境更加恶劣，人们都不自觉的捂紧了自己的口袋，单靠打折促销和广告轰炸换来的人气已经不能持久，而且这样的做法直接降低了企业的利润，不可能持续太长的时间。最后，还是那些真正有竞争力的产品才能让人们心甘情愿的买单。
因此，为了企业的健康发展，在大环境日益严峻的今天，只有依靠企业自身的实力，尤其是技术创新能力，才能救企业于水火，而这又对企业的技术人才的管理和激励提出了更高的要求，只有激发他们的创造力，企业才能获得持续的技术创新能力，才能在残酷的竞争中占得先机，而这必将对人力资源管理制度的优化和完善提出更高的要求。
希望在这个世界经济的“冬天”中，各家企业的领导者能够洞悉根本，带领企业早日迎来春暖花开的那一天。]]> <![CDATA[在Excel中弹钢琴（非Flash）]]> http://blog.excelhome.net/user1/chrisfang/1177.html chrisfang 2009-10-1 0:27:00

为迎接新中国60周岁华诞，特在国庆前夕创作了一个VBA：在Excel中弹钢琴（非窗体、非Flash版）。大家可以在其中欣赏为祖国弹响的生日快乐歌，也可以在假期时间使用键盘弹奏钢琴自娱自乐。

为了更多地体现Excel中的元素，此版本为工作表版本，没有使用窗体和任何控件。以后有时间会再做一个窗体版分享给大家。

钢琴V1.3.rar

详细使用说明：

一、基本功能
打开表格显示如下面图1所示界面。
 




可在右侧选择弹奏所需的音调和电脑音响输出的音量。
点击“Start”按钮以后，可以开始用键盘弹奏琴键（暂不支持鼠标），想要知道琴键和键盘按钮的对应关系，可以点击右下方的“按键对照”按钮。弹奏完毕可以点击“End”按钮释放midi资源。

“试听歌曲”的数据有效性下拉列表中包含了一些内置曲目，选中以后可以让电脑自动弹奏，自动弹奏中途可以按Esc中止或是在下拉列表中选择“停止播放”。

二、录播功能
点击“Start”按钮以后，键盘上方区域会出现“记录键盘”按钮，如下面图2所示。
 



点击此按钮可以让Excel记录下你的弹奏过程。弹奏完毕再次点击此按钮结束录制。此时会出现“回放记录”和“导出记录”按钮，如下面图3所示。
 




点击“回放记录”按钮可以将之前记录下来的键盘演奏重新回放一遍。而点击“导出记录”可以将你的演奏记录导出为Excel文档，以便于以后重新回放或作为内置歌曲。

三、其他说明
没有做太多的容错处理，因此尽量不要与其他Excel工作簿同时打开，单独运行此文件比较好。
如果没有正确点击按钮或使用了规定以外的键盘按键，会在键盘按键时没有钢琴的响应而是出现在单元格内输入字符的情况，此时按ESC取消，然后点击正确的按钮即可。
如果电脑没有出声，请检查音箱和电脑扬声器是否开启，另外由于使用了MIDI通道，请确认电脑系统中已经安装了MIDI软波表。

 

在论坛中查看此帖：http://club.excelhome.net/thread-488256-1-1.html




 

]]> <![CDATA[单元格引用的简写和变形]]> http://blog.excelhome.net/user1/chrisfang/1175.html chrisfang 2009-9-17 11:19:00 单元格引用有A1和R1C1两种样式，两种形式中又包含了绝对引用和相对引用两种不同的变化。本帖不讨论绝对引用和相对引用的问题，而是着重讨论一下在单元格引用中结合三种引用运算符所进行的引用地址变形及简写方式。

单个区域的引用（同行、同列的简写）：
先来讲一下R1C1方式的引用
对于G2:J2这样一个单元格区域，使用R1C1引用样式，可以写作：R2C7:R2C10，也可以写作：R2C10:R2C7。但R必须在C前面，“C10R2:C7R2”这样的写法是无效的。
对于这样同行的区域引用，可以使用简写的引用方式，即将R2C7:R2C10中的红色部分省去，简写为R2C7:C10。
如果对于同列的区域引用，例如G2:G10，则可以将R2C7:R10C7中的红色部分省去，简写为R2:R10C7。

为什么可以这样简写？为什么一个是将后面的R2省去而另一个是将前面的C7省去？这样的简写有何规律？在没有官方的解释之前，为了便于大家的理解和记忆，我给出一个我自己的解释思路，请看下面的“关于引用运算符”：

关于引用运算符：
Excel中包含了3种引用运算符，用于表示对单元格的引用，
一种是冒号，称为区域运算符，这是最常见的，如=SUM(A2:B10)，表示引用冒号两边单元格所围成的矩形区域；
一种是逗号，称为联合运算符，如=RANK(A1,(A1:A10,C1:C10))，表示同时引用逗号两边的两个区域；
还有一种是空格，称为交叉运算符，表示引用空格两边的两个区域的交集，如=SUM(A1:B5 A4:D9)即等价于=SUM(A4:B5)。这个交叉运算符也是我这里要重点讨论的一个使用技巧。

对于G2:J2这个单元格区域，如果换一个角度来看，可以看作是G:J这4列与第2行所构成的交叉区域。因此，如果用交叉运算符和R1C1样式来引用的话，可以写作：R2 C7:C10，中间用交叉运算符空格分隔，即表示R2与C7:C10这两个区域的交叉区域。
因此R2C7:R2C10等价于(R2 C7:C10)，而这个形式与上面的简写形式R2C7:C10十分相似；
同理，G2:G10可以表示为R2C7:R10C7，等价于(R2:R10 C7)，这个形式与其简写形式R2:R10C7也十分相似。

因此，同行或同列的区域引用简写原则可以看作是一次类似合并同类项以后消项的过程：
R2C7:R2C10=R2 C7:C10=R2C7:C10
R2C7:R10C7= R2:R10 C7=R2:R10C7

交叉运算符同样也可以应用在A1引用方式中：
例如(R2 C7:C10)如果使用A1引用方式，则可以写作：(2:2 G:J)
(R2:R10 C7)如果使用A1引用方式，则可以写作：(G:G 2:10)

多个区域的引用（合并同类项）：
以同时引用G13:J13、G15:J15、G17:J17这三行区域为例，
使用R1C1的通常写法是：
R13C7:R13C10,R15C7:R15C10,R17C7:R17C10   其中的逗号表示联合运算
可以引入交叉运算符，简化为：
R13 C7:C10,R15 C7:C10,R17 C7:C10
此时，因为三个以逗号分隔的联合区域中，每个区域都与C7:C10有交叉部分，来做一个类似于合并同类项的变形，可以简化为：
(R13,R15,R17) C7:C10
将几个行号用逗号相连接表示联合运算，同时外面用括号包围以后，再与C7:C10区域使用空格进行连接，形成交叉运算关系，得到了我们所需要的三个行区域的同时引用。
类似的，使用A1引用样式也可以进行合并变形，上述区域的A1引用写法为：(13:13,15:15,17:17) G:J

上面三个区域是水平方向平行的三行，下面来看一下垂直方向平行的三列，实质用法完全一致：L13:L20、O13:O20、P13:P20
R1C1形式：
R13C12:R20C12,R13C14:R20C14,R13C16:R20C16
引入交叉运算符，简化为：
R13:R20 C12,R13:R20 C14,R13:R20 C16
合并同类项，简化为：
R13:R20 (C12,C14,C16)

A1引用样式为：(L:L,N:N,P:P) 13:20

地址引用的应用场合：
对于A1样式的地址引用，可以直接使用在公式中，例如：

=SUM((13:13,15:15,17:17) G:J)

即表示同时对G13:J13、G15:J15、G17:J17三个区域进行求和。

对于R1C1引用样式，则通常用于INDIRECT函数的引用，对于INDIRECT参数中包含变量的情况，使用简写+变量参数的方式可以减少大量公式开销。具体案例待以后补充。
而对于使用INDIRECT+TEXT函数构造引用样式来进行地址引用的场合，也可以用的R1C1引用样式及其简写方式，但其中既包含联合又包含交叉的复杂情况不太多见。简单举个例子说明一下应用：
要对G:I三列中的某三个非相邻行进行引用，公式取得三个行号分别为aa、bb、cc，加权组合后可以得到aa0bb0cc一个8位数值，此时使用

=TEXT(aa0bb0cc,"(R0R000R00,0) C7!:C9")

就可以得到“(Raa,Rbb,Rcc) C7:C9”的INDIRECT引用参数。其中的TEXT函数格式代码中利用了千分位符来产生表示联合引用的逗号。

除了INDIRECT函数，HYPERLINK函数中也可以用到A1样式和R1C1样式的引用地址，例如

=HYPERLINK("#r13:r20 (c12,c14,c16)","链接")


即可产生同时链接到L13:L20、O13:O20、P13:P20三个区域的超级链接。本帖附件中也使用了HYPERLINK函数便于大家识别所引用的具体区域范围。

为了便于理解，可以结合下面这个附件，相信可以更容易明白一些：

单元格引用.rar

]]> <![CDATA[福建牛郎岗]]> http://blog.excelhome.net/user1/chrisfang/1172.html chrisfang 2009-9-8 21:53:00

]]> <![CDATA[彻底删除文件]]> http://blog.excelhome.net/user1/gvntw/1165.html gvntw 2009-8-31 10:39:00
删除文件时，总是放在回收站，其实可以直接彻底删除，提供两个方法：
1、按<Shift+Delete>
2、右击桌面的回收站—属性—全局，勾选“删除时不将文件移入回收站，而是彻底删除”。
]]> <![CDATA[一秒关机]]> http://blog.excelhome.net/user1/gvntw/1164.html gvntw 2009-8-31 10:39:00
在关机时，总是要等好久，其实可以非常快速关机的，方法是：
调出任务管理器（Ctrl+Alt+Delete 或 Ctrl+Shift+Esc 或右击任务栏—任务管理器），单击“关机”菜单，按住 Ctrl 键，再单击关机，1 秒就关机了。
]]> <![CDATA[把 IE 地址栏当计算器使用]]> http://blog.excelhome.net/user1/gvntw/1163.html gvntw 2009-8-31 10:38:00 在 IE 地址栏中输入：javascript:alert(5*3)，再回车键，就会弹出一个显示计算结果为 15 的对话框，更改括号内的运算式，可以更改计算结果，再按一下 Esc 键，可返回原来的页面。]]> <![CDATA[快速设置 IE 主页]]> http://blog.excelhome.net/user1/gvntw/1162.html gvntw 2009-8-31 10:37:00 把地址栏最前面的那个文件图标（“e”）拖到工具栏的“主页”按钮上，就可以快速设置主页。]]> <![CDATA[快速选中 IE 地址栏]]> http://blog.excelhome.net/user1/gvntw/1161.html gvntw 2009-8-31 10:36:00 打开网页后，按 <Alt+D> 组合键，就会快速选中网页的地址，方便复制操作。]]> <![CDATA[隐藏桌面上的系统图标]]> http://blog.excelhome.net/user1/gvntw/1160.html gvntw 2009-8-31 10:35:00 右击桌面，“属性”—“桌面”选项卡—“自定义桌面”，在“桌面图标”组中勾选要在桌面上显示的图标，其他不显示的取消勾选，再按“确定”按钮。]]> <![CDATA[隐藏桌面上的所有图标]]> http://blog.excelhome.net/user1/gvntw/1159.html gvntw 2009-8-31 10:34:00 右击桌面—排列图标—取消显示桌面图标的勾选。]]> <![CDATA[快速删除 Word 表格中的行]]> http://blog.excelhome.net/user1/gvntw/1158.html gvntw 2009-8-31 10:32:00 选定 Word 表格中的行，按 Delete 键只清除内容，并不能删除行，我们可以这样操作：选定行，按 <Shift+Delete> 组合键删除。]]> <![CDATA[在 Word 中输入叠字]]> http://blog.excelhome.net/user1/gvntw/1157.html gvntw 2009-8-31 10:32:00 要在 Word 中输入叠字，如爸爸，只要输入一个“爸”字，按 <Alt+Enter>组合键，可重复输入“爸”字，输入“欢喜”按 <Alt+Enter>组合键，可重复输入“欢喜”。]]> <![CDATA[在 Word 输入省略号]]> http://blog.excelhome.net/user1/gvntw/1156.html gvntw 2009-8-31 10:31:00 在 Word 中，不同的输入法输入省略号方法各不相同，但可以有通用的方法。
按“Ctrl+Alt+.”组合键可快速输入省略号（…），每按一次输入 3 点。
]]> <![CDATA[在 Word 轻松输入汉字拼音]]> http://blog.excelhome.net/user1/gvntw/1155.html gvntw 2009-8-31 10:30:00
在制作语文考卷时，经常要输入汉字拼音，用下面的方法可以快速输入汉字拼音。
如输入“中国”的拼音，选定“中国”，再单击“格式→中文版式→拼音指南”选项，在“拼音指南”对话框中单击“组合”按钮，在“拼音文字”框中选择“zhōngguó”，按“Ctrl+C”复制，再粘贴到 Word 文本中。
]]> <![CDATA[为记事本文件添加每次的打开时间]]> http://blog.excelhome.net/user1/gvntw/1154.html gvntw 2009-8-31 10:29:00
记事本可以自动添加每次打开文件的时间，可能许多人并不知道这个功能。操作步骤如下：

打开记事本，在第1行输入“.LOG”，保存该文档，以后每次打开该记事本，记事本的最后一行将自动写入当前时间和日期。
]]> <![CDATA[更改文件夹图标]]> http://blog.excelhome.net/user1/gvntw/1153.html gvntw 2009-8-31 10:28:00
在同一目录下，如果文件夹很多的话，有时候要找某个文件夹，比较费时间，其实，我们可以为常用文件夹设置不同的醒目的图标，方便查找，方法如下：

右击文件夹—属性—“自定义”标签—在“文件夹图标”组中，单击“更改图标”按钮，选择一个比较醒目的图标，再单击两次“确定”按钮，常用文件夹就非常醒目，容易找出来了。
]]> <![CDATA[取消 Windows XP 的菜单延迟]]> http://blog.excelhome.net/user1/gvntw/1152.html gvntw 2009-8-31 10:27:00
Windows XP 中的在打开菜单时，会有滑出的效果，这虽然可以达到视觉上的真实感，但也会延缓打开菜单的速度，要取消这个功能，可以按下面的方法操作：
打开注册表编辑器（运行 regedit.exe),HKEY_CURRENT_USER\Control Panel\Desktop 顶下打到 “MenuShowDelay”，双击，把“数值数据”改为0，就可以取消菜单延迟的效果。
]]> <![CDATA[运行“.”的技巧]]> http://blog.excelhome.net/user1/gvntw/1151.html gvntw 2009-8-31 10:25:00
开始—运行：“.”
打开：C:\Documents and Settings\用户名
开始—运行：“..”
打开：C:\Documents and Settings
开始—运行：“...”
打开：我的电脑
]]> <![CDATA[清除无法删除的打印任务]]> http://blog.excelhome.net/user1/gvntw/1150.html gvntw 2009-8-31 10:24:00
在删除打印任务时，经常打印机出现删除字样，等了好久，却无法取消打印任务，可用以下方法解决：
我的电脑→管理→服务和应用程序→服务→Print Spooler，点击左侧“停止此服务”，停止打印机服务；
开始→ 运行，在“运行”→spool，打开“spool”文件夹， 在“spool”文件夹中，双击打开“PRINTERS”文件夹，删除 “PRINTERS”文件夹中的所有文件；
再回到 “服务”窗口，点击左侧 “启动此服务”，重新启动打印服务。
]]> <![CDATA[出轨女人的独白：和别人老公在床上的感觉]]> http://blog.excelhome.net/user1/gvntw/1149.html gvntw 2009-8-30 14:39:00
我终于有了一个不是我老公的男人!
那晚，他折腾我足足一个小时,终于倦极而眠。
我却怎么也睡不着了,时针指在两点上,是激情之后最难熬的深夜。
我扭亮台灯,在柔和的灯光下,打量着我的枕边人。

见过他的人都说是十成的帅哥,尤其是那一双总是含笑的眼睛有着所向披靡的魅力。可我心底里却更喜欢他熟睡的样子,安详得近乎于圣洁,尤其是当他突然在梦里笑一下或皱皱眉的时候,那突如其来的甜蜜和伤感让我心醉又心碎。
我不禁轻轻地在他的额上吻了一下,他居然抬手拂了一下额头,好象不高兴我打扰了他的梦一样。我又好笑又好气,偏偏要打扰他一下。我轻轻抚摸他的身体,那种毫无瑕疵的锦缎也不能比拟的光滑手感,让我怀疑这是男性的躯体,既使是用“肤如凝脂”这种形容女孩子的词来形容也不为过,皮肤之下,是匀称的极富弹性的骨肉,这么完美的躯体我想我一辈子也不可能再遇到第二个。)
想到这儿,就想到早晚他会离开我,投入另一个女人的怀抱,这使我无奈而神伤,下意识地搂住了他。
梦中的他感到了我的拥抱,竟然配合地把脸深深地偎在我的胸口,那种温暖和贴服使我心底荡漾着无比的幸福,泪水不经意地打湿了枕头.
我这样和他依偎着,慢慢地朦胧起来。
突然,他使劲儿地在我的怀里挣扎一下,并放声大哭起来。

我一下从被窝里坐起来,抱起他：儿子,我的小祖宗,又尿了, 求你让娘睡个安稳觉吧。
]]> <![CDATA[长滩岛（Barocay）视觉盛宴]]> http://blog.excelhome.net/user1/chrisfang/1147.html chrisfang 2009-8-20 21:27:00

]]> <![CDATA[Datedif函数全面解析及BUG分析]]> http://blog.excelhome.net/user1/chrisfang/1120.html chrisfang 2009-7-27 13:26:00 从不同的角度来看，Datedif函数都是一个比较特殊的函数：
1）在多个Excel版本中，Datedif函数都是隐藏函数，没有出现在函数列表中，Excel2007中的公式自动完成功能也不会自动生成这个函数名称，甚至在多个版本中的帮助文件中都找不到这个函数的踪影。
2）在多个版本中，Datedif函数的算法发生了改变，据我目前所知，Excel2003 SP3、Excel2007 SP1、Excel2007 SP2 以及还未正式上市的Excel 2010中，这个函数的运算结果都有所不同。更早期的版本尚无研究。
3）工作表函数Datedif与VBA中的函数Datediff也不相同。

本文将主要以Excel 2007 SP2版本中的Datedif函数运算作为研究对象，并附上Excel 2003 SP3的相应结果作为参考。请使用正确的版本打开附件，否则将会出现不同的运算结果。

Excel早期版本的帮助文件中，对Datedif函数的解释如下：

DATEDIF(start_date,end_date,unit)
参数start_date代表时间段内的第一个日期或起始日期。参数end_date代表时间段内的最后一个日期或结束日期。参数unit为所需信息的返回时间单位代码。各代码对应的含义如下：

"y"——时间段中的整年数。

"m"——时间段中的整月数。

"d"——时间段中的天数。

"md"——start_date与end_date日期中天数的差。忽略日期中的月和年。

"ym"——start_date与end_date日期中月数的差。忽略日期中的日和年。

"yd"——start_date与end_date日期中天数的差。忽略日期中的年。

 

这6个unit参数看上去极其简单，无非就是年月日的差值运算，但其实里面包含了许多玄机，下面将针对这6种unit代码分别进行详解：
以下假定start_date存放于A2单元格内，end_date存放于B2单元格内

1，=Datedif(A2,B2,"Y")

此参数含义为返回时间段内的整年数，
1）所谓“整年”的判断包含了两个日期值（m-d）的大小判断，假定A2与B2相差一年，如果B2的日期值小于A2的日期值，则不满一整年；如果B2的日期值大于等于A2的日期值，则可以记为一整年。
2）对于包含闰年的情况，不影响日期值大小的判断，例如A2为闰年的2月29日，则B2为闰年的2月29日及以后或非闰年的3月1日及以后都可以判断为大于等于A2日期。

综合以上算法解释，这个参数的算法可以表示为以下的公式：
=YEAR(B2)-YEAR(A2)-1+(DATE(YEAR(B2),MONTH(A2),DAY(A2))<=B2)
或
=YEAR(B2)-YEAR(A2)-1+(A2<=DATE(YEAR(A2),MONTH(B2),DAY(B2)))


2，=Datedif(A2,B2,"M")

此参数含义为返回时间段内的整月数，
要判断整月数，也是与A2、B2的所在月份及日期相关。
此参数的算法为：将B2、A2相减得到的天数记为Days1，从A2开始到B2的前一个月的所有月份的天数和值记为Days2，如果Days1大于等于Days2，则满足最后一个月的整月条件，否则则不足最后一个月的整月。
换言之，使用此参数时，首先计算前后日期之间的差值，然后以起始月到(中止月-1)之间的整月天数作为计算“整月”的依据，差值大于或等于整月天数的，函数结果就是（中止月-起始月）；如果差值小于整月天数，函数结果就是（中止月-起始月-1）。

综合以上算法解释，这个参数的算法可以表示为以下的公式：
=(YEAR(B2)-YEAR(A2))*12+MONTH(B2)-MONTH(A2)-(B2-A2<(TEXT(B2,"yyyy-m-\1")-TEXT(A2,"yyyy-m-\1")))*1

关于此参数算法的讨论，可参考以前的一个老帖：http://club.excelhome.net/viewthread.php?tid=165589


3，=Datedif(A2,B2,"D")

此参数含义为返回时间段内的天数，
这个参数算法最简单，实质就是两个Date相减得到的天数差，其算法可以表示为以下的公式：
=B2-A2

4，=Datedif(A2,B2,"MD")
此参数含义为返回时间段内的天数，忽略月和年。
虽然说“忽略”月和年，但实际上当B2的day小于A2的day时，两者的日期差为负数，需要借位相减才能得到正数。如何借位，向谁借位就涉及到了两个日期的所在月份及其年份。
此参数算法包含以下几部分：
1）当B2的day大于等于A2的day时，可直接将两者的day相减得到结果。
例如A2为2003年3月4日，B2为2004年1月9日，其中的B2的day为9，A2的day为4，则函数结果为9-4=5。
2）当B2的day小于A2的day时，以B2所在日期作为基准，将B2减去Date(B2所在年份、B2的前一个月份、A2的day)所得到的差值为结果。
例如A2为2003年3月4日，B2为2004年2月3日，则将B2减去2004年1月4日的天数差作为函数结果。假如B2的月份为1月，则其前一个月份为前一年的12月。
3）此参数在Excel 2007 SP2版本中包含bug，当满足上面第二个条件且B2日期为闰年的1月份日期时，函数结果会偏大164。这个bug在Excel2003 SP3版本中不存在，但在目前尚未发布的Excel 2010中仍有这个问题存在，只不过那个版本中的差值为113。这个莫名其妙的数值如何出现的，目前暂时没搞清楚。
4）此参数包含的另一个问题可能不能算bug，但在各个版本中都存在，由于第二条算法的原因，当A2的day为29、30、31且B2的月份为3月份时，由于B2的前一个月份即2月份中没有29号、30号、31号，Date(B2所在年份、B2的前一个月份、A2的day)会由Excel自动将这样的date转换为3月1日、3月2日、3月3日，由此产生误差会出现0和负数。对于这样一个计算两个日期差的函数来说，出现负数好像有点不太合理。
例如，A2日期为2003年5月31日，B2日期为2005年3月1日，date(2005,2,31)=2005年3月3日，因此B2与此日期相减得到结果为-2。
基于第4点的问题，个人认为有以下两种算法可能会更合理一些：
I)当day(B2)<day(A2)时，将B2与其当月1日相减+A2的月末与A2相减+1，用公式来表达就是：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),B2-TEXT(B2,"yyyy-m-\1")+DATE(YEAR(A2),MONTH(A2)+1,1)-A2)
II)当day(B2)<day(A2)时，将B2与Date(B2所在年份、B2的前一个月份、A2的day)相减，当差值小于零时取零作为结果。用公式来表达就是：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),MAX(B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2)),0))
当然，这两种方法只是本人的建议，仅供参考。

综合以上算法解释，这个参数在不够减的时候借位是以B2为基准的，这个参数的算法可以表示为以下的公式：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2))+164*(TEXT(DATE(YEAR(B2),MONTH(B2)+1,29),"m-d")="2-29"))

其中包含下划线的部分是对上面第三点中提到的闰年bug的模拟。如果要排除闰年的错误，则可以使用下面的公式：
=IF(DAY(B2)-DAY(A2)>=0,DAY(B2)-DAY(A2),B2-DATE(YEAR(B2),MONTH(B2)-1,DAY(A2)))

关于这个参数算法的讨论，还在这个帖子中进行过：http://club.excelhome.net/viewthread.php?tid=357741


5，=Datedif(A2,B2,"YM")
此参数含义为返回时间段内的整月数，忽略日和年。
这里提到了“忽略”日，但实际与参数“M”一样，还是有关日期的相关计算。这个参数的算法实际上与参数“M”的算法一致，只是忽略其中年份差中所包含的月份数。

其算法可以表示为以下的公式，其中引用了Datedif函数的“M”参数方便公式编写：
=MOD(DATEDIF(A2,B2,"m"),12)

6，=Datedif(A2,B2,"YD")
此参数含义为返回时间段内的天数，忽略其中的年。
这个参数的算法比较复杂，情况比较多，简单地说包括以下几个重点：
1）当B2月份为3月份且B2的day大于等于A2的day时，两者相减是以A2的所在年份为基准的（如果够减，则以[A2的年份&B2的日期]与A2相减；如果不够减，则以[A2年份+1&B2的日期]与A2相减）
2）当B2月份为3月份且B2的day小于A2的day时，两者相减是以B2的所在年份为基准的（如果够减，则以B2与[B2的年份&A2的日期]相减；如果不够减，则以B2与[B2年份-1&A2的日期]相减)
3）当B2的月份不是3月份时，两者相减是以A2的所在年份为基准的，相减方式同第一条。
4）当B2的day小于A2的day，且B2日期是闰年的1月份日期，且B2与A2日期不直接够减时，存在着与“MD”参数类似的闰年bug，函数结果偏大164。这个bug在Excel2003的SP3中不存在，但在Excel 2010中依旧存在，且差值变为113。

综合以上算法解释，这个参数的算法可以表示为以下的公式（上面的文字不好理解，如果能看懂下面的公式则比较容易理解上述算法）：
=IF(--(TEXT(B2,"!0!0-m-d"))>=--(TEXT(A2,"!0!0-m-d")),IF((DAY(B2)<DAY(A2))*(MONTH(B2)=3),B2-DATE(YEAR(B2),MONTH(A2),DAY(A2)),DATE(YEAR(A2),MONTH(B2),DAY(B2))-A2),IF((DAY(B2)<DAY(A2))*(MONTH(B2)=3),B2-DATE(YEAR(B2)-1,MONTH(A2),DAY(A2)),DATE(YEAR(A2)+1,MONTH(B2),DAY(B2))-A2+164*(TEXT(DATE(YEAR(B2),MONTH(B2)+1,29),"m-d")="2-29")*(DAY(B2)<DAY(A2))))


其中包含下划线的部分为闰年bug的模拟，如果希望排除闰年的错误，可以将这部分内容去除。

以上分析了6个参数详细算法含义，由于无法得到详细的内部运算代码，因此以上分析结论全部来源于Datedif函数公式的黑箱测试。欢迎有兴趣的朋友继续测试和分析。以下提供附件：

注意使用相应版本的Excel打开附件

附件.rar

在论坛中查看此帖：http://club.excelhome.net/thread-463826-1-1.html


]]> <![CDATA[如何使用工作表中Frame对象中的控件事件]]> http://blog.excelhome.net/user1/qingfeng/1118.html qingfeng 2009-7-27 9:54:00 通常时候，都可以不必要在工作表中使用框架控件，因为工作表框架控件中的控件常规操作无法应用事件，但是事实上也是可以使用控件事件的，只是需要应用到类模块。

以下为一个简单的示例，演示如何使用工作表框架控件中的控件事件。

示例文件：

工作表中Frame对象中的控件如何使用事件.rar
]]> <![CDATA[用户窗体托盘程序]]> http://blog.excelhome.net/user1/qingfeng/1117.html qingfeng 2009-7-26 11:51:00 本示例实现将用户窗体显示为系统托盘图标，并在托盘图标上实现左键双击还原用户窗体及右键显示快捷菜单的功能。

显示用户窗体

显示托盘图标

托盘图标右击显示快捷菜单


 示例文件

Shell_NotifyIcon.rar
]]> <![CDATA[命令栏图标（FaceID)查看器]]> http://blog.excelhome.net/user1/qingfeng/1115.html qingfeng 2009-7-12 15:33:00 Excel提供了很多的命令栏图标，用户在自定义命令栏时，可以为命令栏按钮选择添加合适的图标；不仅如此，用户还可以把这些内置图标作为图片，提供给其它有Picture属性的控件，如Image、Label、CommandButton等，本附件提供了浏览Excel内置图标的功能。

附件下载：FaceIDBrowser.rar

]]> <![CDATA[Excel 2007 简易教程下载]]> http://blog.excelhome.net/user1/gvntw/1114.html gvntw 2009-6-12 13:20:00 Excel 2007 简易教程下载

附件下载：

跟我学Excel2007简易教程1－750.rar
]]> <![CDATA[学习 Excel 技巧]]> http://blog.excelhome.net/user1/gvntw/1113.html gvntw 2009-5-11 11:00:00 Excel技巧网

http://www.exceltip.cn/?fromuid=9

]]> <![CDATA[Microsoft Money 2009 简体中文版 即将问世]]> http://blog.excelhome.net/user1/Rowen/1112.html rowen 2009-5-2 9:38:00 转载自:http://www.mscbic.com/about/article.aspx?id=179

Microsoft Money 2009 简体中文版
挣得清楚 花得明白 规划理想未来！

Microsoft Money 2009简体中文版是微软专门针对中国用户量身定制且功能强大的个人理财软件。该软件的第一个版本于1991年在美国成功上市，并陆续推出新版远销欧洲和日本，并已成为全球最受欢迎的个人理财软件之一。
 

从未用过理财软件？试一下Money吧！
? 只需一次简单安装，便可为您永远节省理财所花时间
? 特有的理财模块与功能，助您轻松掌控财务状况，规
  划理想未来
? Money还有更多功能等待您的发掘与体验！

 

用过其它理财软件？试一下Money吧！

? 全新的理财观念，带您进入全新的理财视界
? 友好美观的操作界面，为您带来全新的理财体验
? 功能全面的理财模块更能全方位满足您的理财需求
? 信息丰富的财务报表还可轻松进行个性化定制
? 同步发行的Money手机版理财软件可实现与PC版软
  件的数据同步，让您随时随地轻松理财！

 

 

让您挣得清楚、花得明白！ 

? 帐户集中：所有帐户信息集中在同一位置管理，便于查看与管理
? 收支记账：系统登记账目，让记账不再枯燥
? 账目追踪：预测现金流并追踪消费记录
? 定期支付：设置定期支付计划，实现支付提醒或在线支付
? 报表功能：可生成各种财务报表，让财务状况一目了然
? 投资管理：优化投资组合，更新市场信息，实现投资收益最大化
? 等等

 

助您规划理想未来！ 

? 预算管理：提前制定消费计划，有效避免费用超支
? 财务规划：国际领先的财务规划理念，助您规划退休后生活费用、教育资
            金或子女养育费等，从而规划理想未来
? 随时获取财经快讯、资讯及理财服务

 

点击查看大图
三十多种财务报表可根据个人喜好进行个性化定制，让您的财务状
况一目了然！

Microsoft Money 2009简体中文版将通过国内多种在线平台、增值销售商及合作伙伴进行推广。

]]> <![CDATA[终于找到曾经写的这篇了。]]> http://blog.excelhome.net/user1/guoguo/1111.html guoguo 2009-4-16 14:47:00 ———

   流香真想将无香制作成一个随时任流香调动的函数：
Function 无香(流香 As Range, ab As Integer)
    Application.Volatile
    无香 = Application.VLookup(流香, Range("心径“), ab, 0)
     End Function
  
   于是无香永远被包围在这里，再也逃不出去；当流香想无香的时候：
Private Sub ComboBox1_Click()
    If ActiveCell.Column = 我想你 Then
        ActiveCell.FormulaR1C1 = ComboBox1.Text
        ActiveCell.Activate
          End If
         End Sub

   流香就点击一下，然后无香就随着vlookup出现：
Private Sub worksheet_change(ByVal target As Range)
    If target.Column = 我想你 Then
        target.Offset(0, 1) = 心径(target, 2)        
    End If
  End Sub

   但是，得到这些的首要条件，却是要先要将无香定义在流香的心中，而流香的心太狭隘，怕把无香给闷坏，而让无香累得看见流香时就想逃……

   为什么做任何事情都得有个条件呢？IF（人不累，经历充沛，IF（大度，幸福，IF（太阳，光明，IF（黑暗，犯罪，IF（伤心，落泪，IF（想念，心痛，IF（网络，恋）））））））；让我想起以前，没有网络的日子。通宵的玩电视游戏机，想着那时的快乐，那么简单，如今更多可口的游戏摆在眼前，人却心意懒臃，毫无兴致；想到玩星际时的猖狂，现在却找不到痴迷的借口；实在不喜欢这种醒后的感觉如新疆早晨的六月天空，那么干净、那么清朗，可是我找不回来睡意朦胧的错觉……

   当历史事件又重演的时候，我找不出来我能生气的理由，却也搜索不到我再返回去找你的立场。我一直缺乏的就是自己的主场，我站在哪里？我属于哪里？呵呵，怎么好象又找不到自己似的。其实我就坐在电脑前，茫然的听着一个网友絮絮叨叨的讲着他的苦恼、他的无助、他的张狂、他的生活琐事，这是一个男人。既然一个男人都能对我如此的唠叨，我作为一个女子，更有地位罗嗦你了。可是，我发现，我还是做不到，当你漠视的眼神扫过我时，所带来的寒意。冬天了呢……

   明天就是冬至了，广州这边的节日真多，中秋拜神、重阳登山、冬至过节、春节前有个小年、正月15……我记不清了，发现自己的脑袋开始生锈，不听自己的使唤，它们自己转动着而不给我主人一丁点提示，让我在这里动弹不得。零件开始罢工，整个机器还能开动吗？真是小瞧了一颗螺丝帽，难怪记得有人愿意做一颗小小的螺丝钉呢~

   一直到现在，我都没有走出给我心境染上《颜色》的文字，哀伤着的心，如何能跳跃？而潮湿的翅膀又如何能飞舞得似蝴蝶？

   本来就无香，又如何流香四溢？一直都执著着搬弄文字的我，现在终于砸到自己的脑门上了；才发觉，为了那无香，自己丢失了自己……

   结束语：end sub
]]> <![CDATA[单元格区域反向选定]]> http://blog.excelhome.net/user1/qingfeng/1110.html qingfeng 2009-4-14 21:02:00 在一个单元格区域(或整个工作表区域)中选定某些区域后实现反向选定功能

MCliping.rar

]]> <![CDATA[守柔Word文本筛——文档重复段落和相似段落分析工具]]> http://blog.excelhome.net/user1/Harold/1109.html shourou 2009-3-30 9:26:00 “守柔Word文本筛”的主要功能是筛选出文档中具有重复的段落，或者相似（相近的）段落，适用于文档中的中文字符串的比较，但也可以用于英文。它允许用户定义筛选规则，可以忽略数字、西文字符、括号和标点符号等，它的最大的特点是允许用户设置相似度，可以从50%-100%之间为字符串作比较。
另外，它还可以为所选内容（或者文档）列出不重复的汉字或者词组。


]]> <![CDATA[守柔Word文档切割机]]> http://blog.excelhome.net/user1/Harold/1108.html shourou 2009-3-30 9:18:00 “守柔Word文档切割机”是一款可以将Word文档按节、页、段落数、标题、字符数、大小进行切割的工具，也可以将所选内容生成新文档，Word文档切割机除了可以保留文本格式外，也可以自动应用主文档的页眉页脚格式。推荐应用Microsoft Word 2003+Windows XP。
“Word文档切割机”可以自动获取主文档标题、第一个有效段落或者动态引用单元格内容以生成新文档的文件名，同时也支持用户自定义文件名。

]]> <![CDATA[守柔拼音居士专业版]]> http://blog.excelhome.net/user1/Harold/1107.html shourou 2009-3-23 14:14:00 守柔拼音居士是一款基于Microsoft Word 的COM加载项，具有能够一次性标注32000个汉字、运行速度快、智能中文词组识别、词库维护方便及多音字校对界面友好等诸多功能，尤为值得一提的是：它能够方便地为轻声词、儿化词注音，解决了拼音标注中的一大难题。它将为您的汉字拼音标注工作带来快乐。

本软件推荐用户使用于Windows XP+Office 2003平台，亦可运行于Windows Vista+Office 2007中。

一 功能描述

1 摒弃了普通拼音标注软件以字取音从而导致“词组”中汉字出现多音字问题；

2 可以标注轻声词、儿化词，解决了拼音标注中的一大难题。

3 采用了开放的中文词库WDPY.TXT，共收录了字/词69430条记录。

3.1 根据字词特性，WDPY.TXT把字词分为六类：常见汉字20902个；常见轻声词420个，常见多音多义词35个，读不读轻声有不同意义的词119个，常用词47705个，常见儿化词249个。

3.2 支持用户随时添加或删除字条或词条、修改或者调整拼音顺序。手工录入时，需遵循不同词类的分隔符样式，修改完成后请保存WDPY.TXT文件。新的WDPY.TXT文件需要重启Word方能生效。

4 可以设置字体大小和偏移量。

拼音标注前，建议完成对文档的编排，以使字体接近最终文档要求。拼音的字体总是“复制”其汉字的字体名称，默认情况下，拼音为11号字体，偏移量为14磅（默认的偏移量总是在字号基础上提升3磅）。字号大小和偏移量用户可以根据需要自己设定，建议先小试部分汉字。

5 可以按照拼写规则进行句首首字母拼音大写(专业版)。

6 随选定状态确定拼音标注范围。

选定状态下，仅为所选内容标注拼音；非选定状态下，全文档标注拼音。

7 友好的多音校对面板。

7.1 选定状态下，仅为所选内容进行多音校对；非选定状态下，从光标所在位置开始多音校对。可随时终止多音校对。

7.2 可以为“儿”字应用儿化音。

8 右键快速校对(专业版)

8.1 右键校对可对全文任意汉字的拼音进行校对，只需将光标定位于汉字（拼音）之前或者选中该汉字（拼音）后右击即可。

8.2 右键菜单中，最后四个菜单项总为当前拼音的轻声、轻声特别标注、儿化音和大小写切换。

8.3 当用户选择“儿”字右击时，最后第二个菜单项为删除“儿”字的拼音。

8.4 右键菜单建议在全文通读中使用。

9 三种颜色区分多音字

守柔拼音居士采用红、蓝、绿三种颜色表示不同的拼音。

红色表示多音字，绿色表示读不读轻声有不同意义的词的末字，蓝色表示经过多音校对或者右键校对过的拼音。

10 去除拼音声调的功能。

11 删除汉字而只保留拼音的功能（转为无格式文本）。

二 注意事项：

1 建议一次性标注的汉字数量不超过32000字。此受Word文档极限的约束。

2 用户自定义的中文词组取决于Word对于中文词组的识别，即此词组在Word中可通过双击选定，否则，守柔拼音居士不以词组识别之。

3 特殊标点符号如引号（”“）、书名号（《》）、方括号（【】）等将影响Word对于中文词组的识别，守柔拼音居士对于此类含有非中文字符的词组按字取音，而非按词取音。

4 中文间的空间可能会影响词组的识别和查询，建议用户在拼音标注之前删除不必要的空格。

5 守柔拼音居士标注的拼音，受词库的影响。不保证所有拼音均是有效的或者正确的。

三 中文句首大写规则

1 文章标题中开头的汉字；

2 段落开头的汉字；

3 句号、问号、感叹号、冒号后面的汉字；

4 冒号加前引号后边的汉字；

5 逗号加前引号后边的汉字；

6 省略号后边的汉字。

四 感谢

WDPY.TXT词库由Excelhome会员wdwc和guanlan进行勘误和校对，并详加测试，在此一并表示感谢。部分词组来源于王码86版词库中的逆转换，并经编程处理以符合Word取词规则。

http://www.rousoft.com.cn/

五 菜单介绍

1 主菜单

图 1　Word 2003下的菜单截图

图 2　Word 2007下的菜单截图

2 关于守柔拼音居士

图 3　关于守柔拼音居士

您可以单击“关于守柔拼音居士”对话框中的网站链接以寻求在线帮助，也欢迎可以通过邮件方式向我们咨询或者反馈。

3 汉字注音

为所选内容或者全文档汉字标注拼音。

图 4　【汉字注音】对话框

4 多音校对

为所选内容或者全文档多音字部分校对。多音校对工作从光标处理向下校对。

也可以通过右键菜单进行单字校对。

图 5　【多音校对】对话框

图 6　使用右键菜单进行校对

5 删除声调

将全文档或者所选容中的声调标记替换为无声调的拼音。

图 7　删除声调

6 去字留音

删除所选内容或者全文档中的拼音（域）部分，仅保留无格式文本。

图 8　去字留音

7

打开WDPY.TXT词库，供用户整理维护。

图 9　打开WDPY.TXT文件

相关链接：www.rousoft.com.cn

下载： WDPY.rar

 

2009-3-18


]]> <![CDATA[test]]> http://blog.excelhome.net/user1/gvntw/1106.html gvntw 2009-3-16 15:46:00 测试附件

日期与星期.zip

]]> <![CDATA[根据活跃天数计算出QQ等级及升级剩余天数]]> http://blog.excelhome.net/user1/gvntw/1103.html gvntw 2009-2-17 14:00:00 根据活跃天数，计算出QQ现在的等级及升级剩余天数。详见附件。

QQ.zip

]]> <![CDATA[在Excel2007中嵌入Flash文件]]> http://blog.excelhome.net/user1/chrisfang/1102.html chrisfang 2009-2-8 17:18:00 从目前掌握的一些信息来看，Office2007SP1/SP2之下，Excel2007中还不能创建真正嵌入Flash文件的文档（可以插入Shockwaveflash控件来选择嵌入flash文档，但在移除源文件后就会无法播放，原因是保存xlsm的时候没有真正完成“嵌入”的操作）。

有一种变通的方法可以稍许安慰一下那些对此表示失望的用户们，

首先，你的机器上要安装有Office2003版本，并且已经升级到SP3版，然后从微软网站上下载并安装格式兼容包FileFormatConverters.exe（下载地址：http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=941b3470-3ae9-4aee-8f43-c6bb74cd1466）

然后，打开Excel2003，插入shockwaveflash控件，将控件的movie属性指向本地或网络的swf文件，并将控件的Embedmovie属性设置为True。完成设置后，退出“设计模式”，此时应该可以看到正常播放的Flash动画。

接下来，在Excel2003的菜单中选择“文件”——“另存为”，在“另存为”对话框下方的“保存类型”下拉列表中选择“Excel2007启用宏的工作簿(*.xlsm)”，选择保存文件。

这样生成的2007版的xlsm文件就可以携带着嵌入其中的flash文档传播给其他用户打开欣赏。

但是需要注意的是，这个xlsm不能在Excel2007下面再次保存，否则会丢失嵌入的信息。

 

]]> <![CDATA[提取Office2007版中的Flash文件]]> http://blog.excelhome.net/user1/chrisfang/1101.html chrisfang 2009-2-2 16:16:00 网上很多地方都能找到2003版中提取所嵌入的Flash文件的方法和代码，但是2007版本出来那么久了，在网上搜索了一下好像07版本下的相应提取工具还没有出现。

由于2007的文件格式发生了变化，原有2003下的提取方法和代码已经不再适用，因此我重新做了一个适应07版本的。

先说一下思路，Office2007使用了一种新的文件格式Office Open XML，这种格式基于XML和ZIP存档技术。也就是说，如果把2007的Office文件例如 *.xlsm、*.xlsx等文件的扩展名改为zip，就可以当作zip压缩包一样打开和解压缩。

在解压之后，如果是Excel文档，则解压目录下有名为“xl”的文件夹（PPT的话是“ppt”文件夹，WORD的话是“word”文件夹，我这个程序只做了查找xl的代码，也就是说只适用于Excel文档），打开这个文件夹，如果添加了Flash控件，则会有一个名为“Activex”的文件夹，这个文件夹下面的BIN文件中就包含了flash文件，用二进制格式打开文件可以找到“465753”的swf文件头。接下来的工作就和2003中提取的方法没什么区别了。（因此这部分代码基本上照搬现有的代码）

程序如下：（现在的代码没有去做很强的自适应功能，只能找文档中的第一个activex控件，如果目标文档中的首个Activex控件不是flash的控件，那就会出错。有兴趣的朋友可以另外加个遍历和判断，还可以提取多个flash文档。）

提取Excel2007中的flash.rar

 

代码如下：

Private Sub CommandButton1_Click()

    Dim FSO As Object
    Dim oApp As Object
    Dim Fname, fname2 As Variant
    Dim fileNameInZip As Variant
    Dim mypath As Variant
  
   
    mypath = ThisWorkbook.Path
    mypath = mypath & "\"
    
    Fname = Application.GetOpenFilename(filefilter:="(*.xlsx;*.xlsm), *.xlsx;*.xlsm", _
                                        MultiSelect:=False)
    If Fname = False Then
        'Do nothing
    Else
   Application.ScreenUpdating = False
  
  
   fname2 = mypath & "temp.zip"
  
   FileCopy Fname, fname2

     
    fname2 = fname2 & "\xl"
       
       
        Set oApp = CreateObject("Shell.Application")

              
        For Each fileNameInZip In oApp.Namespace(fname2).items
       
        If LCase(fileNameInZip) Like LCase("activeX") Then
                    oApp.Namespace(mypath).CopyHere _
                        oApp.Namespace(fname2).items.Item(CStr(fileNameInZip))
        End If
        Next
         
       
        tmpFileName = mypath & "activex\activex1.bin"
       
        ExtractFlash (tmpFileName)
       
        tmpFileName = mypath & "activex"
        RemoveDir (tmpFileName)
       
        fname2 = mypath & "temp.zip"
        Kill fname2
       
        On Error Resume Next
        Set FSO = CreateObject("scripting.filesystemobject")
        FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
    End If
Application.ScreenUpdating = True
End Sub


Sub ExtractFlash(tmpFileName As String)
Dim FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte

 

If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
    If myArr(i) = &H46 Then
        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
            ReDim swfArr(swfFileLen - 1)
            For myIndex = 0 To swfFileLen - 1
                swfArr(myIndex) = myArr(i + myIndex)
            Next myIndex
            Exit Do
        Else
            i = i + 3
        End If
    Else
        i = i + 1
    End If
Loop

myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 13) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId

MsgBox "提取完成！保存在当前目录", , "By Chrisfang @ Excelhome.net"

End Sub

Public Sub RemoveDir(dirpath)
       
        On Error Resume Next
        
      
          Dim fs, fc
          Dim f
          Dim tempFile
          Dim TempFolder
         
          Set fs = CreateObject("Scripting.FileSystemObject")
          Set f = fs.GetFolder(dirpath)
               
             
          Set SubSubFolders = f.SubFolders
         
          For Each TempFolder In SubSubFolders
                    TempFolder.Delete True
          Next
              
          Set tempFiles = f.Files
        
          For Each tempFile In tempFiles
                  tempFile.Delete True
          Next
         
          RmDir dirpath
      
  End Sub


 

【以下内容更新于2009年2月9日】

今天思考另外一个问题的时候突然想到，先前所做的这个提取程序是不是绕了一条远路？既然2003下面可以很方便地提取Flash文档，那么把2007的文档转存为2003的文档再来提取不是很简单？何必像上面那样搞得如此复杂？呵呵，真是聪明反被聪明误。不过上面这个作为对2007文件格式的一点研究，还是有那么一点点意义。

下面重新改写了一个可以通吃Excel2003和Excel2007文件的提取程序（程序适用于2007版本之中）：

Private Sub CommandButton1_Click()
    Dim Fname, fname2 As Variant
    Dim mypath As Variant
  
   Application.ScreenUpdating = False
   
    mypath = ThisWorkbook.Path
    mypath = mypath & "\"
   
    Fname = Application.GetOpenFilename(filefilter:="(*.xlsm;*.xls), *.xlsm;*.xls", _
                                        MultiSelect:=False)
    If Fname = False Then
        'Do nothing
    Else
   
      If Right(Fname, 1) = "m" Then
      fname2 = mypath & "temp.xls"
      Workbooks.Open Fname
      ActiveWorkbook.SaveAs Filename:=fname2, FileFormat:=xlExcel8
      ActiveWorkbook.Close
        ExtractFlash (fname2)
        Kill mypath & "temp.xls"
       
      Else
       ExtractFlash (Fname)
      End If
       
        On Error Resume Next
    
    End If
Application.ScreenUpdating = True
End Sub


Sub ExtractFlash(tmpFileName As String)
Dim FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte

If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
    If myArr(i) = &H46 Then
        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
            ReDim swfArr(swfFileLen - 1)
            For myIndex = 0 To swfFileLen - 1
                swfArr(myIndex) = myArr(i + myIndex)
            Next myIndex
            Exit Do
        Else
            i = i + 3
        End If
    Else
        i = i + 1
    End If
Loop

myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId

MsgBox "提取完成！保存在当前目录", , "By Chrisfang @ Excelhome.net"

End Sub


附件如下： 

提取Excel中的flash.rar
]]> <![CDATA[TextFilter文本过滤]]> http://blog.excelhome.net/user1/Harold/1100.html shourou 2008-12-31 10:27:00

TextFilter文本过滤

Word强大的功能之一，便是查找和替换。在我所接触的众多行业、众多网友、众多问题和众多需求中，有一情况，那就是对于无格式大文档的查换与替换，如果这些文本导入或者通过Word进行处理，可控性和效率都存在一些问题，更为主要的是，往往我们需要象文档结构图那样对查找的内容进行浏览、定位和编辑，并且希望进一步在结果中搜索或者在结果中进行替换，由此，我们产生了开发TextFilter文本过滤程序的想法。
TextFilter为独立的EXE程序，它需要Windows一些控件的支持，所以，它的安装文件相对较大，论坛上传受到限制，有需要或者兴趣的网友，可以到http://www.rousoft.com.cn/tf/进行下载。
TextFilter程序为共享软件，欢迎下载、转载、分发和试用。
 
]]> <![CDATA[修改 Excel 的撤消次数]]> http://blog.excelhome.net/user1/gvntw/1099.html gvntw 2008-12-28 12:38:00 Microsoft Office Excel默认的撤消次数为16次，可以通过修改注册表的方法增加次数，方法如下：
进入注册表编辑器（运行regedit.exe），依次展开：HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options，再单击“编辑”—“新建DWORD值”，数值名称改为“UndoHistory”，数值改为要撤消的次数，如十进制的20，关闭注册表编辑器，重新启动Excel就OK了。
]]> <![CDATA[查找Excel工作表中的重复数据]]> http://blog.excelhome.net/user1/fanjy/1098.html fanjy 2008-12-12 22:52:00 前不久，一位网友求教，要求找出Excel工作表中的重复数据并在单元格中列出。我给出了一个数组公式供参考，但不是太符合要求，因为这个数组公式虽然找出了重复数据，但是如果将数组公式向下复制时超出了出现重复数据的数量，会在相应单元格中显示错误。不久，这位朋友获得了更好的一个公式。这个公式非常好，很好地解决了这类问题，因此，我将其转贴于此，供有兴趣的朋友参考。
先看看下图：

在列A和列B中存在一系列数据（表中只是示例，可能数据还有很多），要求找出某人（即列A中的姓名）所对应的所有培训记录（即列B中的数据）。也就是说，在单元格E1中输入某人的姓名后，下面会自动显示这个人所有的培训记录。
我们知道，Excel的LOOKUP系列的函数能够很方便地实现查找，但是对于查找后返回一系列的结果，这类函数无能为力，因此只能联合其它函数来实现。
这里，在方法一中使用了INDEX函数、SMALL函数、IF函数和ROW函数，在方法二中还使用了Excel 2007中新增的IFERROR函数。
方法一：
1、选择单元格E3；
2、输入公式：=INDEX(B:B,SMALL(IF($A$2:$A$25=$E$1,ROW($A$2:$A$25),65536),ROW(1:1))) & " "，然后同时按下Ctrl+Shift+Enter键，即输入数组公式。
3、选择单元格E3后下拉至所有单元格。
方法二：
1、选择单元格F3；
2、输入公式：=IFERROR(INDEX($A$2:$B$9,SMALL(IF($A$2:$A$9=$E$1,ROW($A$2:$A$9)-ROW($A$2)+1,ROW($A$9)+1),ROW(1:1)),2)," ")，然后同时按下Ctrl+Shift+Enter键，即输入数组公式。
3、选择单元格F3后下拉至所有单元格。]]> <![CDATA[何谓老公]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1096.html gvntw 2008-11-20 15:45:00 老公，就是婚前总是早早赴约，婚后总是迟迟回家的那个人；
老公，就是婚前在你面前像孙子总是百依百顺，婚后在你面前像老子总是发号施令的那个人；
老公，就是婚前只看你的脸蛋是否漂亮，婚后只看你的双手是否会干家务活的那个人；
老公，就是婚前对你常常发誓，婚后对你常常发火的那个人；
老公，就是婚前常替你做事，婚后常叫你做事的那个人；
老人，就是婚前向你送玫瑰，婚后向你交工资的那个人；
老公，就是婚前对你说十句顶一句，婚后对你说一句顶十句的那个人；
老公，就是婚前对你说“你是我的一切”，婚后对你说“我是你的一切”的那个人；
老公，就是婚前在你面前干净整洁，婚后在你面前不修边幅的那个人；
老公，就是婚前常常盘问你，婚后又怕被你盘问的那个人；
老公，就是婚前对你的唠叨百听不厌，婚后对你的唠叨火冒三丈的那个人；
老公，就是婚前总说你美丽，婚后总说别人老婆漂亮的那个人；
老公，就是婚前与你逛街时口袋里装满钞票，婚后与你逛街时口袋里没有钞票的那个人。
]]> <![CDATA[添加“复制到文件夹”到右键快捷菜单]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1095.html gvntw 2008-11-14 15:23:00 在复制或移动文件或文件夹到其他文件夹时，得打开两个窗口，很不方便，我们可以在右键快捷菜单中添加“复制到文件夹”和“移动到文件夹”这两个菜单，方便操作，操作方法如下：
“复制到文件夹”

1、打开注册表编辑器（运行regedit），依次展开HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers。
2、右键单击ContextMenuHandlers，“新建”—“项”，将键名改为一个比较容易记住的名字，如“Copy To”。
3、选定“Copy To”主键，双击右侧窗口的“(默认)”，在弹出的“编辑字符串”对话框中，“数值数据”框中输入“{C2FBB630-2971-11D1-A18C-00C04FD75D13}”（不含双引号），单击“确定”按钮。

“移动到文件夹”
 
与复制到文件夹方法相同，主键名改为“Move To”，键值把“630”改为“631”，即：“{C2FBB631-2971-11D1-A18C-00C04FD75D13}”。
 
现在鼠标右击文件或文件夹，右键快捷菜单中就多出了“复制到文件夹”和“移动到文件夹”这两个菜单，方便用户操作。
]]> <![CDATA[使用Excel工作表来安排工作——OnTime事件]]> http://blog.excelhome.net/user1/fanjy/1092.html fanjy 2008-10-31 13:09:00 前不久，有位朋友问：由于工作太多太杂，导致经常常忘记要做的事情，希望利用Excel工作表来定时提醒要进行的工作。也就是说，在到达某个时刻后，工作表中的文本框会自动显示该时刻应该做的工作。如下面的图1和图2所示，图1为工作安排表，A列为工作安排，B列为开始该工作的时间；图2为用于显示当前应进行的工作。
test1
图1：工作安排表，在A列中是工作安排，B列中是工作开始的时间。可根据需要修改和添加
test2
图2：显示当前工作的界面。单击“显示”按钮后程序开始工作，当达到某时刻后，文本框中会显示当前应进行的工作
（注：这只是示例，可以根据自已的实际需要在图1的工作表中增加工作安排及相应的时间）
程序代码如下：
Option Explicit
Sub DisplayData()
    Application.OnTime Now + TimeSerial(0, 0, 1), “ChangeText”
End Sub

Sub ChangeText()
    Dim rng As Range, rngFind As Range, rngValue As Range
    Dim rngStart As Range
    Dim dTime As Date
    Dim lLastRow As Long
    
    On Error Resume Next
    
    lLastRow = Sheet3.Range(”B65536″).End(xlUp).Row
    Set rng = Sheet3.Range(”B1:B” & lLastRow)
    dTime = Time
    Set rngFind = rng.Find(dTime)

    Sheet5.TextBox1.Value = rngFind.Offset(0, -1).Value
    DisplayData
End Sub


工作表中的“显示”按钮关联的子过程为“DisplayData”。

注:同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[显示满足条件的所有数据]]> http://blog.excelhome.net/user1/fanjy/1091.html fanjy 2008-10-30 13:11:00 对于VLOOKUP函数来说，其主要缺陷是仅能返回与查找条件相匹配的单条数据，不能够返回与某条件相匹配的所有数据，但其优势是能够相当容易地获取与所给条件相匹配的第一条数据，如下图1所示。
vlookup1
图1：使用VLOOKUP函数返回包含某顾客姓名相应的行中的数据是很容易的方式
正如上图所示，在Excel 2007中使用结构化引用，VLOOKUP函数不仅容易使用，而且可读性也很强。在示例中，将表Table1中第一列的值与单元格A9中的值相匹配，并从表中第3列返回值。但是，不能返回表中第二个与“Dan”相匹配的值。事实上，很多时候我们都会碰到这样的情况，我们想要返回与条件相匹配的所有值，但是VLOOKUP函数只能返回满足条件的第一个值。
下面，让我们看看如何从表中获取满足条件的所有数据。首先，准备一些要操作的数据。我们以Office自带的Northwind示例数据库的一部分数据来演示，将其中的部分数据导入Excel表中，如下图2、图3、图4所示。
vlookup2
图2：导入到工作表Customers中的“Customer”表并命名为“tblCustomers”
vlookup3
图3：导入到工作表Orders中的“Orders”表并命名为“tblOrders”
vlookup4
图4：导入到工作表Details中的“OrderDetails”表并命名为“tblDetails”
当然，上述数据都不需要自已手工输入，只需从Northwind数据库中导入即可。现在，希望选择订单号（Order Number）后，能够显示该订单的详细信息，如下图5所示。
vlookup5
图5：当选择某订单号后，会显示该订单的详细信息
下面是图5显示的界面的主要设计过程。
1、在工作表相应的单元格中输入下列字符：
B1：Order Number
C3：Order Information
C4：Customer
F4：Order Date
F5：Status
F6：Salesperson
F7：Ship Date
C10：Order Details
C11：Product
D11：Quantity
E11：Unit Price
F11：Discount
G11：Total Price
H11：Status ID
2、创建包含所有订单IDs的一个命名区域，将使用该名称在数据有效性中创建订单号的下拉列表。为此，单击“公式——定义名称”，在“新建名称”对话框中输入：
名称：OrderIds
引用位置：=tblOrders[ID]
注：数据有效性不能够引用不同工作表中的单元格区域，除非将该区域定义名称。
3、选择单元格D1，将其命名为rngOrderId。
4、选择单元格D1，单击“数据——数据有效性”，在“允许”中选择“序列”，在“来源”框中输入“=OrderIds”。
5、选择单元格C5，输入下列函数：
=VLOOKUP(rngOrderId, tblOrders, MATCH(C4, tblOrders[#标题], 0), FALSE)
6、与单元格C5中的函数相似，设置剩余单元格的查找函数。
C6：=VLOOKUP($C$5,tblCustomers,MATCH(”Address”,tblCustomers[#标题],0), FALSE)
C7：=VLOOKUP($C$5, tblCustomers, MATCH(”City”,tblCustomers[#标题],0), FALSE) & “, ” & VLOOKUP($C$5, tblCustomers, MATCH(”State”,tblCustomers[#标题],0), FALSE) & ” ” & VLOOKUP($C$5, tblCustomers, MATCH(”Zip”,tblCustomers[#标题],0), FALSE)
H4：=VLOOKUP(rngOrderId, tblOrders, MATCH(F4, tblOrders[#标题], 0), FALSE)
H5：=VLOOKUP(rngOrderId, tblOrders, MATCH(F5, tblOrders[#标题], 0), FALSE)
H6：=VLOOKUP(rngOrderId, tblOrders, MATCH(F6, tblOrders[#标题], 0), FALSE)
H7：=VLOOKUP(rngOrderId, tblOrders, MATCH(F7, tblOrders[#标题], 0), FALSE)
至此，完成了我们的界面的上半部分，如图6所示。
vlookup6
图6：已完成的查找界面
下面，让我们来看看将要使用的公式中的一些函数。
1、实际上，我们不会使用VLOOKUP函数。因为需要返回多个项目，因此需要一种方式来返回一组值，而VLOOKUP函数不允许这样做。相反，我们使用INDEX函数返回指定行和列交叉部分的值。
2、我们需要指定想要在单元格中显示的数组中的项目，这里可使用SMALL函数和ROW函数来实现。
3、我们希望如果在源数据中添加额外的列时确保数据能够自动调整，这里使用MATCH函数。
4、最后，我们希望有错误处理功能，这里使用IFERROR函数（这是在Excel 2007中新增的函数）来确保如果在计算中有错误将只是显示空单元格。
好了，先让我们来看看已经完成的函数，如下图7中的单元格C12所示（注意，这是一个数组公式，其左右两侧的花括号不需要自已输入。在输完公式后按下Ctrl+Shift+Enter组合键即可）。
vlookup7
图7：数组公式用于返回与特定值相匹配的第N项
这个公式看起来很复杂，为便于阅读，将其书写如下：
{
=IFERROR(
INDEX(tblDetails,
 SMALL(
IF(tblDetails[Order ID]=rngOrderId,
ROW(tblDetails[Order ID])-ROW(tblDetails[#标题])
),
ROW(1:1)
),
MATCH(C$11, tblDetails[#标题], 0)
),
“”)
}
首先，看看SMALL函数，该函数接受一组值并从中返回第N小的值。
SMALL(
IF(tblDetails[Order ID]=rngOrderId,
ROW(tblDetails[Order ID])-ROW(tblDetails[#标题])
),
ROW(1:1)
),
本例中，数组的值由IF函数确定。特别地，如果Details表中某行的Order ID与在下拉列表中选择的Order ID相等，那么添加该行的行号到数组值中。通过使用ROW函数，Excel能够自动调整公式来向下填充单元格。并且，通过使用结构化引用，使得工作表数据能够自动适应源数据的变化。
然后，再看看INDEX函数，该函数接受一个二维数据并返回数组中指定行列位置的值。
INDEX(tblDetails,
 SMALL(
IF(tblDetails[Order ID]=rngOrderId,
ROW(tblDetails[Order ID])-ROW(tblDetails[#标题])
),
ROW(1:1)
),
MATCH(C$11, tblDetails[#标题], 0)
),
我们已经知道，本例中的SMALL函数返回与输入的Order ID相匹配的Order Details列表中ROW(Nth)的值，这里是第一个值即行号。接着需要获取列号，即使用MATCH函数，本例中该函数接受C11的值并查找在Details表中有相同名称的列。
最后使用的是IFERROR函数，如果包含计算式发生错误，使用空字符串（””）替换错误值。
现在，选择单元格C12，拖动其右下角的填充柄至单元格H12。选择单元格区域C12：H12，拖动填充句柄向下10行或更多。那么，现在当我们改变Order ID时，将会自动更新相关信息。
vlookup8
图8：完成的界面表，使用数组公式向下填充以获取所有相关信息

摘自Excel Team Blog,本文有删节.同时发表于完美Excel:http://www.excelperfect.com
示例工作簿下载：Master-Detail

]]> <![CDATA[南麂岛风光]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1090.html chrisfang 2008-10-20 16:58:00     10月11号左右，去慕名已久的南麂岛走了一趟。
    清晨4点钟出发坐了6个多小时的车，下车又去赶船。都说快艇虽然有点颠簸但问题应该不大，但没想到遇到5、6级的大风浪，船上的人吐得一塌糊涂。1个半小时的船程，我在憋了40多分钟的时候终于还是忍不住在周围一片哀号声中吐了。
    两天简单看下来，南麂岛的自然风光还不错，有沙滩的海岸好像只有一处，还比较小，乱石堆的海岸倒还是蛮不错的，海水还算干净。岛上接待能力较差，吃住条件都一般，这还是淡季，旺季的时候真的不太适合在这里凑热闹。
    照片上传速度慢，其他事情也比较多，所以隔了两个礼拜才把照片放出来：





























]]> <![CDATA[全新解决：PHP has encountered an Access Violation]]> http://blog.excelhome.net/user1/kevin/archives/2008/1089.html Kevin 2008-10-13 10:37:00 大概没有人在玩PHP的过程中会不曾遇到“PHP has encountered an Access Violation…”错误吧？尤其是像这种完全没有接触过Microsoft以外平台的人来说，第一次着实被吓得不轻，在花了三个小时也没解决后，差点放弃了。
习惯了Windows平台的全GUI操作模式，对于完全需要手工配置的PHP + MYSQL ，实在是不习惯。好有很多东西的原理是相同的，熟悉起来也不是太难的事情。

在尝试过PHP和MYSQL的自动安装和手动安装后，在经过不同版本的组合试验后，经典的“PHP has encountered an Access Violation…”终于不请自来，PHPMYADMIN不可用，DZ也不可用。上网一搜，同病相怜的人还真不少，而且大家都纷纷转载某位大侠的文章，我也摘抄一下吧，只是抱歉无法知道原作者是谁。

这个问题不是很好处理，困惑了很多站长非常时间了
主要出现在windows主机的服务器上。
在php官方，http://bugs.php.net/
也能够查到两三千页的报告，他们官方也是束手无策，经过了11个小版本后，还是没有彻底解决
http://bugs.php.net/search.php?cmd=display&search_for=PHP+has+encountered+an+Access&x=8&y=9
目前我提供一下这几年我维护经验，我的一些民间解决办法
第一种可能：
去掉 php中 eaccelerator 的扩展
这样做能够解决您的问题，不过可能会加重系统负担
因为eaccelerator主要是为了节省系统资源的东西
具体做法是找到php.ini
如果是我帮您配置的，一般在c:/php/php.ini或者 c:/winnt/php.ini 或者c:/windows/php.ini
去掉
zend_extension_ts="C:\php\extensions\eaccelerator_win_xxx.dll"
eaccelerator.shm_size="16"
eaccelerator.cache_dir="c:\temp"
eaccelerator.enable="1"
eaccelerator.optimizer="1"
eaccelerator.check_mtime="1"
eaccelerator.debug="0"
eaccelerator.filter=""
eaccelerator.shm_max="0"
eaccelerator.shm_ttl="0"
eaccelerator.shm_prune_period="0"
eaccelerator.shm_only="0"
eaccelerator.compress="1"
eaccelerator.compress_level="9"
ea主要是在unix环境下开发的，但是作者忽略到windows实际上不像u主机那样，是没有u主机的那种内存共享机制的
这个bug已经提交给他们了，希望0.9.5能够解决
当然，如果您的机器这个问题不严重，建议还是保留，ea是一块非常优秀的Php缓存+加速软件
配合zo使用，将会降低系统负担 50%-80%左右，提高负载能力、速度和效率 200%左右
 

第二种可能
session_save_path 需要设定一个实际的物理路径，并且该目录需要everyone的所有权限，类似U主机的0777
 

第三种可能
c:/winnt/temp 或者 c:/windows/temp
也需要everyone的所有权限，类似U主机的0777
 

第四种可能
您的内存严重不足，查看一下，如果有问题，请加内存，最好是一次加两条
比如加1G内存，最好是加2条一模一样的512M。否则没有启用双通道，效果也很一般
 

第五种可能
ZendOptimizer和php的搭配不是很好
换个版本试试看
目前比较稳定的搭配是
php4.3.11+zo 2.5.10a
或者php4.4.1+zo 3.0 beta2
 

第六种可能
这种多属于用win2003的用户
他们在应用池中设定了限制
比如多长时间回收，最大使用内存多少等等
这些设置势必造成这个经典的php错误
木头经过数以百计的测试，敢担保问题会出现在这里。
这篇文章的作者应该具有相当丰富的经验，可惜他的这些经验目前对于我都没有帮助，也就是说以上的六种可能在我这里都不存在。
 
伴着这个问题上床睡觉，但难以入眠，反复对比这几天没有遇到此问题的各种配置，思索着可能的第七种原因。
 
出现这个问题，在我重装Windows Server 2003，全新下载php+mysql+zend并安装的环境下。服务器系统本身是肯定没有问题的，在出错的情况下，完全卸载php+mysql+zend，并换上xampp却是正常的，说明DZ没问题，并再次说明系统没有问题。
 
出错的主要是phpmyadmin和DZ，而这两者都是需要和mysql连接的，是否mysql有问题？
 
第二天早上顾不得吃早饭就查看并保存了xampp下面的phpinfo，然后重新装上昨天出问题的组合，查看phpinfo，一对比，最主要的区别就在于mysql的版本。xampp带的是5.022，我自己安装的是5.124。
 
卸载mysql5.124，重新下载一个mysql5.022装上，还是不行。再次检查phpinfo，发现mysql模块的版本仍然是5.124。
于是停止运行mysql和IIS，把mysql安装目录下面的libmysql.dll分别覆盖到php安装目录和%win%\system32下面，再重启MYSQL和IIS，问题解决！
 
感叹1：开源软件是好，但是太缺乏标准和统一性，过多的版本让人会难以适从。偶这还是WIMP，如果是真正的LAMP，版本之间的组合可能会更多，怎么选呢？
感叹2：软件并非越新越好，合适的就是最好的。
]]> <![CDATA[在一个列表框中显示另一列表框中的具体内容]]> http://blog.excelhome.net/user1/fanjy/1088.html fanjy 2008-10-11 12:10:00 有时，需要选中某列表框的的项目后，在另一列表框中显示该项目的具体内容，如下图1所示。
listboxselect1
图1：两个列表框实现内容匹配
“专业工程”包括“建筑工程、装饰装修工程……”等，当选中项目列表框中的专业工程后，在分类列表框中显示相应的内容。同理，选择项目列表框中的措施项目后，在分类列表框中也会显示相应的内容。
第一步：准备数据
如下图2所示，在工作表Sheet1中输入下列数据。
listboxselect2
图2：基础数据
将A列的数据命名为“项目”，将B列的数据命名为“专业工程”，将C列的数据命名为“措施项目”。注意，B列和C列的名称应与A列的数据相一致。
第二步：准备窗体界面
如图1所示，在用户窗体中放置两个标签控件、两个列表框控件，并将两个列表框控件分别命名为lbxItem和lbxCategory。
第三步：输入代码
在用户窗体代码模块中，输入下列代码：
Private Sub lbxItem_Change()
    Dim rngCategory As Range
    
    Set rngCategory = Sheet1.Range(Me.lbxItem.Value)
    
    Me.lbxCategory.List = rngCategory.Value
End SubPrivate Sub UserForm_Initialize()
    Dim rngItem As Range
    
    Set rngItem = Sheet1.Range(”项目”)
    
    Me.lbxItem.List = rngItem.Value
End Sub
运行后的最终效果如图1所示。当然，您可以在A列添加更多的项目数据，然后在C列、D列……添加相应的内容并以A列的数据命名，从而扩展本实例。

注:本文同时发表于完美Excel:http://www.excelperfect.com

 

]]> <![CDATA[仿Google输入框——快速查找列表框中的项目]]> http://blog.excelhome.net/user1/fanjy/1087.html fanjy 2008-10-7 15:28:00 在使用Google搜索时，当在输入框中输入时，下方会出现相关条目供选择，以方便快速输入。下面，我们在Excel用户窗体中使用文本框和列表框来仿造这样的效果。
有时，当用户窗体中的列表框包含大量的项目时，我们必须拖动其滚动条来查找相应的项目。然而，可以利用一些技巧快速找到所需的项目。
如图1所示，在用户窗体中，放置有两个控件，上方为一名为txtFind的文本框，下方为一名为lbxData的列表框，列表框的数据来自工作表Data的列A中的数据。
ListBoxFilter1
图1
当我在上方的文本框txtFind中输入“excel vba”后，下方的列表框lbxData将只出现包含有“excel vba”的条目，如图2所示。
ListBoxFilter2
图2
实现上述效果的VBA代码如下：
Option Explicit
Dim varData

Private Sub txtFind_Change()
    Dim i As Long
    Dim strFind As String
    
    strFind = “*” & UCase(Me.txtFind.Text) & “*”
    
    With Me.lbxData
        .List = varData
        For i = .ListCount - 1 To 0 Step -1
            If Not UCase(.List(i)) Like strFind Then
                .RemoveItem i
            End If
        Next i
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim lLast As Long
    Dim rng As Range
    
    lLast = Sheet1.Range(”A” & Cells.Rows.Count).End(xlUp).Row
    varData = Sheet1.Range(”A1:A” & lLast)
    
    Me.lbxData.List = varData
End Sub


我们可以将UserForm_Initialize代码块中的代码Me.lbxData.List = varData删除，这样当在文本框txtFind中输入时，只要输入的数据符合列表框包含的数据，列表框中将自动出现相关条目并随着输入的进一步具体条目相应减少至完全匹配输入的数据，如图3、4、5所示。
ListBoxFilter3
图3：初始化后的用户窗体
ListBoxFilter4
图4：开始输入后，列表框中的条目随着文本框中输入的数据而变化
ListBoxFilter5
图5：文本框中的数据越具体，列表框中的条目也越少且与文本框输入相匹配
此外，在Excel 2000及以后的版本中，VBA提供了一个Filter函数，使用该函数，也能实现上述效果。代码如下：
Option Explicit
Private Sub txtFind_Change()
    Dim varData As Variant
    
    varData = Range(”A1″, Cells(Rows.Count, 1).End(xlUp)).Value
    varData = Application.Transpose(varData)
    
    varData = Filter(SourceArray:=varData, _
                   Match:=txtFind.Value, _
                   Include:=True, _
                   Compare:=vbTextCompare)
    
    Me.lbxData.List = varData

End Sub

Private Sub UserForm_Initialize()

    Me.lbxData.List = Range(”A1″, Cells(Rows.Count, 1).End(xlUp)).Value
End Sub
注:同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[ActiveX:使用VBA在工作表中添加ActiveX控件]]> http://blog.excelhome.net/user1/fanjy/1084.html fanjy 2008-9-27 13:21:00 Forms.Checkbox.1（复选框）
Forms.Combobox.1（组合框）
Forms.Optionbutton.1（选项按钮）
Forms.Textbox.1（文本框）
Forms.Listbox.1（列表框）
Forms.Commandbutton.1（命令按钮）
下面举一个例子，提供一些思路，并供探讨。如下图所示，要求在每项工作前面都添加复选框，并且当用户选中复选框后，自动隐藏该复选框所在的行。
http://blog.excelhome.net/AddActiveXControlCheckbox1
下面的代码用来添加复选框：
Sub RefreshList()
    Dim oCheck As OLEObject
    Dim rCell As Range, rRange As Range
    Dim lLastRow As Long
    
    
    ‘清除已经存在于工作表中的复选框
    For Each oCheck In Sheet1.OLEObjects
        oCheck.Delete
    Next oCheck
    
    lLastRow = Sheet1.Range("B" & Cells.Rows.Count).End(xlUp).Row
    Set rRange = Sheet1.Range("B2:B" & lLastRow)
    
    For Each rCell In rRange
        rCell.RowHeight = 14
        With Sheet1.OLEObjects.Add(ClassType:="Forms.Checkbox.1", _
                   Top:=rCell.Top, Left:=rCell.Offset(0, -1).Left, _
                   Height:=rCell.Height, Width:=rCell.Offset(0, -1).Width)
                      
            .Object.Caption = ""
            .LinkedCell = rCell.Offset(0, -1).Address
            .Object.Value = False
        End With
     Next rCell
    
End Sub
上述代码首先删除工作表中所有已存在的复选框，因为本示例已知道工作表中无其他控件，所以直接删除，如果无法判断是否有其他控件而只需删除复选框，可以加上一个条件判断语句：
If TypeName(oCheck.Object)="CheckBox" Then
这样，仅删除复选框。
然后，在确定数据范围后，在第一列添加复选框并设置了一些属性值以方便以后操作。这里，有一些通用的适合于其他控件的属性，也有一些专属于复选框的属性。
下面的代码用于隐藏复选框选中后的行：
Sub HideRows()
    Dim rCell As Range, rRange As Range
    Dim lLastRow As Long
    
    lLastRow = Sheet1.Range("B" & Cells.Rows.Count).End(xlUp).Row
    Set rRange = Sheet1.Range("B2:B" & lLastRow)
    
    For Each rCell In rRange
        If rCell.Offset(0, -1).Value Then
            rCell.EntireRow.Hidden = True
        End If
    Next rCell
    
End Sub

上述代码遍历设定区域的每行并隐藏已复选的行。
http://blog.excelhome.net/AddActiveXControlCheckbox2
注:同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[在用户窗体中查看满足条件的记录]]> http://blog.excelhome.net/user1/fanjy/1081.html fanjy 2008-9-23 13:05:00 在《链接用户窗体与工作表》及《链接用户窗体与工作表（续）》中曾介绍了在用户窗体中显示工作表中的数据的方法。这里，介绍另一种情况，即在用户窗体中查看满足特定条件的记录。如下图所示，表中姓名为张三的共三条记录，在姓名右侧文本框输入后，自动显示第1条记录，可以单击前一条和后一条按钮来回显示记录。
http://blog.excelhome.net/ViewRangeDataInUserForm
首先使用Find方法建立想要显示的记录区域，然后使用Property Set语句创建的自定义属性将记录区域传递给用户窗体。要确保记录区域的引用与工作表中出现的顺序相同，在Find方法中使用了After参数并将其值设 置为搜索区域的最后一个单元格，这样Find方法将从单元格区域的第一个单元格开始搜索。
将用户窗体命名为UPos，其中的一些控件及其名称为：姓名文本框（txtName）、工作内容文本框（txtWork）、共有记录的文本框（txtY）、第几条记录的文本框（txtX）、前一条按钮（cmdPrev）、后一条按钮（cmdNext）。
在标准模块中输入下列代码：
Sub ShowPos()
Dim ufPos As UPos ‘用户窗体变量
Dim rFound As Range ‘存储当前找到的单元格
Dim rNameRange As Range ‘要搜索的单元格区域
Dim sFirstAdd As String ‘第一个被找到的单元格的地址
Dim rAllFound As Range ‘所有找到的单元格

‘从用户处获取数据,这里为了介绍方便采用了硬编码
Const strName As String = "张三"

Set rNameRange = Sheet1.Range("A2:A8")

‘查找
Set rFound = rNameRange.Find(strName, rNameRange(rNameRange.Cells.Count), xlValues, xlWhole)

‘如果找到
If Not rFound Is Nothing Then
‘存储第一个找到的单元格的地址
sFirstAdd = rFound.Address
‘添加找到的单元格到所有找到的单元格区域中
Set rAllFound = rFound
‘继续查找直到循环到开始处为止
Do
Set rFound = rNameRange.FindNext(rFound)
If rFound.Address <> sFirstAdd Then
Set rAllFound = Union(rAllFound, rFound)
End If
Loop Until rFound.Address = sFirstAdd

‘创建用户窗体
Set ufPos = New UPos

‘传递单元格区域到用户窗体
Set ufPos.AllFound = rAllFound

ufPos.Initialize
ufPos.Show
Else
MsgBox "没有找到匹配的数据!"
End If

Set ufPos = Nothing

End Sub

在用户窗体模块中，声明一些模块级的变量来包含传递的区域以及当前显示的区域。
Private mrAllFound As Range
Private mrCurrent As Range

Property Set AllFound(RHS As Range)
Set mrAllFound = RHS
End Property

在显示用户窗体之前，要初始化该窗体，将查找到的第一条记录填充窗体中的相应控件。
Public Sub Initialize()
‘设置当前记录为第一条记录
If Not mrAllFound Is Nothing Then
Set mrCurrent = mrAllFound(1)
Me.txtName.Text = mrCurrent.Value
Me.txtWork.Text = mrCurrent.Next.Value
Me.txtY.Text = mrAllFound.Cells.Count
Me.txtX.Text = 1
End If
End Sub
前一条按钮和后一条按钮使用FindPrevious方法和FindNext方法将记录移动到合适的位置。
Private Sub cmdNext_Click()
‘设置当前单元格
Set mrCurrent = mrAllFound.FindNext(mrCurrent)

Me.txtName.Text = mrCurrent.Value
Me.txtWork.Text = mrCurrent.Next.Value

‘增加计数器值
Me.txtX.Text = Me.txtX.Text + 1
End Sub

Private Sub cmdPrev_Click()
Set mrCurrent = mrAllFound.FindPrevious(mrCurrent)
Me.txtName.Text = mrCurrent.Value
Me.txtWork.Text = mrCurrent.Next.Value
Me.txtX.Text = Me.txtX.Text - 1
End Sub
最后，当第几条文本框中的值变化时，启用或禁用按钮以便使得用户不能试图到达不存在的记录。
Private Sub txtX_Change()
‘启用/禁用按钮
If Me.txtX.Text = 1 Then
Me.cmdPrev.Enabled = False
Else
Me.cmdPrev.Enabled = True
End If

If Me.txtX.Text = Me.txtY.Text Then
Me.cmdNext.Enabled = False
Else
Me.cmdNext.Enabled = True
End If
End Sub
注：本文整理自Dick的博客，稍作修改，供参考。

]]> <![CDATA[链接用户窗体与工作表(续)]]> http://blog.excelhome.net/user1/fanjy/1080.html fanjy 2008-9-20 15:40:00 本文是《链接用户窗体与工作表》一文的续篇，在阅读本文之前，请先阅读《链接用户窗体与工作表》。
现在，我们需要使该用户窗体在原有功能的基础上增加搜索功能。当选择字段并输入相应的数据后，能搜索到记录并显示在用户窗体中，如图4所示。
http://blog.excelhome.net/LinkUserformAndWorksheet4
图4：在用户窗体中增加搜索功能
在原窗体中添加一个框架，在框架内添加组合框、文本框和命令按钮，各控件的名称和Tag属性如下：
名称（Tag属性）
frmFind()
cmbFind()
txtFind()
cmdFind(tgFind)
其中，括号内为空表明没有设置该控件的Tag属性。
为了使用户能搜索任一字段，因此添加了组合框cmbFind。用户可以首先从中选择要搜索的字段，然后在右侧的文本框中输入要搜索数据的全部或部分内容，最后当单击查找按钮后在下方显示该条记录的信息。
要填充组合框，在用户窗体的初始化事件Initialize的代码中添加下列语句：
Me.cmbFind.List = Application.Transpose(wksContacts.Range("ColHeads").Value)
其中，ColHeads为工作表中标题行区域的名称。此时，在将该名称区域的数据放置到组合框之前，需要将列数据转置为行数据。
接下来，确保查找按钮处于禁用状态，直到在组合框和文本框中含有相应的数据。因此，添加了两个事件过程和一个启用/禁用按钮控件的过程。代码如下：
Private Sub cmbFind_Change()
‘如果用户已选择组合框中的项目或者在文本框中输入内容
‘那么启用查找按钮
If Me.cmbFind.ListIndex > -1 And Len(Me.txtFind.Text) > 0 Then
EnableControls "tgFind"
Else
EnableControls "tgFind", True
End If
End Sub

Private Sub txtFind_Change()
If Me.cmbFind.ListIndex > -1 And Len(Me.txtFind.Text) > 0 Then
EnableControls "tgFind"
Else
EnableControls "tgFind", True
End If
End Sub

Private Sub EnableControls(sTag As String, _
Optional bDisable As Boolean = False)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = sTag Then
ctl.Enabled = Not bDisable
End If
Next ctl
End Sub

查找按钮cmdFind的代码如下：

Private Sub cmdFind_Click()
Dim lCol As Long
Dim rFound As Range

‘因为组合框的ListIndex属性起始值为0,因此加1以确定搜索列
lCol = Me.cmbFind.ListIndex + 1

‘查找包含文本框中文本的第一个单元格
‘Lookat参数的值为xlPart表明不需要完全匹配
Set rFound = wksContacts.Columns(lCol).Find(What:=Me.txtFind.Text, _
LookIn:=xlValues, _
LookAt:=xlPart)

‘如果找到记录则改变滚动条到该记录
‘否则显示一条新记录
If Not rFound Is Nothing Then
Me.scbContact.Value = rFound.Row - 1
Else
Me.scbContact.Value = Me.scbContact.Max
End If
End Sub

至此，新增功能完成。当然，您可以按需要再添加其他功能，以丰富该窗体。

]]> <![CDATA[Excel的条件格式技术(3)]]> http://blog.excelhome.net/user1/fanjy/1079.html fanjy 2008-9-15 14:06:00 Excel的条件格式技术前面的文章链接：

本文的内容：近期在进行造价工程师考试的复习，其中有许多内容涉及到关于进度图表的，联想到Excel很方便制作这样的图表。这里，先使用条件格式来简单制作这样的图表，以后的文章将有专门使用Excel图表技术制作进度图（甘特图）的内容。
示例3：绘制进度图表
灵活使用Excel的条件格式，可以绘制简单的工作进度图表。例如，要绘制如图12所示的进度图，其中开始和结束分别代表项目开始和结束的周。
http://blog.excelhome.net/ConditionalFormatByGanttChart
图12：完成后的进度图效果。在项目之间增加了空行，使图示更清晰。
完成图12的步骤如下：
第1步：在工作表中输入数据，并进行相应的格式化操作。
第2步：选择单元格区域D3：O15，单击“格式——条件格式”。
第3步：在“条件格式”对话框中选择“公式”并输入下列公式：
=AND(D$2>=$B3,D$2<=$C3)
然后，单击“格式”按钮，应用相应的格式，如图13所示。
http://blog.excelhome.net/ConditionalFormatByGanttChart1
图13：设置条件格式
单击“确定”按钮后，完成最终的进度图如图12所示。此时，如果在工作表中更改开始和结束时间，进度条会相应的更改。
如果需要为不同项目的进度条应用不同的格式或颜色，则需要使用Excel 2007。在Excel 2007中提供了更为丰富的条件格式选择和更优美的界面，我们将详细探讨。这里，利用Excel 2007，为图12所示的进度图制作更丰富的效果。最终效果如图14所示。
http://blog.excelhome.net/ConditionalFormatByGanttChart3
图14：设置具有不同颜色的进度条
完成图14的步骤如下：
第1步：在Excel 2007工作表中输入数据，并进行相应的格式化操作。
第2步：选择单元格区域D3：O3。在“开始”选项卡中选择“条件格式——管理规则”，打开“条件格式规则管理器”对话框。单击“新建规则”按钮，打开“新建格式规则”对话框。选择“使用公式确定要设置格式的单元格”，在“为符合此公式的值设置格式”中输入公式：
=AND($B3<=D$2,$C3>=D$2)
单击“格式”按钮，在“填充”选项卡中选择红色，单击“确定”按钮关闭“设置单元格格式”对话框。单击“确定”按钮关闭“新建格式规则”对话框，此时的对话框如图15所示。
http://blog.excelhome.net/ConditionalFormatByGanttChart2
图15：设置规则
第3步：对单元格区域D5：O5、D7：O7、D9：O9、D11：O11、D13：O13、D15：O15分别重复第2步的操作。但是，在输入公式时要针对具体的行进行修改，并对格式填充颜色进行相应的更改。
完成后的进度图如图14所示。

]]> <![CDATA[有趣的Excel图表——气泡图]]> http://blog.excelhome.net/user1/fanjy/1078.html fanjy 2008-9-12 13:52:00 http://blog.excelhome.net/BubbleChartMouse
在这里贴出来，让大家感受一下Excel图表的魅力。
当然，若有制作出这只老鼠脸，要不断地调整表中的数据和气泡大小，且要调整颜色，才能达到良好的效果，还是要一番功夫的哟！
同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[Excel的条件格式技术(2)]]> http://blog.excelhome.net/user1/fanjy/1077.html fanjy 2008-9-10 19:47:00 Excel的条件格式技术（1），再给大家进一步介绍Excel条件格式的强大功能。
下面借用自已在学习中看到的关于条件格式的一些示例，对条件格式作进一步详细的介绍。
示例1：标识包含文本的单元格
如图6所示，在单元格区域B2：C4中包含数字和文本，现在要对该区域中的文本应用特定的格式，以标识包含文本的单元格。选择B2：C4，单击“格式─— 条件格式”，在“条件格式”对话框最左侧的组合框中选择“公式”，在右侧输入公式“=ISTEXT(B2)”，单击“格式”，设置字体为粗体，底纹为灰 色。
http://blog.excelhome.net/DiffData0
图6：对包含文本的单元格应用格式
如果要对不同的单元格区域应用该条件格式，那么ISTEXT函数的参数应该是该区域左上角的单元格。
示例2：标识两个列表中不相同的数据
有时，要比较两个列表区域中的不同数据，并将该数据所在的单元格标识出来。如图7所示，有两个列表区域A1：B12和D1：E12，现在要求找出区域D1：E12中与区域A1：B12有不同数据的单元格并在该单元格中标记为红色底纹。
http://blog.excelhome.net/DiffData1
图7：需要比较的两个列表区域
现在，按下列步骤来完成上述要求：
第1步：将单元格区域A2：B12命名为OldData。
第2步：选择单元格区域D2：E12，单击菜单“格式——条件格式”。
第3步：在“条件格式”对话框中，在“条件”组合框中选择“公式”，在右侧框中输入公式“=COUNTIF(OldData,D2)=0”。单击“格式”按钮，在弹出的对话框中选择图案为红色，如图8所示。
http://blog.excelhome.net/DiffData2
图8：设置条件格式
第4步：单击“确定”按钮，此时如图9所示，该列表中与左侧列表含有不同的数据的单元格被标上红色底纹。
http://blog.excelhome.net/DiffData3
图9：条件格式应用后，标识出不同的单元格
有时，可能列表在不同的单元格，如图10所示，要找出工作表Sheet2中与区域OldData中不同的数据单元格。与上述步骤3相同，选择工作表Sheet2中的单元格区域A2:B12，调出“条件格式”对话框，并作如图10所示的设置。
http://blog.excelhome.net/DiffData4
图10：选择区域A2：B12，设置条件格式
单击“确定”按钮后，效果如图11所示，标识出了与工作表Sheet1中区域OldData不同的数据。这也充分展示了定义名称的好处。
http://blog.excelhome.net/DiffData5
图11：应用条件格式后，为与OldData区域不同的数据单元格标上底纹
当然，本示例只是演示，数据很少。如果要比较大量的数据，光凭人工查找核对，费时费力且易出错，通过应用条件格式，将能够很快达到要求。
注：同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[链接用户窗体与工作表]]> http://blog.excelhome.net/user1/fanjy/1076.html fanjy 2008-9-6 18:11:00 前言：在使用Excel时，很多用户都希望有一个合适的数据输入窗体，在该窗体中输入数据后，这些数据会自动放置在工作表的相应单元格中，或者将工作表中的数据提取到窗体中。这里，我找到了Dick的一系列文章并将它们进行了整理，与大家分享。
演示——Excel的记录单
Excel提供了一个名为“记录单”的功能，用来让用户在窗体中输入数据并将数据放入工作表相应位置。如图1所示，单击“数据——记录单”，调出相应的对话框。
http://blog.excelhome.net/LinkUserformAndWorksheet1
图1：Excel的“记录单”
此时，可以在对话框中输入相应的数据，单击“新建”按钮后，所输入的数据会放置到工作表中。然而，记录单有很大的局限，它限制用户能够做的事情并且不能完全定制。
（注意，要调出“记录单”对话框，必须将活动单元格置于列表区域内。如果列表字段多于32个，将不能使用“数据——记录单”命令，用户必须直接在工作表中输入数据。
此外，John Walkenback还开发了一个优秀的记录单增强版本，有兴趣的朋友可以在网上找到该插件。这个增强版本的记录单能够满足绝大多数Excel用户的需要。）
下面介绍的不是一个通用目的的数据记录单，而是为特定的数据库建立的数据录入窗体。其主要目的是为了说明，用户可以使用用户窗体定制满足自身实际情况的输入窗体。
创建用户窗体
本示例的工作表如图1所示，包含着人员的联系信息。本示例的用户窗体如图2所示，用来输入和编辑信息。
http://blog.excelhome.net/LinkUserformAndWorksheet2
图2：数据输入窗体设计
将上面的窗体命名为UContact，其中各控件的名称和Tag属性分别为：
名称（Tag属性）
txtName(0)
cmbXb(1)
txtAddress(2)
txtCity(3)
cmbState(4)
txtZip(5)
scbContact()
cmdSave()
cmdClose()
lblName()
lblXb()
lblAddress()
lblCity()
lblState()
lblZip()
其中，Tag属性指出了工作表中数据相对于列A的偏移量。例如，txtName的Tag属性为0，表明在其中输入的数据就在A列。括号中为空表明该控件没有设置Tag属性。
装载用户窗体时
下面的过程在用户窗体装载时，从工作表中读取数据并填充窗体中的相应控件。
Private Sub PopulateRecord()
Dim lRow As Long
Dim ctlInfo As Control

‘存储当前记录所在的行
lRow = Me.scbContact.Value

With wksContacts.Range("A1")
‘遍历控件
For Each ctlInfo In Me.Controls
‘如果Tag属性为数值，则该控件是数据输入控件
If IsNumeric(ctlInfo.Tag) Then
‘从工作表中获取数据
ctlInfo.Text = .Offset(lRow, ctlInfo.Tag).Value
End If
Next ctlInfo
End With

‘标记清除的记录
Me.IsDirty = False
End Sub
其中，wksContacts为工作表的对象名称。使用Tag属性存储每个字段相对于列A的偏移量，并且使用IsNumeric函数进行测试，以方便以后对窗体的扩展，例如设置Tag属性为字符串型时。代码最后一行中的IsDirty将在随后的内容中讨论。
将窗体数据输入到工作表中
下面的过程与刚讲述的过程几乎相同，只是数据传输的方向相反，即将窗体中的数据输入到工作表相应的单元格中。
Private Sub SaveRecord(Optional ByVal lOffset As Long = 0)
Dim lRow As Long
Dim ctlInfo As Control

‘存储当前记录所在的行
lRow = Me.scbContact.Value + lOffset

With wksContacts.Range("A1")
‘遍历控件
For Each ctlInfo In Me.Controls
‘仅限于对数据输入控件
If IsNumeric(ctlInfo.Tag) Then
‘将值写入单元格
.Offset(lRow, ctlInfo.Tag).Value = ctlInfo.Text
End If
Next ctlInfo
End With

‘重新初始化滚动条设置
DefineScroll

‘标记清除的记录
Me.IsDirty = False
End Sub
在代码中，初始化滚动条以便其值与工作表中的记录保持同步。
重定义滚动条
Private Sub DefineScroll()
Dim rBottom As Range
Dim lRecordCnt As Long

With wksContacts
‘查找列A中最后的单元格
Set rBottom = .Range("A" & .Rows.Count).End(xlUp)
‘如果数据库为空
If rBottom.Row = 1 Then
lRecordCnt = 1 ‘设置一条记录-即新记录
Else
‘设置所有的记录数再加一条新记录
lRecordCnt = .Range("A2", rBottom).Rows.Count + 1
End If
End With

‘设置最小和最大值
Me.scbContact.Min = 1: Me.scbContact.Max = lRecordCnt
End Sub
无论何时将数据写入工作表还是当窗体打开时从工作表中装载数据，我们都需要合适地设置滚动条的最小值和最大值。这样，能够确保从窗体中能够访问所有的记录，同时又能在工作表中添加新记录。
确认记录是否发生了变化
当用户窗体显示记录时，需要知道用户是否对该记录作出了修改，因为仅希望“保存”按钮在记录发生改变时启用。同时，在关闭没有保存的记录时，希望能够警告用户。
这里使用了一个名为CControlEvents的类模块来完成这些任务。
Public WithEvents gTextBox As MSForms.TextBox
Public WithEvents gCombo As MSForms.ComboBox
Private Sub gCombo_Change()
UContact.IsDirty = True
End Sub
Private Sub gTextBox_Change()
UContact.IsDirty = True
End Sub

不能够处理通用的控件对象，因此必须为每窗体中的每类控件（此处即文本框和组合框）创建一个变量。使用其Change事件来对记录作出标记。
众所周知，用户窗体本身就是一个带有用户界面的内置类模块，这意味着能够从用户窗体中创建自定义属性。上面的事件代码使用了在用户窗体中创建的IsDirty属性。
Private mbIsDirty As Boolean
Property Get IsDirty() As Boolean
IsDirty = mbIsDirty
End Property
Property Let IsDirty(bDirty As Boolean)
mbIsDirty = bDirty
Me.cmdSave.Enabled = bDirty
End Property
Property Get过程允许读取IsDirty的值。Property Let过程在模块级变量中存储记录的状态，同时修改保存按钮的Enabled的属性。除非记录发生了变化，否则我们不希望用户启用保存按钮。
用户窗体的初始化事件
下面，我们探讨用户窗体的初始化事件，例如当窗体开启时将会发生什么。首先，声明一个模块级的变量：
Private mcControls As Collection
然后，在用户窗体的Initialize事件代码中输入代码：
Private Sub UserForm_Initialize()
Dim ctlInfo As Control
Dim clsEvents As CControlEvents

Set mcControls = New Collection

‘使用隐藏的工作表中的数据填充组合框
Me.cmbXb.List = wksData.Range("Xb").Value
Me.cmbState.List = wksData.Range("States").Value

‘遍历窗体中的控件
For Each ctlInfo In Me.Controls
‘Tag属性为数值的控件是数据输入控件,是我们操作的控件
If IsNumeric(ctlInfo.Tag) Then
‘创建新类
Set clsEvents = New CControlEvents
Select Case TypeName(ctlInfo)
Case "TextBox"
Set clsEvents.gTextBox = ctlInfo
mcControls.Add clsEvents, CStr(ctlInfo.Tag)
Case "ComboBox"
Set clsEvents.gCombo = ctlInfo
mcControls.Add clsEvents, CStr(ctlInfo.Tag)
End Select
End If
Next ctlInfo

DefineScroll

‘以第一条记录开始
Me.scbContact.Value = Me.scbContact.Min
End Sub

其中，wksData是存放组合框中所需要数据的工作表的对象名称，分别为性别组合框存储的数据的名称为“Xb”，为“省份”组合框存储的数据的名称为“States”。
上述代码遍历用户窗体中的数据输入控件并创建类的实例，以便触发事件且修改IsDirty属性，同时设置滚动条的初始值。
注意，此时会触发PopulateRecord过程执行两次，即执行DefineScroll过程时和为滚动条设置值时，都会触发滚动条的Change事件。
滚动条的Change事件
滚动条能够帮助用户在记录之间移动。当然，不一定需要滚动条。
首先，声明一个模块级的变量：
Private mlLastScrollValue As Long
然后，在滚动条scbContact的Change事件中输入代码：
Private Sub scbContact_Change()
Dim sPrompt As String
Dim sTitle As String
Dim lResp As Long

sPrompt = "保存修改"
sTitle = "记录已经改变"

If Me.IsDirty Then
lResp = MsgBox(sPrompt, vbYesNo, sTitle)
If lResp = vbYes Then
SaveRecord CLng(Me.scbContact.Value > mlLastScrollValue)
End If
End If

PopulateRecord

mlLastScrollValue = Me.scbContact.Value
End Sub
上述过程检查是否需要保存当前记录并给出提示信息，然后基于滚动条的当前值填充记录。模块级的变量mlLastScrollValue包含滚动条先前的 值，以便SaveRecord过程确定是否用户向上或向下滚动过。通常，必须知道是否保存前一条或后一条记录，因为滚动条的值已经变化。
命令按钮的Click事件
“关闭”按钮：
Private Sub cmdClose_Click()
Unload Me
End Sub
“保存”按钮：
Private Sub cmdSave_Click()
If Me.IsDirty Then
SaveRecord
End If
End Sub
最后的成果
下图3是最终的用户窗体运行后的效果：
http://blog.excelhome.net/LinkUserformAndWorksheet3
图3：自定义的用户输入窗体
拖动右侧的滚动条可以在记录之间移动，当拖动到最下方时，可以新建记录。
实例扩展
当然，您可以以上面的示例为基础，修改或扩展窗体，根据实际需要增强其应用功能。

注:完美Excel整理,同时发表于完美Excel:http://www.excelperfect.com

]]> <![CDATA[如何定义类的默认属性]]> http://blog.excelhome.net/user1/fanjy/1075.html fanjy 2008-9-5 13:16:00 在Excel中，许多对象都有一个默认的属性。如果在使用某对象时，没有专门指定属性，则会使用该对象的默认属性。例如，Range对象的Value属性是其默认属性，因此下列两行代码作用相同：
Range(“A1”).Value=123
Range(“A1”)=123
然而，VBA并没有提供一种简单的机制用于为类指定默认属性，但是确实可以指定默认的属性，只不过需要“费一些周折”。
假设有一个名为CMyClass的类，其代码如下：
Option Explicit

Private pValue As Long
Private pName As String

Property Get Value() As Long
Value = pValue
End Property
Property Let Value(V As Long)
pValue = V
End Property

Property Get Name() As String
Name = pName
End Property
Property Let Name(V As String)
pName = V
End Property
如果没有指定默认属性，下面的测试将失败，导致运行时错误438——对象不支持该属性或方法。
Sub test()
Dim MyClass As CMyClass
Set MyClass = New CMyClass
MyClass = 123
End Sub
要使Value属性为默认属性，可按下列步骤进行。
步骤1：保存工作簿。
步骤2：在VBE编辑器中打开CMyClass模块。
步骤3：单击“文件——移除CMyClass”。
步骤4：当出现“在移除CMyClass之前是否将其导出”的信息提示框时，选择“是”，保存该模块。
步骤5：在记事本或者其它文本编辑器中打开刚导出的文件CMyClass.cls。
步骤6：找到Property Get Value()过程，并在第一行添加下列语句：
Attribute Value.VB_UserMemId=0
此时，该过程的完整代码如下（其中，加粗部分为刚添加的语句）：
Property Get Value() As Long
Attribute Value.VB_UserMemId=0
Value = pValue
End Property
步骤7：在记事本中保存该文件然后关闭。
步骤8：在VBE中，选择“文件——导入文件”，将刚才修改的文件导入。
注意，在VBE编辑器中看不到“Attribute”语句，它会读取并处理Attribute语句但是不会显示它们，也不会允许在编辑器中输入。
现在，在标准模块中运行下列代码：
Sub test()
Dim MyClass As CMyClass
Set MyClass = New CMyClass
MyClass = 123
Debug.Print MyClass
End Sub

运行正常。因为在Property Get过程中添加了Attribute语句后，编译器就会将其当作默认属性。
（上述内容适合于Excel 2000及以后的版本）

完美Excel整理,同时发表于完美Excel:http://www.excelperfect.com

]]> <![CDATA[VBA类模块初步]]> http://blog.excelhome.net/user1/fanjy/1074.html fanjy 2008-9-4 14:19:00 这里简单地介绍VBA中的类模块，使大家能够在应用程序中创建并使用简单的类。
类是对象的“模板”。对象可以是任何事物，而类不会做任何事情，也不会占用内存，只有当类成为对象并使用Set语句和New关键字实例化为具体对象后，才能做事情并占用内存。实例化类为具体对象的语法为：
Dim C As Class1
Set C=New Class1
上述语句创建了一个名为C的对象，该对象的数据类型为定义的类Class1。
在详细介绍类之前，让我们先看看VBA的用户自定义数据类型，即使用Type关键字定义的变量。例如，下面的Type变量定义了雇员的信息：
Type Employee
Name As String
Address As String
Salary As Double
End Type
上面的语句定义了变量Employee，包含元素Name、Address和Salary。接着，您可以声明一个Employee型的变量，并为其中的每个元素赋值：
Sub test()
Dim Fan As Employee
Fan.Name = “fanjy”
Fan.Address = “YiChang”
Fan.Salary = 1000
End Sub
用户自定义类型是很有用的，但是有三个主要的局限：
1、在编译时必须声明所有的自定义类型变量。虽然可以使用动态数组来处理多个自定义类型，但必须使用Redim Preserve关键词。并且，不能在运行时添加新的自定义类型变量。
2、不能控制赋给自定义类型中元素的值。例如，在上述代码中，有可能给Salary元素赋一个负值。
3、自定义类型不做任何事情，只是静态地存储数据。
用户自定义类型被广泛用于在对Windows API函数调用时，除此之外，使用类模块是更好的选择。类克服了用户自定义类型的局限。
1、使用New关键字，可以创建任意数量的类的新实例，并且能够将其存储在Collection对象中。
2、使用Property Let/Set/Get语句，可以编写代码验证赋给类元素的值，并且可以编写当值改变时执行的相应代码。例如，能够编写代码确保Salary的值不为负值。
3、类可以定义方法（使用Sub过程和Function过程），执行某项动作。
下面，让我们将自定义类型Employee转换为类。首先，在VBE编辑器中插入一个类模块，并将其重命名为CEmployee，如图1所示。（类模块由属性和方法组成，类本身类似于名词；属性可以当作形容词，用来描述类；方法则为动词，执行操作。）
CEmployee类应该有三个属性：Name、Address和Salary。在类模块的声明部分声明三个Private变量来存储这些值，属性的实际值被存储在这三个私有变量中。
Private pName As String
Private pAddress As String
Private pSalary As Double
因为这些变量都被声明为私有的，因此仅能在类内部访问，在类的外部是不可见的。如何为这些变量赋值呢？这就是Property Let语句要做的工作。每个私有变量都有相应的Property Let语句。
Property Let Name(S As String)
pName = S
End Property

Property Let Address(S As String)
pAddress = S
End Property

Property Let Salary(D As Double)
pSalary = D
End Property
Property Let语句用于给属性赋值，即将值引入类。在上例中，简单地将引入的值赋给私有变量。由于Property Let语句中能够包含代码，因此能够编写用于数据验证的代码。例如，改写Property Let Salary函数中的代码，使之不允许接受负值：
Property Let Salary(D As Double)
If D > 0 Then
pSalary = D
Else
‘错误提示
MsgBox “薪水怎能为负呢?”
End If
End Property
与Property Let函数相对应的是Property Get函数，用于从类中获取属性的值。在CEmployee类中，相应的Property Get语句为：
Property Get Name() As String
Name = pName
End Property

Property Get Address() As String
Address = pAddress
End Property

Property Get Salary() As Double
Salary = pSalary
End Property
Let语句和Get语句的数据类型必须相匹配。例如，Let Salary接受Double类型的值作为其参数，这意味着其返回的相应的Get属性的值必须是Double。如果数据类型不一致，就会导致编译错误。
这些Get语句简单地将三个属性向外公开。要创建只读属性，则忽略Property Let语句而仅使用Property Get语句。例如，WithholdingTax属性是只读的，在Get语句中的代码计算合适的值并将其公开，但避免从外部改变该属性的值：
Property Get WithholdingTax() As Double
WithholdingTax = some_tax_calculation
End Property
该属性没有对应的Let语句，因此该属性只读，没有办法将值赋给WithholdingTax。
类模块能够包含方法，例如CEmployee类有一个用于雇员复核薪水的方法：
Public Sub PrintPaycheck()
‘放置打印复核的实际代码
End Sub
好了，我们已经完成了CEmployee类的初步定义，如图1所示。
http://blog.excelhome.net/classexample1
图1：CEmployee类
下面，在标准模块的代码中实例化类，并使用其属性和方法。首先，在VBE编辑器中插入一个模块，声明一个CEmployee类型的变量。（注意，在复杂的应用程序中，在类模块中声明并实例化另一个类是完全合法的）
Dim Emp As CEmployee
接下来，实例化该类，创建一个可用来工作的实际对象，如下列语句：
Set Emp = New CEmployee
上述语句创建了一个名为Emp的对象，能够使用CEmployee类中的属性来引用特定的雇员信息，例如：
Emp.Name = “fanjy”
Emp.Address = “YiChang”
Emp.Salary = 1000
这三个语句调用在CEmployee类中声明的Property Let语句来赋值给类中的私有变量。我们能够使用下列代码读取对象的属性的值：
Debug.Print Emp.Name
Debug.Print Emp.Address
Debug.Print Emp.Salary
上述语句调用类模块中的Property Get语句并获取数据。我们也能读取类中的只读属性WithholdingTax：
Debug.Print Emp.WithholdingTax
由于WithholdingTax属性没有相应的Let语句，因此不能给该属性赋值。如果试图赋值：
Emp.WithholdingTax = 4000
则会导致：“编译错误：不能给只读属性赋值”。
也能够调用方法来执行操作：
Emp.PrintPaycheck
在集合中存储类的多个实例
如果到运行时还不知道有多少个雇员，那么能够在运行时按需要创建多个Emp对象，每创建一个Emp对象之后将其存储在集合中。例如：
Dim Coll As New Collection
Dim Ndx As Long
Dim Emp As CEmployee

For Ndx = 1 To NumberOfEmployees
Set Emp = New CEmployee
‘设置Emp对象的属性
Coll.Add Item:=Emp, Key:=Emp.Name
Next Ndx
上面的For…Next循环将创建CEmployee类的NumberOfEmployees个实例，具体数量由运行时决定，并将其存储在名为Coll的集合对象中。之后，能够使用For Each循环从Coll集合中获取每个雇员信息或执行操作：
For Each Emp In Coll
Emp.PrintPaycheck
Next Emp
类的Instancing属性
类的Instancing属性决定其可见性（或称作作用域），默认属性值为1-Private，意味着类仅能在包含该类的工程中创建和访问。其他工程不能基于该类创建对象。对于绝大多数应用程序来说，Private是足够了。
Instancing属性的另一个值是2-PublicNotCreatable，表明其他工程能够将变量声明为该类，但是不能使用Set语句创建该类的实例。
在多个工程间使用类
如果一个工作簿需要使用定义在另一个工作簿中的类，则需要在包含类模块的工作簿中编写代码导出类到另一个工程。该类的Instancing属性必须是2-PublicNotCreatable。
假设Book1.xls工作簿中包含一个名为Class1的类模块，Book2.xls需要使用该类。首先，将Book1工作簿的工程名称从缺省的 “VBAProject”修改为唯一的名称，例如MyProject。然后，在VBE编辑器中激活Book2工作簿的界面，设置对Book1工作簿的引 用，即在VBE中选择“工具——引用”，然后在列表中选择“MyProject”。然后，在Book2中，创建如下声明：
Public C As MyProject.Class1
因为Instancing的属性值为PublicNotCreatable，所以可以声明一个Class1类的变量，但不能创建该类的实例。因此，需要在Book1中编写一个函数来创建Class1的新实例，并返回该实例给Book2。在Book1中，创建下面的过程：
Public Function GetClass1() As Class1
Set GetClass1 = New Class1
End Function
然后，在Book2中设置公共变量C为上述函数的结果，例如：
Set C=MyProject.GetClass1()
现在，C被设置为Class1的新实例。
好了，上面只是对类模块的一些初步介绍，还有一些知识未讲述，例如Property Set语句，留待以后在慢慢整理。

<完美Excel整理，仅供参考！同时发表于完美Excel:http://www.excelperfect.com>

]]> <![CDATA[非固定电脑限制文件使用期限]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1073.html gvntw 2008-9-4 13:47:00 文件只能在固定的一台电脑上使用，非本电脑，限制使用天数。

Sub Auto_Open()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)))
    s = d.serialnumber    '磁盘序列号
    If s = 要使用的电脑磁盘序列号 Then Exit Sub 
    
    Dim FirstDate, de, days
    FirstDate = Date
    de = GetSetting("XXX", "YYY", "date", "")  '从注册表取值
    If de = "" Then   '如果取不到值
        SaveSetting "XXX", "YYY", "date", FirstDate  '把日期保存到注册表
        MsgBox "本文件可使用60天，今天是第1次使用", , "提示"
    Else
        days = Date - CDate(de)  '计算文件使用的天数
        If days > 60 Then    '如果文件使用超过60天
            MsgBox "已超过使用期限，本文件将自杀", , "警告"
            ThisWorkbook.ChangeFileAccess xlReadOnly  '改为只读属性
            Kill ThisWorkbook.FullName  '自杀
            ThisWorkbook.Close False  '关闭不保存
        End If
        MsgBox "本文件已使用" & days & "天，还有" & 60 - days & "天可使用", , "提示"
    End If
End Sub

附件下载：UploadFiles/2008-9/49796.39613895.rar
]]> <![CDATA[图解VSTO安装]]> http://blog.excelhome.net/user1/fanjy/1072.html fanjy 2008-9-2 20:44:00 近日，本本出了问题，没办法，只好重新安装了系统和一系列必备的软件，例如Microsoft Office 2003、Microsoft Office 2007、Visual Studio 2005等。记得很久以前，我在EH的博客上发表了一篇关于VSTO安装的贴子后，有朋友问过我关于VSTO安装的疑问，特别是如何配置Visual Studio和Office，使VSTO能够正常工作。趁这次重装系统的机会，我将配置VSTO的详细过程记录了下来，供参考。
1.安装Microsoft Office 2003。
2.安装Microsoft Office 2007。（两者可同时安装在同一台机子上哦，只不过在双击具体文档启动时可能有点“不理想”）
3.安装Visual Studio 2005。在Visual Studio 2005中自带有Microsoft Visual Studio 2005 Tools for the Microsoft Office System Runtime、Microsoft Visual Studio 2005 Tools for the Microsoft Office System Runtime语言包、以及Office System 2003主互操作程序集。
在安装程序完成后，会出现如图1所示的界面。
VS2005Install1
图1：VS2005安装完成页
如果您安装的是Microsoft Office 2003 SP2或SP3，不需要理会这里面列出的警告，直接单击“完成”按钮即可。
4.在“控制面板”中单击“添加/删除程序”。在“添加或删除程序”列表中找到“Microsoft Office Professional Edition 2003”并单击其右侧的“更改”按钮。
如图2所示，在“Microsoft Office 2003安装”中，选取“选择应用程序的高级自定义”前的复选框，单击“下一步”。
VS2005Install2
图2：Microsoft Office 2003安装界面1
5.如图3所示，单击所选Office应用程序前面的下拉箭头，找到.NET可编程性支持并选择“从本机运行”。
VS2005Install3
图3：Microsoft Office 2003安装界面2
完成后，单击“更新”按钮，出现更新Office的界面。更新完成后，弹出如图4所示的对话框。
VS2005Install4
图4：Microsoft Office 2003安装界面3
6.开启Visual Studio 2005，选择“新建项目”命令，选择“Office”节点及相应的模板，单击“确定”，如图5所示。
VS2005Install5
图5：Visual Studio 2005新建项目
出现如图6所示的对话框，单击“确定”按钮。
VS2005Install6
图6：VSTO项目向导
此时，会出现如图7所示的警告信息，单击“确定”按钮。否则，将不能成功创建项目。
VS2005Install7
图7：第一次创建VSTO项目时的警告信息
7.成功创建的Excel项目如图8所示。
VS2005Install8
图8：创建成功的Excel项目
在Office 2007发布后不久，Microsoft又发布了VSTO 2005 SE，用于创建支持Office 2007的项目。
8.安装Office 2007 Primary Interop Assembly（即Office 2007主互操作程序集）。
9.安装VSTO 2005 SE，安装界面如图9所示。注意，如果您使用的是中文版的Visual Studio，那么要下载中文的安装包。
VS2005Install9
图9：安装Visual Studio 2005 Tools for Office Second Edition
10. 在“控制面板”中单击“添加/删除程序”。在“添加或删除程序”列表中找到“Microsoft Office Enterprise 2007”并单击其右侧的“更改”按钮。在图10所示的界面中，选择“添加或删除功能”，单击“继续”按钮。
VS2005Install11
图10：修改Microsoft Office Enterprise 2007安装
11.与前述步骤5一样，启动.NET可编程性支持，如图11所示。
VS2005Install12
单击“继续”。
12.重新启动Visual Studio 2005，此时的Office节点界面除图5所列的模板外（在Office节点上单击时列出），还增加了外接程序模板，如图12所示。
VS2005Install10
图12：VS 2005 SE中新增的模板
好了！大致过程就这些，可能各人的机子稍有不同，灵活设置吧！
注:同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[Excel的条件格式技术(1)]]> http://blog.excelhome.net/user1/fanjy/1071.html fanjy 2008-8-28 22:12:00 条件格式可以在很大程度上改进电子表格的设计和可读性，允许指定多个条件来确定单元格的行为，根据单元格的内容自动地应用单元格的格式。可以设定多个条件，但Excel只会应用一个条件所对应的格式，即按顺序测试条件，如果该单元格满足某条件，则应用相应的格式规则，而忽略其他条件测试。
（以下内容适合于Excel 2003及其以前版本）
在使用条件格式时，首先选择要应用条件格式的单元格或单元格区域，然后单击菜单“格式─—条件格式”，出现如图1所示的“条件格式”对话框。在Excel 2003及以前的版本中，条件格式最多只能设置三个条件。
conditionalformat
图1：选择“单元格数值”时的条件格式对话框
此时，若在第一个组合框中选择“单元格数值”，则右侧的组合框中将提供“介于”、“未介于”、“等于”、“不等于”、“大于”、“小于”、“大于或等于”、“小于或等于”等选项，并且在其右侧的输入框中可以输入相应的数值，也可以选择工作表中的单元格。然后，单击“格式”按钮，设置当条件为真时所应用的格式。
其中，选择“介于”时，包括设置的最大值和最小值，而选择“未介于”时，不包括设置的最大值和最小值。
若在第一个组合框中选择“公式”，则“条件格式”对话框如图2所示。
conditionalformat1
图2：选择“公式”时的条件格式对话框
此时，可在右侧的输入框中输入公式或者选择含有公式的单元格。注意，公式的值必须返回True或False。当公式返回True时，将应用条件格式；否则，不会应用设定的格式。这也从另一个侧面可以看出，对Excel公式与函数掌握的熟练程度，有助于灵活运用条件格式。换句话说，正是由于公式的强大功能，才使得条件格式才能发挥其真正的魅力。
关于条件格式，请注意下面的几点：
（1）复制单元格并将其粘贴到包含条件格式的单元格或者单元格区域中，将会删除该单元格或单元格区域中的条件格式，Excel不会给您任何警告信息。如果非得使用粘贴，并且要保留条件格式，那么可使用“选择性粘贴”功能。
（2）当复制一个包含条件格式的单元格时，将同时复制该单元格的条件格式。在包含条件格式的单元格区域中插入行或者列时，在新的单元格中将有相同的条件格式。
（3）如果要删除条件格式，仅在含有条件格式的单元格中按Delete键，不会删除条件格式。要删除条件格式，需要使用“编辑─—清除─—格式”命令或者“编辑─—清除─—全部”命令。还可以使用“条件格式”对话框，删除其中的条件。
（4）复制某单元格到含有条件格式的单元格中，也将清除条件格式。
（5）要快速查看所有包含条件格式的单元格，使用Excel的“定位”对话框，单击“定位条件”按钮，在“定位条件”中选择“条件格式”选项，如图3所示。
conditionalformat4
图3：利用“定位条件”中的“条件格式”选项选择所有包含条件格式的单元格
下面是《Escape From Excel Hell》一书中关于条件格式的两个示例，供参考。
示例1：在条件格式中使用公式且公式引用另一个单元格中的内容，如图4所示。
conditionalformat2
图4：条件公式中引用另一单元格中的内容
对单元格区域C6：D20应用条件格式，三个条件公式的含义分别为，其左侧B列相应单元格的值若大于且等于1，则单元格底纹为粉红色且字体加粗；若大于0，则单元格底纹为靛蓝色；若小于且等于0，则单元格底纹为浅灰色且字体为斜体。
示例2：在条件中使用其他工作表或工作簿中的内容
在应用条件格式时，通常不能直接引用其他工作表或工作簿，但如果为需要引用的单元格区域定义了名称，那么可以在条件中通过名称来引用其他工作表或工作簿中的内容。如下图5所示。
conditionalformat3
图5：通过定义名称来在条件格式中引用另一工作表中的数据
如图5，在工作表SearchAnExternalWorksheet中内容为“Trans 01”的单元格中应用了条件格式，在条件公式中引用了另一个工作表LookupTable中名称为MyLookupTable的单元格区域中的内容，如果相应的收益（损失）值大于1000则该单元格内容使用绿底斜体字显示，若小于-1000则该单元格内容使用红底粗体字显示。
还有一种方法来引用其他工作表中的单元格。例如在需要使用条件格式的工作表中的某单元格中输入公式来引用其他工作表中的单元格，然后在条件格式中引用此单元格。
<未完待续……>
注:同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[Excel Hacks #4：避免表面上不必要的提示]]> http://blog.excelhome.net/user1/fanjy/1070.html fanjy 2008-8-27 12:29:00 Excel总会提示您确认您刚才要求Excel执行的操作，退出该会话并让Excel回去执行操作。
我们探讨的提示类型是询问您是否想启用宏，或者是否确定想删除工作表。这里，介绍如何坚决地去除最常见的提示。
当没有任何宏时提示启用宏
当用于在工作簿中录制宏时，Excel的记忆象钢夹一样。不幸的是，即使您通过VBE编辑器删除了一个或多个宏，宏的记忆却不会“消失”。因此，当您重新打开该工作簿时，Excel仍然会提示您是否启用宏，即使没有什么宏。
当然，如果您将安全性设置为“不通知而禁用所有宏”，则不会出现是否启用宏的提示。
当录制宏时，Excel会插入一个VB模块来包含命令和自定义函数。在打开工作簿时，Excel检查模块的存在，是否为空或者有宏。删除工作簿的宏仅删除模块内的任何代码，而不是模块本身。要避免不必要的宏提示，需要删除模块。下面介绍如何实现。
打开VBE编辑器，您将看到如图1所示的图。
图1：工程资源管理器中的模块（示例）
在工程资源管理器中找到工作簿，并单击其左侧的加号（+）展开该工作簿的组件，特别是如果模块没有显示时。依次右键单击每个模块并从菜单中选择“移除模块”。建议导出模块。在删除可能包含有用的代码的模块前，依次双击每个模块确保您不再需要它们。
提示保存不存在的变化
您可能已经注意到了，有时简单地打开工作簿并且没有对该工作簿作过实质的修改，但仍会触发Excel提示您去保存对您的个人宏工作簿的修改。无论您是否知道，在个人宏工作簿中有一个易失性函数。
个人宏工作簿是第一次录制宏时创建的隐藏工作簿（单击“开发工具”─—“代码”─—“录制宏”，在“录制新宏”对话框的“保存在”下拉菜单中指定“个人宏工作簿”）。每次使用Excel都会打开该工作簿。易失性函数（或公式）每次在Excel执行几乎任何操作时都会自动重新计算，包括打开和关闭工作簿或整个应用程序。最常见的两个易失性函数是Today()和Now()函数。
因此，虽然您可能相信您没有对工作簿作出过任何修改，但这些易失性函数可能在后台正在运行。这会被当作对工作簿作出了修改，并且触发Excel提示保存这些不可见的变化。
如果您想Excel停止提示您保存实际上没有做出修改的工作簿，您要开启一些选项。最明显的是首先不要在个人宏工作簿中存储易失性函数，并且删除任何已经存在于该工作簿的易失性函数，您能够使用下面所示的相当简单的代码欺骗Excel认为在其打开时已保存个人宏工作簿，从而绕开检查：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub
上面的代码必须放置在个人宏工作簿的ThisWorkbook模块中。要达到此目的，选择“视图─—窗口─—取消隐藏”，从“取消隐藏工作簿”中选择“Personal.xlsb”并单击“确定”。打开VBE编辑器并输入上述代码。
当然，如果有希望重新计算的易失性函数并且希望保存修改，那么需要明确地告诉Excel这样做：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved
End Sub
这个宏将在每次打开工作簿时自动保存个人宏工作簿。
为所录制的宏停止Excel的警告提示
录制的宏的缺陷之一是，虽然在摸仿几乎任何命令方面都相当好，但是却忽略了响应提示的操作。删除一个工作表时，将会出现需要确认的提示；运行相同功能的宏，仍然会被提示。让我们避开这些提示吧。
选择“开发工具─—代码─—宏”或者按“Alt+F8”组合键打开“宏”对话框，确保“位置”下拉列表中选择“所有打开的工作簿”，选择相应的宏并单击“编辑”按钮，在过程代码的第一行添加下列语句：
Application.DisplayAlerts = False
在代码结束前，即过程代码段的结尾，添加下列语句：
Application.DisplayAlerts = True
此时，该宏应该如下：
Sub MyMacro()
    ‘
    ‘MyMacro Macro
    ‘Deletes the Active worksheet
    ‘
    
    ‘
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub
注意，在宏结束时应该恢复警告，以重新启用在Excel操作时标准的Excel提示。否则，您将再不会看到Excel给您的一些重要提示。
好了，现在您知道如何在使用Excel时避免提示的方法了，但是要小心，因为这些提示的出现都是有其缘故的。在关闭提示之前，您应该完全确保理解了提示的目的。
注：初译自《Excel Hacks》，仅供参考。
同时发表于完美Excel:http://www.excelperfect.com
]]> <![CDATA[在保护的工作表上使用自动筛选功能]]> http://blog.excelhome.net/user1/qingfeng/1067.html qingfeng 2008-8-25 15:33:00 AllowFiltering参数。

Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

       但是事实上，如果需要在保护的工作表上使用自动筛选功能，需保证工作表处于自功筛选模式（必须先在工作表中显示自动筛选下拉箭头）。

以下代码允许在保护工作表后使用自动筛选功能。

Sub ProtectWithFiltering()
        With ActiveSheet
                If .AutoFilterMode = False Then   '如果工作表不处于自动筛选模式
                        .Range("A1").AutoFilter            '在指定区域切换自动筛选下拉箭头
                End If
               .Protect AllowFiltering:=True         '保护工作表并允许使用自动筛选功能
       End With
End Sub

]]> <![CDATA[不打开工作簿搜索包含工作表名称的工作簿文件]]> http://blog.excelhome.net/user1/qingfeng/archives/2008/1066.html qingfeng 2008-8-25 15:27:00 大家都知道,通过执行4.0宏命令可以实现不打开工作簿获取其中工作表中指定单元格的数据。
如: x=Application.ExecuteExcel4Macro("'D:\Temp\[Test.xls]Sheet1'!R1C1")
获得D:\Temp\Test.xls工作簿文件中Sheet1工作表中A1单元格的数值并保存在变量x中。

下面的SheetInWorkbook函数扩展该方法功能实现不打开工作簿文件而判断指定工作簿中是否存在指定名称的工作表，如果存在工作表结果返回True，否则返回结果False。

Function SheetInWorkbook(ByVal sPath As String, ByVal WbName As String, ByVal ShtName As String) As Boolean
    Dim x As String
    Dim str4Macro As String
    On Error Resume Next
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    str4Macro = "'" & sPath & "[" & WbName & "]" & ShtName & "'!R65536C256"
    x = Application.ExecuteExcel4Macro(str4Macro)
    If Err.Number = 13 Then
        SheetInWorkbook = False
    Else
        SheetInWorkbook = True
    End If
End Function

参数说明：

sPath ： 一个字符串，指定工作簿路径。
WbName： 一个字符串，工作簿名称（带扩展名）。
ShtName：一个字符串，需要查找的工作表名称。

* 使用该函数需要确保：
1、存在指定的工作簿文件；
2、指定的单元格不包含错误类型或文本。（为规避错误,指定单元格为R65536C256即IV65536.通常情况下不会把工作表都填满并且最后一个单元格还是一个错误类型吧?呵呵）

下面Test1过程判断D盘根目录下的ll.xls工作簿中是否包含名称为Sheet1的工作表。

Sub Test1()
   MsgBox SheetInWorkbook("D:", "ll.xls", "Sheet1")
End Sub

通过以上函数的实现原理，可以实现搜索指定路径下是否存在指定工作表名称的工作簿文件，以下过程巧妙的实现在指定路径下搜索存在指定工作表名称的工作簿文件,并在立即窗口中打印工作簿文件名称。

Public Sub SheetExistSpecialPath(ByVal sPath As String, ByVal sShtName As String)
    Dim rtn, x As String
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    rtn = Dir(sPath & "*.xls")
    On Error Resume Next
    sPath = "'" & sPath & "["
    Do While Len(rtn) > 0
        wb = rtn & "]"
        x = Application.ExecuteExcel4Macro(sPath & wb & sShtName & "'!R65536C256")
        If Err.Number <> 13 Then
            Debug.Print rtn
        End If
        Err.Clear
        rtn = Dir
    Loop
End Sub

参数说明：
sPath：   一个字符串，指定工作簿路径。
sShtName：一个字符串，需要查找的工作表名称。

测试:
Sub Test2()
    SheetExistSpecialPath "D:", "Sheet1"
End Sub
]]> <![CDATA[专注与实践]]> http://blog.excelhome.net/user1/fanjy/1065.html fanjy 2008-8-24 22:59:00 最近在看两本书，一本名为《求医不如求已》，中里巴人著，是关于医学和健康方面的书藉；一本名为《.NET 2.0面向对象编程揭秘》，金旭亮著，是一本关于计算机编程技术方面的书。两本书的内容大相径庭，但看书的过程中，两位作者的思想和观点都给我很大的启发。
专注
《求医不如求已》一书讲述了很多利用人体自身来治疗、养生、保健的实用妙法，很值得大家研读，并在平时加以使用，毫不夸张地说，这些会为自已的健康带来极其巨大的帮助。在阅读该书，感受到一件件奇妙的事物的同时，也有一些其它的感受。我是指与学习知识有关的感受，例如看看该书第一章中的“7.必须学会与疾病切磋”中的最后一段：
“举这些不经意间治疗成功的例子是想告诉您，不要把治病搞成很繁琐的事。有的朋友每天要按摩很多穴位，还要刮痧、拔罐、练功，总觉得运用的方法越多，治疗的效果越好。其实并非如此，我们的气血就那么多，我们需集中力量，逐个解决身体的问题；切不可将气血分散各处，无的放矢，这样越治问题会越多，终将失去信心和耐心。记住：简单才有效，顺势才迅捷。”
我想，治疗身体如此，平时的学习知识和做事情又何偿不是呢。我们所需要做的就是，集中于一点，各个突破，这样才会有收获。也就是说，无论干什么事情，我们需要的是专注，否则，什么都想要，什么都抓，结果什么都得不到，反倒身心俱惫。
实践
“请读者牢记：学习软件技术的最终目的是应用它来解决现实生活中的实际问题。我们不要当一个’C#语法手册’（在这点上人脑比得过电脑？），也不要当一个只会记忆知识的’两脚书橱’（只顾着吸收知识而不去消化，知识越多，头脑就越僵化），要主动应用知识通过实践去创造真正的价值，以让我们的生活过得更好！”
这是金老师在他的《.NET 2.0面向对象编程揭秘》一书的前言中写下的一段话，非常的中肯，能够让沉迷在理想的技术世界中的人眼前一亮。是的，唯有实践，边学习边实践，在实践中进一步学习，才能积累更多更好的经验，也能体现学习的价值。
乐趣
“我不喜欢那种满纸术语、满页公式、一脸严肃的技术书籍，那总让我回想起令人痛苦的学生阶段——硬着头皮学枯燥无味的教科书，被考试压得透不过气来。
学习不应该变得如此枯燥，探索未知的世界应该是一件有趣的事。尤其是编程，更是一件好玩的事，一件很让人有成就感的事。”
这也是金老师在他的《.NET 2.0面向对象编程揭秘》一书的前言中的话语。在学习中找到乐趣，在乐趣中学习！
附链接
金旭亮老师在CSDN中的博客：http://blog.csdn.net/bitfan
金旭亮老师在新浪中的博客：http://blog.sina.com.cn/bitfan
中里老师的网站：http://www.mr2dr.com/
中里老师的博客：http://jinjiduli.blog.hexun.com/]]> <![CDATA[奥运北京之行]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1064.html chrisfang 2008-8-21 20:32:00 8月16日到8月20日，我趁着北京奥运会的大好时光，去北京旅游观光看比赛，亲身去体验火热的奥运气氛。带着我新买的佳能450D，同时也要用相机来代表我的眼睛好好看看这个光彩夺目的新北京。
5天时间行程排的满满的，照片也拍了近1000张，但上传速度有限，只能挑选几张来粗略地展示一下此番北京之行：

16号第一天去的是长城，长城上到处彩旗飘扬，One World One Dream的巨大广告牌搭建在城墙边的山脊上。不过我还是觉得国旗映衬下的长城更漂亮：



17号去了北海，在路上碰见了之前在电视新闻里见过的奥运甲壳虫（宣传北京奥运的甲壳虫车队，一共有6辆），怎么样，车子很漂亮吧。正巧被我撞见，运气真不错：


下午赶往鸟巢，可惜没有当天比赛门票的游客只能从铁丝网外远眺鸟巢：


或是试图从天桥上一窥鸟巢的全貌：

鸟巢北面是挺拔的盘古酒店，火炬型的顶部造型和巨大的电子显示屏幕是它的两大亮点，如果能到那上面俯瞰鸟巢，倒也是非常不错的视角：


鸟巢外面倒票的人很多，大多是当天的田径门票，17号当天下午没有什么特别的项目，最大的亮点可能也就是女子100米的决赛，但是这样门票还是炒到了1500。问了一下男子110米栏半决赛那天的票，价格是6000元！
正在失望中的时候，遇见一位急于出手的500元叫卖两张男子佩剑团体决赛门票，太好了，真是天赐良机，有了门票就能进场与鸟巢亲密接触了，此时距离佩剑比赛开场只有50分钟了：（照片的背景就是水立方）


门口的引导牌，“国家体育场”就是鸟巢，田径和足球决赛将在这里举行。“国家游泳中心”就是水立方，跳水和游泳项目的比赛场地。“国家体育馆”主要进行体操和蹦床的比赛。“国家会议中心击剑馆”
就是我现在要去的击剑场馆：


周围到处都是满脸开心和满足的人群，最开心的莫过于孩子：


终于可以近距离观察鸟巢，此时已经接近下午6点，天色渐晚，鸟巢十分自然地与远处的天色相融合，但外表强健的钢筋骨架依然显得苍劲有力：


再靠近一些，广场灯柱的造型也十分别致：



熊熊燃烧的圣火：


这是鸟巢对面的水立方，白天看上去是不是像一个温室大棚：



当天晚上的击剑场馆里有两场比赛，一场是俄罗斯和意大利的三四名决赛，另一场则是美国和法国的冠军争夺战。击剑比赛对摄影真是一个考验，要让快门赶上闪电般的出剑速度，还要应付黑暗的场馆背景。银光剑舞：


这是美国选手斯马特（Keeth Smart），这位双亲早早去世的黑人运动员参赛之前身患血液重疾，能够站上赛场就是一场胜利。美国队看台上的亲友和队友们经常响亮地呼喊着他的名字，为他加油。


最后一轮比赛在斯马特和法国选手皮耶（Julien Pillet，个人佩剑第四名）之间进行，这是最后一剑：


双方比方就此定格，新的冠军产生：


法国队登上领奖台：


出现在击剑比赛现场的中国击剑队主教练鲍埃尔：


看得出来这位志愿者的背后都有谁的签名吗？谭雪、黄海洋。


看完击剑比赛出来的时候，已经是晚上。听很多北京人说起过，晚上的鸟巢才是最漂亮的鸟巢：

被红色灯火点亮的鸟巢：


圆月、圣火和鸟巢：


我也来过把手握祥云的瘾：


晶莹透亮的水立方：





再来对比一下鸟巢旁的玲珑塔，白天看上去普普通通，晚上却会幻化出五彩六色：




18号没有准备去看比赛，就去圆明园和天坛逛了逛，这是在出租车上拍到的未来国贸CBD的标志性建筑——CCTV大楼，有北京人称之为“裤衩”。据说建造的时候经常有附近居民向相关部门报告这两幢楼造歪了。这两栋楼的钢材消耗比鸟巢还多出一个数量级，据说两幢楼对接时的施工必须选择在太阳升起以前，否则光照的热量会让钢筋变形而产生偏差：


这是圆明园绮春园门口的铜兽首喷水池，是依照当年大水法的喷水池仿建的，真正的十二生肖铜兽首也由保利集团和何鸿燊先生从海外购回，现正在园内展出：


19号上午有两场女排1/4决赛的比赛要去看，这是朋友送的票，可惜中国队的比赛要到晚上才进行，这是首都体育馆：


这是当天的赛程安排，我要看的两场分别是古巴对阵塞尔维亚，巴西对阵日本。当时我就预测，今天的欧洲球队都将出局，果然一天下来，塞尔维亚、俄罗斯和意大利都分别被淘汰出局。




第一场是古巴对阵塞尔维亚，双方实力相差较大。古巴队4号位进攻：


塞尔维亚跳发球：


古巴队2号桑托斯在2号位的扣球：


这是双方第三局比赛的最后一球，古巴队本场比赛的赛点。塞尔维亚队4号位的进攻：


古巴队双人拦网成功，3:0结束整场比赛，晋级4强：


第二场是巴西对阵日本，这是赛前练习：


看台上热情的巴西球迷：


巴西队3号，主攻手玛丽安妮在2号位的重扣，弹跳高度惊人，威力巨大。


日本队里有两位高个“美女”，这个是12号木村纱织，据说出生地是上海：


这个是1号栗原 惠，身高1米86，主攻手：


再来一张栗原 惠：


日本队面对强大的巴西对也没能坚持多久，比方很快定格在0:3。

 

从排球场馆出来后，去了故宫。神武门“神武”的朱漆大门：


太和殿修葺一新，金碧辉煌的大门：




故宫里的漂亮洋妞：



 
天安门前留影的人很多，警卫战士依旧神情严肃：



这是我比较满意的角度：



再换个角度：



20号终于踏上回程，这是著名的T3航站楼：


候机厅顶层的天花板很有特色，据说不同的区域有不同的颜色：




看图说话到此为止，真是一次令人兴奋的北京之旅。
 
]]> <![CDATA[在工作表中动态添加窗体控件]]> http://blog.excelhome.net/user1/fanjy/1063.html fanjy 2008-8-19 8:38:00 下面的内容及程序代码模仿自《Excel 2007 VBA Programmer’s Reference》，可能在某些情形下极其有用，因此特辑录于此，供参考。
如下图所示，双击工作表Sheet1的列A中的任一单元格，将出现一组合框，允许用户选择其中的项目。当用户选取某项目后，将自动输入到该单元格，并在该单元格右侧的单元格中输入相应的价格数字，组合框同时消失。
addcomboxdynamic1
下面是程序代码。在工作表Sheet1的代码模块中输入BeforeDoubleClick事件代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Columns(”A”)) Is Nothing Then
         Call AddDropDown(Target)
         Cancel = True
    End If
End Sub
在任一模块中，输入下面的代码：
Sub AddDropDown(Target As Range)
    Dim ddBox As DropDown
    Dim vProducts As Variant
    Dim i As Integer
    ‘创建产品数组
    vProducts = Array(”香蕉”, “苹果”, “菠萝”, “葡萄”)
    ‘在目标单元格中添加下拉控件
    With Target
        Set ddBox = Sheet1.DropDowns.Add(.Left, .Top, .Width, .Height)
    End With
    ‘定义执行的宏并填充列表
    With ddBox
        .OnAction = “EnterProdInfo”
        For i = LBound(vProducts) To UBound(vProducts)
            .AddItem vProducts(i)
        Next i
    End With
End Sub
Private Sub EnterProdInfo()
    Dim vPrices As Variant
    ‘创建价格数组
    vPrices = Array(6, 8, 5, 4)
    ‘输入所选项到相应的单元格
    With Sheet1.DropDowns(Application.Caller)
        .TopLeftCell.Value = .List(.ListIndex)
        .TopLeftCell.Offset(0, 1).Value = vPrices(.ListIndex + LBound(vPrices) - 1)
        ‘删除
        .Delete
    End With
End Sub

如下图所示：
addcomboxdynamic2
 
注:同时发表于完美Excel
]]> <![CDATA[Excel Hacks #3：阻止用户执行某些操作]]> http://blog.excelhome.net/user1/fanjy/1060.html fanjy 2008-8-16 19:54:00 虽然Excel为工作簿和工作表提供了全面的保护，但是这种“生硬的”工具没有限制用户的“特权”，除非您使用一些技巧。
通过监控和响应事件，您能够管理电子表格与用户的交互。事件是处理工作簿和工作表时所发生的操作。一些常见的事件包括打开工作簿、保存工作簿和关闭工作簿。当触发这些事件中的任一事件时，您能告诉Excel自动执行一些VB代码。
提示：用户能够通过完全禁用宏，从而避免所有保护。单击Office按钮─—Excel选项─—信任中心─—信任中心设置，按“宏设置”按钮，如果安全性被设置为“禁用所有宏，并且不通知”，那么在打开含有宏的工作簿时将没有机会运行宏。
阻止工作簿“另存为…”
通过选择Office按钮─—保存─—工具按钮─—常规选项，然后选中“建议只读”复选框，这样可以指定任何工作簿被保存为只读。这能阻止用户对该文件保存所做的任何修改，除非将其保存为不同的名称或者在不同的位置保存该文件。
然而，有时您可能想阻止用户使用或者不使用不同的名称在另一个目录或文件夹中保存工作簿副本。换句话说，您想用户能够在现有文件中保存，而不是在其他地方保存另一个副本。当多个人对某个工作簿保存修改时，这特别方便，此时不会存在保存在不同文件夹中相同工作簿的多个副本。
自从Excel 97后，就可以使用“保存前”事件了。正如其名称所述，该事件在工作簿被保存之前发生，能够在事实发生之前捕获用户、发出警告，以及阻止Excel保存。
要插入代码，打开工作簿并选择“开发工具─—Visual Basic”，双击工程资源管理器中的ThisWorkbook，在VBE中输入下面的代码，如图1所示，然后返回工作簿，再保存工作簿：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lReply As Long
    If SaveAsUI = True Then
        lReply = MsgBox(”对不起,不允许您以其它名称保存本工作簿.” & _
            ”您希望保存本工作簿吗?”, vbQuestion + vbOKCancel)
        Cancel = (lReply = vbCancel)
        If Cancel = False Then Me.Save
        Cancel = True
    End If
End Sub
beforesave
图1：输入到ThisWorkbook中的代码
此时，选择“Office按 钮─—保存”，该工作簿将按预料的那样保存。然而，在选择“Office按钮─—另存为”时，Excel将通知您不能以其它的名称保存该工作簿，除非您禁用宏。
提示：当在Excel 2007中保存工作簿时，如果该工作簿包含宏或代码，那么应该将工作簿保存为启用宏的工作簿（*.xlsm），而不能保存为标准的Excel文件格式（ *.xlsx）。
阻止用户打印工作簿
可能您想阻止用户打印您的工作簿，此时使用Excel的“打印前”事件。在VBE中输入下面的代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox “对不起,您不能打印本工作簿.”, vbInformation
End Sub
如果希望仅阻止用户打印工作簿中特定的工作表，使用下列代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Select Case ActiveSheet.Name
        Case “Sheet1″, “Sheet2″
        Cancel = True
        MsgBox “对不起,您不能打印本工作簿中的这个工作表.”, vbInformation
    End Select
End Sub
注意，您指定阻止打印工作表“Sheet1”和“Sheet2”。当然，可以修改为工作簿中的任何工作表的名称。要添加工作表，只需在代码后面加上逗号，然后在双引号中输入该工作表的名称。
阻止用户插入更多的工作表
Excel可以保护工作簿的结构以便用户不能删除工作表、重新排列它们出现的顺序、重新命名它们，等等。但是，有时希望仅阻止添加更多的工作表，而仍然允许其它的结构更改。
可以使用下列代码：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Application.DisplayAlerts = False
    MsgBox “对不起,不能对工作簿添加任一工作表.”, vbInformation
    Sh.Delete
    Application.DisplayAlerts = True
End Sub
上述代码首先显示消息框，然后在用户单击消息框中的确定按钮后立即删除新添加的工作表。Application.DisplayAlerts = False语句的阻止标准的Excel警告，即要求用户是否想删除工作表。
另一种阻止用户添加工作表的方法是，选择“审阅─—更改─—保护工作簿”，然后按下“保护结构和窗口”。然而，正如本技巧开始所述，Excel的工作表保护是相当“生硬的”工具，它会同时阻止了许多其它的Excel功能。

注：初译自《Excel Hacks》，仅供参考。同时发表于完美Excel.

]]> <![CDATA[Excel Hacks #2：同时输入数据到多个工作表]]> http://blog.excelhome.net/user1/fanjy/1059.html fanjy 2008-8-14 13:18:00 经常需要在多个工作表中重复某些数据。可以使用Excel的组合工具，使得在某工作表中输入数据时能够同时将数据输入到多个工作表中。然而，也有更快速且灵活的方式，即使用VBA代码。
在Excel中，有一项能使数据一次放置在多个位置的功能，称之为组。其操作是通过将工作表组合在一起，以便它们在工作簿内建立链接。
手工组合工作表
要手工使用组的功能，只需简单地单击将要输入数据的工作表，并在单击想要放置数据的工作表的标签名时按住Ctrl键。此时，当在工作表的任意单元格中输入数据时，这些数据也将自动输入到已组合的其它工作表中。
要取消工作表组合，只需单击除组合的工作表之外的其它任一工作表标签，或者在工作表标签中单击右键，选择“取消组合工作表”命令。
提示：当将工作表组合在一起时，能够看到标题栏中在工作簿名称后面添加了一对方括号，其中显示“工作组”。这能很方便地查看工作表是否是组合的。建议在完成同步输入数据操作后，取消工作表组合。
虽然上面介绍的方法很容易，但也意味着需要记住工作表是否处于组合状态，并且在不需要时取消组合，否则将存在覆盖其它工作表数据的风险。例如，您可能想仅对某特定的单元格区域同步输入数据，如果在其它区域输入数据时，忘记取消工作表组合则可能覆盖掉其它工作表中已存在的数据或者输入不需要的数据。
自动组合工作表
能够通过使用一些非常简单的VBA代码克服上述缺点。要使这些代码能够工作，必须将它们放置在Sheet对象的私有模块中。即在VBE中右击工作表名称，选择“查看代码”或者双击工作表名称。然后，使用Excel的工作表事件之一，并将代码放置在事件过程中。
首先命名希望成组的单元格区域，以便在其它工作表中自动显示数据。然后，在工作表模块中输入下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(”MyRange”), Target) Is Nothing Then
‘有目的的将工作表Sheet5放置在第一位,使之成为活动工作表
Sheets(Array(”Sheet5″, “Sheet3″, “Sheet1″)).Select
Else
Me.Select
End If
End Sub
在代码中，使用了命名的区域MyRange，可以将MyRange修改为您工作表中使用的单元格区域名称，同时修改代码中三个工作表名称为希望组合的工作表名称。
syncode
图：自动组合工作表的代码
注意，代码中在数组中使用的第一个工作表名必须是包含代码的工作表，并且您将在该工作表中输入数据。
一旦编写好代码，每次选择工作表中的任意单元格时，代码就会检查是否所选的单元格在命名区域MyRange中。如果在该区域，那么代码将自动组合你希望组合的工作表。如果不在，将通过激活正处理的工作表而取消组合。这项技巧的优点是不需要人工组合工作表，因而没有因为忘记取消组合而造成的危险，同时节省了时间并避免产生障碍。
如果希望在其它工作表中显示相同的数据，但不是出现在相同的单元格地址，那么使用如下的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(”MyRange”), Target) Is Nothing Then
With Range(”MyRange”)
.Copy Destination:=Sheets(”Sheet3″).Range(”A1″)
.Copy Destination:=Sheets(”Sheet1″).Range(”D10″)
End With
End If
End Sub
上面的代码也需要放置在Sheet对象的模块中，具体操作与前面内容相同。
注:：初译自《Excel Hacks》，仅供参考。同时发表于完美Excel。
]]> <![CDATA[汇总文件夹内所有工作簿的所有工作表记录]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1057.html gvntw 2008-8-13 10:51:00 Private Sub CommandButton1_Click()
    Dim d As New Dictionary, arr(), i%, j%
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim cat As New Catalog
    Dim sql$, MyPath$, MyFiles$, TWb$
   
    On Error GoTo Err
    Cells = Empty   '清空单元格数据
    TWb = ThisWorkbook.Name
   
    MyPath = ThisWorkbook.Path
    MyFiles = Dir(MyPath & "\*.xls")
    Do While MyFiles <> ""
        If TWb <> MyFiles Then
            d.Add MyFiles, 0
            j = j + 1
        End If
        MyFiles = Dir
    Loop
   
    If j = 0 Then
        MsgBox "没有文件可合并", , "gvntw"
        Exit Sub
    End If
   
    arr = d.Keys: d.RemoveAll

    For i = 0 To UBound(arr)
        cn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & MyPath & "\" & arr(i)
        Set cat.ActiveConnection = cn
        For Each Tabs In cat.Tables
            sql = "Select """ & Replace(arr(i), ".xls", "") & """ as 单位,""" & Replace(Tabs.Name, "$", "") & """ as 月份,* From [Excel 8.0;DATABASE=" & MyPath & "\" & arr(i) & "].[" & Tabs.Name & "]"
            d.Add sql, 0
        Next
        cn.Close
    Next

    sql = Join(d.Keys, " UNION ALL ")
    sql = "SELECT  * from (" & sql & ") order by 姓名,月份"
    cn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & arr(0)
    Set rst = cn.Execute(sql)

    For i = 1 To rst.Fields.Count
        Cells(1, i) = rst(i - 1).Name
    Next
   
    Range("a2").CopyFromRecordset rst
    rst.Close: Set rst = Nothing
    cn.Close: Set cn = Nothing: Set d = Nothing
    MsgBox "表格已汇总完成", , "gvntw"
    Exit Sub
Err:
MsgBox Err.Description, , "错误报告"
End Sub

 
示例附件：UploadFiles/2008-8/39307.2392123.zip
]]> <![CDATA[Excel Hacks #1：创建工作簿的个性化视图]]> http://blog.excelhome.net/user1/fanjy/1055.html fanjy 2008-8-12 13:10:00 在Excel中，能够同时显示多个工作簿，并且可以有在不同窗口排列的工作簿自定义视图，然后将视图工作区保存为.xlw文件并在需要时使用它们。
有时，当在Excel中进行操作时，可能需要在屏幕中打开多个工作簿，使之更容易使用或者从多个工作簿中查看数据。下面介绍如何以整洁且有组织的方式进行这项操作。
首先，打开所有需要的工作簿。
技巧：要一次打开多个工作簿，选择“Office按钮─—打开”，在“打开”对话框中，在按住Ctrl键的同时选择想要打开的工作簿，然后单击“打开”按钮。
从任一工作簿中选择“视图─—窗口─—全部重排”，如果“当前活动工作簿的窗口”复选框已选中，则取消选中，然后选择窗口排列方式并单击“确定”。
如果选择“平铺”，将以平铺的形式显示工作簿，如图1所示。
选择“水平并排”使得一个工作簿在另一个工作簿的顶部，如图2所示。
选择“垂直并排”使得一个工作簿紧挨着另一个工作簿，如图3所示。
选择“层叠”将使一个工作簿在另一个工作簿的上方，如图4所示。
图1：平铺方式排列的四个工作簿
图2：水平排列的四个工作簿
图3：垂直排列的四个工作簿
图4：层叠的四个工作簿
一旦工作簿按预想的视图显示后，就很容易在工作簿之间移动数据，例如复制、粘贴、拖放等。
如果需要反复创建某个视图，那么能够将其保存为工作区（workspace），即选择“视图─—窗口─—保存工作区”，在“文件名”中输入工作区的文件名，单击“确定”。当保存工作区时，文件的扩展名为.xlw而不是.xlsx。要将某工作簿恢复为完整的窗口，只需双击标题栏。
无论何时需要打开这些同样的工作簿，只需简单地打开.xlw文件。任何对在.xlw文件中的工作簿所作的变化都将在关闭工作区时自动保存，或者可以单独保存工作簿。
如果花些时间为需要在多个打开的工作簿中重复操作而设置自定义视图，将会发现这些操作将更容易管理。可以为不同的重复任务使用不同的视图，这取决于具体的任务或者您的感觉。

注：初译自《Excel Hacks》，仅供参考。

]]> <![CDATA[术有专攻 日益精进]]> http://blog.excelhome.net/user1/fanjy/1053.html fanjy 2008-8-11 13:27:00 这是周靖老师在其所译的著作《C#本质论》（英文名《Essential C# 2.0》）的译者序所使用的题目。在序中，有一段话很好，特摘录于此，共勉之！
—————————————————
最近在看《史记 孔子世家》，撷取孔子学琴一则与各位共勉：
孔子学鼓琴师襄子，十日不进。师襄子曰：“可以益矣。”孔子曰：“丘已习其曲矣，未得其数也。”有间，曰：“已习其数，可以益矣。”孔子曰：“丘未得其志也。”有间，曰：“已习其志，可以益矣。”孔子曰：“丘未得其为人也。”有间，有所穆然深思焉。曰：“丘得其为人，黯然而黑，几然而长，眼如望羊，如王四国，非文王其谁能为此也！”师襄子辟席再拜，曰：“师盖云文王操也。”
这则故事的大意为孔子向师襄子学琴，学了十天并不要求学习新的东西。尽管师襄子一再敦促可以增加新的内容，但孔子坚信，不达到三个境界，不能继续学习新的东西：学习常握演奏的技巧，领会其中的志趣，熟悉乐曲的作者。最终，孔子领悟到乐曲作者的心境，使师襄子叹服不已。
每学习一种新东西，都离不开这三个境界，正所谓“昨夜西风凋碧树，独上高楼，望尽天涯路”，此境界一也；“衣带渐宽终不悔，为伊消得人憔悴”，此境界二也；“众里寻他千百度，回头蓦见，那人正在，灯火阑珊处”，此境界三也。
从事技术图书的翻译多年，经常有读者来信问：“我想学习编程，如何入手？”对待这种问题，我往往会勉励他们，万丈高楼平地起，首先要搭建好整个学习框架，梳理整个学习层次，然后选择合适的入门书夯实基础，完全掌握之后再按照已经搭建好的框架逐一填充各个学习模块。
……

]]> <![CDATA[佳能450D试机照]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1052.html chrisfang 2008-8-11 10:40:00 上周刚刚新买了一台单反Canon450D+Sigma18-200mm F3.5-6.3 DC OS，周末去试了一下机器，拍了一些照片，以长焦端为主。
由于博客限制文件大小为2M，因此上传之前还是进行了一些压缩。








]]> <![CDATA[从关闭的工作簿中取值]]> http://blog.excelhome.net/user1/fanjy/1046.html fanjy 2008-8-7 13:19:00 有许多种从关闭的工作簿中取值的方法，下面是其中之一。下面的VBA代码从关闭的工作簿中获取值。
 Sub ExtractDataFromClosedWorkBook()
    
    Application.ScreenUpdating = False
    
     '创建链接来从关闭的工作簿中获取数据
     '可以将相关代码修改为相应的路径和单元格
    With [Sheet1!A1:B4]
        .Value = "='" & ActiveWorkbook.Path & "\[testDataWorkbook.xls]Sheet1'!A1:B4"
        
         '删除链接
        .Value = .Value
    End With
    
    Application.ScreenUpdating = True
    
End Sub
其中，可以将代码中的路径修改为需要从中获取值的工作簿的路径，单元格也作相应的修改。
]]> <![CDATA[接力问答游戏]]> http://blog.excelhome.net/user1/kevin/archives/2008/1044.html Kevin 2008-7-31 19:50:00 今天被陈希章同学在MSN上点名了，发现现在居然流行这么一种游戏。
其实人生也就是一场游戏，但如果你想玩得精彩，就得认真地玩、真诚地玩。

****************************************************************************************************
游戏的规则：
A. 被点到的要在自己的博客里写下自己的答案，然后去掉一个你最不喜欢的问题再加上一个你的问题，仍然组成20个问题，传给其他8个人。列出8个需要回答问题的人的名字，还要通知对方"你被点名了"，
B. 这8个人要在自己的博客里注明是从哪里接到的，并且再传给其他8个人，让游戏继续下去，不得回传。被点到名字的人将会得到大家的祝福，并且所有美好的愿望都会在不久的将来实现。
*******************************************************************************************************
1. 喜欢的季节和颜色
初夏
我觉得每种颜色都是美丽的

 

2. 最近在听的，有能说出你心事的歌么，写句歌词给我？

最近不常听歌

 

3. 异性的什么是最吸引你的？为什么？

性情

 

4. 你最希望从朋友（不包括爱人）那里得到的是什么？

坦诚和理解 

5. 说说你去过的最难忘的一个地方？

有点怕”最“这个字，感觉这个问题像学生时代的作文题目。令人难忘的地方有很多，可以因为各种原因而难忘，三亚的碧海蓝天、厦门的环岛路、杭州的西湖、SFO的金门大桥……

 

6. 推荐一家你认为好吃又实惠的美食店。

自从有了LP，似乎很久没在外面吃了，以前吃过的地方也没有符合此标准的。

 

7. 你的星座是什么？比较欣赏哪个星座？

天秤座。星座是人的只读属性，和出生日期相关，有什么必要谈欣赏不欣赏？

 

8. 遇到喜欢的人，你是勇敢表白还是默默关注？

我这种人似乎不太会一见钟情，哈哈。

 

9. 说出点你名的人的3个优点（不可删除题）

我和希章在MSN和邮件上说的话似乎比实际生活中说的话更多。
这位仁兄是充满智慧、勤奋而又真诚的人。

 

10. 什么事情会让你觉得很幸福？

爱与被爱

 

11. 你最想回到哪一年重新开始？

如果真要回，那就从娘胎开始吧，也许可以体验另一种完全不同的人生。

 

12. 计划过自己的将来么，有的话说说。 

稳定的事业，平静温馨的家庭生活。
 

13. 你对你的近况满意吗？有什么需要改变？

满意，但还需要继续努力。

 

14. 有想过以后家里会养一个或几个宠物吗？会选择养那种呢？

想过养只小狗，可是LP不喜欢，而我也很可能没有精力照顾它。

 

15. 你最讨厌的一件事是什么？

遇到完全意外的事件打乱计划。

 

16. 最喜欢的旅游地？

去的地方还不够多，特别是真的当作旅游的地方还太少。希望最近两年有机会去黄山或者云贵川。
 

17. 在过去的时光里，你为自己最感到骄傲的一件事情是什么？

建设了Excel Home这样的平台，现在每天有数以万计的Office用户在上面交流和学习。

 

18.你有没为自己的目标奋斗过？

有，一直在奋斗

 

19. 此时此刻的一个小愿望?

希望Excel Home的原创图书能有不错的成绩。

 

20. 你希望有个怎样的人生?

淡定，做自己喜欢做的事情，和自己喜欢的人在一起。

游戏接力：

==========================================================================================================

增加的题目是：你觉得自己有什么不足？

删除的题目是：你的星座是什么？比较欣赏哪个星座？ 


终于做完了，还真的费了不少脑筋，相当于认真思考了一下自己目前的生活。
轮到我点名了，不好点，因为并不是每个人都有写博客，呵呵。

xiebaby、Grace、Shirley、ZJ、LW、Rose、fanjy、果果、gvntw
]]> <![CDATA[Excel应用程序开发心得(一)]]> http://blog.excelhome.net/user1/fanjy/1043.html fanjy 2008-7-31 19:52:00 近期正在利用Excel开发一套工作管理系统，已初步有了结果，并开始使用。前不久，在一篇博客文章中，我贴出了该系统的主界面。在这里，随便谈谈在开发过程中的一些心得体会，供大家参考。

  • 不要将所有任务全部集中在一个工作簿中

在同一工作簿中不要试图处理所有需要实现的任务。当然，如果您的系统只需实现少有的几项功能，在一个工作簿中集中实现这几项功能是简单方便的。但是，如果需要实现多项任务，特别是需要处理大量数据的情形下，建议将任务进行整合分类，分别放在不同的工作簿中来实现这些任务。
此时，需要规划好各工作簿要实现的功能任务，合理设计各个工作簿之间的关系，理顺各工作簿之间的数据调用，并且使用一个主工作簿来调用各个工作簿，这样使得系统非常灵活、精简，也不致于因使用而致使工作簿体积快速不断增大。
要注意的是，对于存在数据调用的工作簿，一定要清楚调用的顺序，避免因为某一工作簿数据的更换而影响其他相关工作簿数据的准确性。例如，工作簿B需要调用工作簿A中的数据，如果工作簿A中的数据发生变化，那么要及时更新工作簿B中的数据。

  • 利用工作簿的自定义属性来确定工作簿
为工作簿添加自定义文档属性（即CustomDocumentProperties
属性），从而利用该属性来查找工作簿，或者判断是否为要查找的工作簿，或者能够合并同类工作簿。特别是在有大量名称会发生变化的工作簿时。
单击菜单“文件”─—“属性”，选择“自定义”选项卡，在“名称”中输入相应的名称，在“取值”中输入“Yes”，然后单击“添加”按钮加入属性，如下图所示。
这样，在多个工作簿相互调用时，可以避免因工作簿名称改变而出现的无法找到工作簿的错误。
  • 避免无谓的循环

记得及早、适时地退出循环，特别是在存在大量数据而不得不逐一进行循环时。例如，下面的代码，必须在工作表中的第3行至第31行、第2列至第32列依次循环，当满足特定条件后，使用Exit Sub语句退出，从而避免继续循环。如果在更大范围内循环时更应如此。
        For i = 3 To 31
            ‘循环每一列
            For j = 2 To 32
                If Target.Value = “” Then
                    If iTotalRow > 1 Then
                        For k = 2 To iTotalRow
                            If Target.Row = Worksheets(”Data”).Range(”A” & k) And Target.Column = Worksheets(”Data”).Range(”B” & k) Then
                                Worksheets(”Data”).Rows(k).EntireRow.Delete
                                bDecide = True
                                Exit Sub
                            End If
                        Next k
                    End If
                End If
            Next j
        Next i

  • 记得清除垃圾

有时，需要在工作表中反复汇总或操作来自另一工作表或工作簿中的数据。记住，在将其他地方的数据复制到工作表中之前，记得清除以前的数据，避免产生重复数据或带来错误。

  • 积累通用代码，方便调用，提高开发效率
在我们编写程序的过程中，总有些代码适合于不同的程序开发。我们可以将这些程序代码做成通用程序，当需要时直接调用，从而节省时间，便于组织，提高了开发效率。这里，举几个例子。
（1）判断某文件是否存在
‘判断文件是否存在
Private Function FileExists(fname) As Boolean
    ‘如果存在则返回True
    FileExists = (Dir(fname) <> “”)
End Function
（2）判断工作表是否存在
‘判断工作表是否存在
Private Function SheetExists(sName) As Boolean
    ‘如果当前工作簿中存在该工作表则返回True
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(sName)
    If Err = 0 Then
        SheetExists = True
    Else
        SheetExists = False
    End If
End Function

（3）返回满足查找条件的所有单元格组成的区域
‘通用的查找函数
Function FindAll(SearchRange As Range, FindWhat As Variant, _
    Optional LookIn As XlFindLookIn = xlValues, Optional LookAt As XlLookAt = xlWhole, _
    Optional SearchOrder As XlSearchOrder = xlByRows, _
    Optional MatchCase As Boolean = False) As Range
”””””””””””””””””””””””””””””””””””””””””””””
‘ 返回SearchRange区域中含有FindWhat所代表的值的所有单元格组成的Range对象
‘ 其参数与Find方法的参数相同
‘ 如果没有找到单元格,将返回Nothing.
”””””””””””””””””””””””””””””””””””””””””””””
  Dim FoundCell As Range
  Dim FoundCells As Range
  Dim LastCell As Range
  Dim FirstAddr As String
  With SearchRange
    Set LastCell = .Cells(.Cells.Count)
  End With
  Set FoundCell = SearchRange.Find(what:=FindWhat, after:=LastCell, _
    LookIn:=LookIn, LookAt:=LookAt, SearchOrder:=SearchOrder, MatchCase:=MatchCase)
  If Not FoundCell Is Nothing Then
    Set FoundCells = FoundCell
    FirstAddr = FoundCell.Address
    Do
      Set FoundCells = Application.Union(FoundCells, FoundCell)
      Set FoundCell = SearchRange.FindNext(after:=FoundCell)
    Loop Until (FoundCell Is Nothing) Or (FoundCell.Address = FirstAddr)
  End If
  If FoundCells Is Nothing Then
    Set FindAll = Nothing
  Else
    Set FindAll = FoundCells
  End If
End Function
大家在平时可以积累这些程序，既方便学习，又可以重用。
注:本文同时发表于完美Excel.
]]> <![CDATA[茉莉香自SunShine来（二）]]> http://blog.excelhome.net/user1/kevin/archives/2008/1042.html Kevin 2008-7-30 21:04:00 谢天谢地，我可怜的茉莉终于安然活下来了。
LP说，茉莉是好，可是难道一年只开一次花吗？而且花期还这么短。如果养一年才开几天花，真是……

我不记得以前家里的茉莉一年开几次花，赶紧GG一下，查得一年应该开花两到三次：第一次开花在小满到夏至，第二次开花在小暑到处暑，第三次开花在白露到秋分。那么，就等着它再度开花吧，可是，曾经开过花的花托基本都枯死了，从哪里再开出新花来呢？

本来打算慢慢等，但不久前去Amily家玩过一次后，让我改变了想法。她家的茉莉在阳台上迎风摇曳，枝头分明已经长着一颗颗饱满的花蕾。没道理呀，同一家店买的花，相同品种，只隔着一个小区，咋差距就这么大咧！

肯定是我的养护还有问题。

继续GG（呵呵，这年头要是没了GG该怎么办？），这次是认真的阅读每篇茉莉养护文章的每句话，而不是以前泛泛的浏览，然后对比自己的情况，希望找到问题的根源。

我想我找到了，两个大问题：
1、茉莉是喜欢超阳光的，应该尽可能让它多晒太阳，但不能在正午阳光下暴晒。俗话说“晒不死的茉莉，阴不死的珠兰”，可是我现在的阳台，因为朝向的关系，放花的位置不太容易晒到太阳。茉莉天天和我的吊兰呆在一起，能长得好吗？

2、施肥太少。虽然我每天定时定量浇水，可是光有水没有肥，这花很容易就营养不良啊。瞧我这主人当的，只顾自己吃肉，却以为别人是食素的，咳咳。

找到原因，就好解决了。

第一，每天清晨起床后，用淘米水浇花，然后把茉莉移到厨房的窗台上享受和煦的阳光；8点钟左右再移到阳光东侧的纸箱上面享受阳光；10点钟左右移到阳光南侧近阳光的地方。

第二，经常往叶面上喷水，保持相对湿度。

第三，十天左右施一次花肥。淘宝买的，5元一小袋。施肥的时候也不能偷懒，要先把表面的土翻动，弄松，撒下去后和土进行掺和，以利于吸收。

于是，每天都多了一个让我早起的动力，因为清晨的阳光热度适中，而且这时候喝水也会让它很舒服。把花在家里移来移去，费不了什么力气，但让我多了到处走动的动因，减少一直在电脑前呆坐的可能。

功夫不负有心人，三天以后，我的茉莉就有了明显不同，叶片比以前更厚更绿，也更有生气。一周以后，已经可以看到每个枝头都有新芽了。可惜都是侧生的，因为原来的位置被上期花的残留花茎占了。

到现在，一株茉莉已经长到有原来两株那么茂盛，而且开始陆续开花了。花朵明显比上次更饱满，更香气四溢。

上PP:






再来张特写，是不是看着就很香？



最后来张全家福，噢不，还有一位在镜头上方挂着，没拍下来，呵呵。
 

小结：
1、做任何事情应该因势利导，才能充分发挥对方的潜力。当然，首先得花时间了解对方的势，了解前因后果，如果一窍不通，就不存在导了，失败是完全正常的，成功是捡了狗屎运。
2、要多走出去看看，坐井观天的结果只能是自己永远不知道自己的不足。
]]> <![CDATA[茉莉香自SunShine来（一）]]> http://blog.excelhome.net/user1/kevin/archives/2008/1041.html Kevin 2008-7-30 19:55:00 自小就很喜欢闻茉莉花香。
小时候，家里在阳台上就养了茉莉，每每在夏夜乘凉之时，会随着微风闻到一阵阵淡淡的清香，泌人心脾，顿时觉得整个人也清凉了起来。
某个冬天，第一次从父亲的茶叶罐中，再度闻到夹杂在茶香中的茉莉花香，才知道原来此物还是可食的。泡上一杯，花香更甚，仿佛又把人带到了盛夏。

儿时忙于学业，毕业后四处转战，一直没有养过花。如今算是在此地暂时停下了脚步，有安顿之意了，于是也想实现一个夙愿——亲自与花交个朋友。

母亲是爱花之人，因此家里的花是从来不少的，只是每每为了来看我，担心无人照顾，送掉了不少。以前在家时，极少帮她打理这些花，但是喜欢看，呵呵。想来自己应该也是爱花之人，只是比较懒。

现在的这盆茉莉是和Amily一起从花鸟市场买来的，除了它，还买了一盆金边吊兰。

第一次养花，有点兴奋，甚至有点紧张，非常担心因为自己的问题让这些美丽的生命过早凋谢。卖花的人说，茉莉是非常容易伺弄的，完全不必担心，是吗？反正我不是特别有信心。通过GG学习了半小时，对它们的生活习性有了简单的了解，照着资料上讲的，确实不需要花特别的心思，就能够养好它们了。

买来后不久就进入了它的花期，白色小花一朵接一朵竞相绽放，真的让人很开心。茉莉花是很不结实的，风大一些，就会把它们吹落。不过，也不用等它们被吹落，就会被等不及的我，摘了放在书桌上和床头，以便于更长时间满足我的鼻子，呵呵。

Amily家有自己的空中花园，养了不少花，想来她比我更有经验。她告诉我说，直接买来的花，因为养在营养土里面，而这种土很难保留水份，所以浇花浇透后，渗出来的水到托盘后，最好不要倒掉，这样才可以帮助这些土继续吸水。
这道理很容易懂，乍一听还特别有道理，于是我就马上应用到实践中去了。

悲剧很快上演了，第三天，就有一枝的叶片开始枯黄，第五天，这一枝就彻底死掉了。更可怕的是，这像疾病一样的事物仍然在蔓延。于是赶紧打电话向老妈求救，终于弄清楚，这不是什么病，而是因为这个花盆比较小，茉莉的根已经长到盆的最低部，而我故意留在托盘中的水，可以直接浸泡到根。茉莉花是经不起这样泡根的，所以……

虽然再也不犯类似的错误，但并不能阻止可怕的事情继续发生。照老妈说的，一盆花会有好几株，每株有自己的根，根死了，这一株就都活不成了。只能祈求其它的株没有受到水泡的摧残吧。

不久，一盆花枯得只剩下一半了，另一半也没什么精神。一旁的吊兰倒是长势喜人。下狠心，把花盆里面的土松开，彻底检查一下，终于弄清楚我盆里的茉莉一共两株，估计一株已经不行了，那么就及早处理掉吧，免得影响另外一株的生长。于是我挖掉了坏掉的这株的所有根系和枝干，重新加了些新土到花盆里，默默祈祷剩下的这株可以更好的生长。

小结：这似乎有点像小马过河的故事。任何理论都不应该简单地拿来主义，因为具体情况之间有着千差万别，如果不懂得原理，只会照搬，就很可能会栽跟头。Amily家的茉莉养在一个大盆里，有我这个2倍大小，所以即使在托盘中盛水，也是不可能泡到根的。无论她那个理论正确与否，对她家的茉莉都起码不会有坏的影响。我只知其一， 不知其二，遭殃的是我的花……
]]> <![CDATA[在Excel中创建动态列表]]> http://blog.excelhome.net/user1/fanjy/1040.html fanjy 2008-7-29 21:02:00 在Excel中，我们可以使用“数据有效性”功能来创建下拉列表，供用户从中选择。例如，如下图所示：
①选择主数据工作表中的B列。
②调出“数据有效性”对话框，选择“允许”下拉列表框中的“序列”。
③在“来源”中输入要提供用户选择的文本，例如：请假,出差,年休。
④单击“确定”后，在主数据工作表的B列中任一单元格单击，出现带有数据的可供选择的列表，如下图。
当然，也可以将需要提供的数据放置在工作表中的某单元格区域内，然后在“来源”中输入该单元格区域地址。
上述方法对于固定的或者说事先知道在列表中提供的数据时，非常合适。然而，如果下拉列表中的数据需要不断增加，或者需要调整，仍然按照上述方法的话，则需要重复上述步骤。
下面提供一种方法，能够动态改变列表中的数据，而无需每次调出“数据有效性”对话框。先看看下图：
①在基础数据工作表中，在列A单元格中依次输入想要显示在下拉列表中的数据，如“请假”、“出差”、“换休”。
注：将这些数据输入在单独的工作表中，能够避免在主工作表中操作时无意中修改这些数据。
②调出“新建名称”对话框，在“名称”中输入“List”。
③在“范围”列表中选择“工作簿”。
④在“备注”中输入一些说明文字。
⑤在“引用位置”输入公式“=OFFSET(基础数据!$A$1,0,0,COUNTA(基础数据!$A:$A),1)”。
现在，回到主数据工作表，如下图所示。
①选择列C。
②调出“数据有效性”对话框，选择“允许”下拉框中的“序列”。
③在“来源”中输入公式“=List”，即与前面定义的名称连接。
此时，单击列C中的任一单元格，将出现下拉列表框，包括在基础数据工作表中列A的数据，如下图所示。
现在，您在基础数据表中添加数据，如加班，此时在主数据工作表的列C中单元格的下拉列表中会自动出现添加的“加班”项，如下图所示。
本文同时发表于完美Excel.
]]> <![CDATA[再次重温<亮剑精神>]]> http://blog.excelhome.net/user1/fanjy/1039.html fanjy 2008-7-28 21:02:00 这个星期在参加管理培训，重温了一下<亮剑精神>，贴出来，让大家也重温一下。 ]]> <![CDATA[办公室定律]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1036.html gvntw 2008-7-27 14:32:00

一、             矛盾定律：人人都明白一朝天子一朝臣，因此跟领导走得太近了不行，离得太远也不行。跟得太近了怕站错了队，一旦大树倒掉了，大难就会临头；离得太远了，好处永远轮不到，坏事少不了。左也不是，右也不是，此及机关人员挥之不去的烦恼。

二、             尴尬定律：苦干的不如巧干的，还有所谓干的不如看的，看的不如捣蛋的。因而上去的不一定是能力强的，原地踏步的不一定是低能的。对此，你不服不行。

三、             变脸定律：见到上司唯唯诺诺，这是逼出来的；见到同级嘻嘻哈哈，这是装出来的；见到群众凶凶巴巴，这是情感的自然流露。学会随机应变，因人而异，看风使舵，是机关的立身之本、生存之道。

四、             活跃定律：领导在办公室的时候，气氛永远是“团结、紧张、严肃”不“活泼”；而领导不在的时候，气氛会变得异常活跃，可以海阔天空，说说笑笑、吹吹牛皮、聊聊足球、侃侃新闻、议议女人……无所不及。

五、             不公定律：能干的总有干不完的活，不能干的总是没有活干。干得多的人犯错误的几率就高，到头来往往吃力不讨好。少干或不干的人，往往不犯或少犯错误，给领导的印象却是个好同志。

六、             加班定律：“月亮走我也走”，领导到了下班时间不走，下属就不能理直气壮地走。加班等于敬业，至于效率可以不闻不问。而领导不在的时候，加班等于白加。

七、             新官定律：新上任的领导不管见到谁都是笑容可掬，亲切有加。如果你认为新来的头儿平易近人，联系群众，没有架子，那就大错特错了。3天过后，大都原形毕露，眼睛朝上，目无群众，再也找不到上任伊始的影子，倒是官腔十足，架子不小。

八、             趋同定律：领导的爱好，往往会成为办公室成员的共同爱好，即爱好者领导的爱好，幸福着领导的幸福，快乐着领导的快乐。

九、             转移定律：领导的领导批了领导，作为被领导的你就得小心领导拿你当做“出气筒”。你要觉得窝火，可以再找被你领导的人发一通脾气，指责他“怎么搞的！”如果没有，那就打落门牙往肚子里咽。有经验的老婆、孩子发现其脸上阴到多云，一般都会知趣地走开。

十、             关系定律：有本事没关系的吃苦饭，没本事有关系的跟着吃，有本事又有关系的不愁吃，没本事又没关系的看别人吃。问题在于自认为有本事的人未必能得到领导的认可，因此，有本事和没本事的，都要拼命地找关系，有了关系的则不惜绞尽脑汁巩固好关系。

十一、      竞争定律：能写的往往不如能跑的，能干的往往不如能吹的，能说的往往不如会送的。忠实本分的不如善长张扬的，遵守制度的不如听话的，坚持原则的不如会变通的。

十二、      忌讳定律：在办公室通常听不到牢骚怪话，比如摄氏上登出某地又揪出了一个贪官，你只能选择腹讲，恨在心里。如大放厥词、口无遮拦地进行猛烈抨击，有人会认为你是在含沙射影、指桑骂槐。曲高和寡。你在表明自己爱和恨的同时，实际上是在孤立自己，很有可能成为他人尤其是领导设防的对象。要议论就议论美国的克林顿、伊拉克的萨达姆。所以经过办公室的历练后，人人都会把握住“说古不说今，说外不说中，说远不说近”原则的。

十三、      归因定律：凡是职务上不去的，众口一词就是不会拉关系，朝中无人没后台，没有人认为自己的能力素质不够。这是最体面的理由。但在领导面前却从来不会说自己是怀才不遇。

]]> <![CDATA[《循序渐进学Excel》系列视频课程免费下载！]]> http://blog.excelhome.net/user1/gvntw/1035.html gvntw 2008-7-27 11:54:00 Excel初学者有福啦，Excel Home出品的《循序渐进学Excel》系列视频课程免费下载！
《Excel高效办公》系列图书是Excel Home多位专家全力打造的Excel与职场应用相结合的学习教材，在该系列图书中，除了配备有管理专家与Excel高手奉献的多部《职场对话》视频节目（点击下载）以外，还收录了由Excel Home站长、资深微软全球最有价值专家Kevin亲自主讲的一套Excel学习教程——《循序渐进学Excel》。

《循序渐进学Excel》系列视频教程共分6集，约6小时，系统地介绍了Excel各方面功能的基础知识，还专门分享了许多Excel高手的学习经验，是广大Excel初级用户不可多得的理想学习资料。

为了感谢EH众多会员长期以来对网站的支持与帮助，此套视频教程将从即日起与大家免费分享，您可以下载或者在线观看，当然，因为文件大小与网络带宽的问题，从《Excel高效办公》系列图书的配套光盘上可以得到最清晰的版本。

]]> <![CDATA[Excel工作表界面设计]]> http://blog.excelhome.net/user1/fanjy/1034.html fanjy 2008-7-26 0:14:00 最近，使用Excel VBA开发了一套工作管理系统，效果不错，极大地简化了工作，提高了工作效率。当然，还不是太完善，需要在使用过程中进一步优化。下图是这套系统的界面设计：
http://blog.excelhome.net/
在Excel工作表中使用图片，不仅用于导航，而且也能创造出良好的视觉效果。
当然，在开发过程中，有许多心得体会，以后再和大家慢慢分享。
]]> <![CDATA[Excel条件格式的简单应用]]> http://blog.excelhome.net/user1/fanjy/1033.html fanjy 2008-7-24 19:09:00 Excel条件格式功能是一项十分强大且便利的功能。下面介绍自已在使用Excel过程中，利用条件格式功能的其中一个应用场景。
在一个工作表中，有许多条记录，如何使Excel自动标识出满足特定条件的记录呢？
例如：下图所示的工作表中有多条记录，要求当字段“是否完成”列中为“否”时，突出标识该行（本例中将该行突出显示为红色），使用户清楚没有完成的工作；当为“是”时，突出标识的背景色自动消失。
现在开始实现这样的效果，先看看下图：
①选择工作表的A列至E列。
②单击菜单“格式”——“条件格式”。
③在“条件格式”对话框中，选择“条件1”下拉框中的“公式”项。
④在“公式”框右侧的文本框中输入公式“=$E1=”是””。
⑤单击下方的“格式”按钮，在“单元格格式”对话框的“图案”选项卡中，选择颜色，这里是红色。
⑥单击“确定”按钮，关闭“条件格式”对话框。此时的效果如下图：
此时，当将E列中单元格的数据改为“是”时，该行的红色底纹会自动消失；如果为“否”，则该行会自动加上红色底纹。
]]> <![CDATA[良好的学习习惯]]> http://blog.excelhome.net/user1/fanjy/1032.html fanjy 2008-7-21 23:24:00 摘自CSDN博客，留于此，供参考。
 一直以来伴随我的一些学习习惯

1. Google&Wiki（遇到问题做的第一件事情，也是学习某个东西做功课（homework）最先用到的东西。

2. 看书挑剔，只看经典。如何选择经典，可以到网上做做功课，看看评价，综合分析一下。

3. 做读书笔记。一是将自己阅读的时候的思考（包括闪念）总结下来，二是将书中的好例子摘抄下来。（这个习惯是一年前才养成的，发现受益极大。）有了google note，笔记可以加上tag，非常便于回顾，加深理解。我觉得，人与人学习的差距不在资质上，而在花在思考的时间和思考的深度上（后两者常常也是相关的）。

4. 提到思考，我有一个小习惯。利用走路和吃饭的时候思考，还有睡觉前必然要弄一个问题放在脑子里面，在思考中迷糊入睡。发现这样一来往往在不知不觉中多出来大量的思考时间。

4a. 将思考成为习惯还有一个很大的好处——避免焦虑。卡耐基用一整本书讲了一个有效的做法来避免焦虑——底线思考。然而实际上还有另一个有效的做法，就是投入地做另一件事情。不去想"喜马拉雅山上的猴子"的方法并不是使劲的告诉自己不去想"喜马拉雅山上的猴子"，因为那样等于就是脑袋里想了那只猴子，正确的做法是真的不去想那猴子，而是想别的。用别的东西充满工作记忆，其他的神经活动自然会被抑制（神经科学基本事实）。所以，感到焦虑的时候不妨思考吧，甚至完全可以去理性分析和思考导致焦虑的问题本身，将其拆解，分析来源，在不知不觉中，大脑的工作重心就从情绪模块转向了推理模块了，而且这思考也可能顺带更有效地解决了导致焦虑的问题呢:)

5. 重要的事情优先（详见史蒂芬·柯维的《高效能人士的七个习惯》或《要事优先》）。尽量避免琐事骚扰，不重要的事情能不做就不做。有时候，紧急的事情往往只是当事人觉得必须马上做完才显得紧急或者干脆就是紧他人之急，最糟糕的就是纯属性格上原因觉得每件事情都得第一时间完成，很多看上去紧急的事情实际上并不是真的"不能再拖了"，有的干脆就并不需要或值得去做。有很多事情都是可以先放一放甚至完全let go的，否则的话就整天被所谓"紧急"的事情牵着鼻子走了。

6. 重要的事情营造比较大的时间块来完成。比如一本好书，或者一个重要的知识点，最好不要切得太琐碎了看，否则看了后面忘了前面。不利于知识的组织&联系。

7. 多看心理学与思维的书，因为它们是跨学科的。知识分两种，一是我们通常所谓的知识，即领域知识。二是关于我们的大脑吸收知识的机制的知识，后者不妨称为元知识。虽说这也是领域知识，但跟其它的领域知识不同的是，它指导着我们学习其它所有的领域知识。

8. 学习一项知识，必须问自己三个重要问题：1. 它的本质是什么。2. 它的第一原则是什么。3. 它的知识结构是怎样的。

9. 获得的多少并不取决于读了多少，而取决于思考了多少、多深。

10. 善于利用小块时间，也就是《奇特的一生》中所说的“时间下脚料”，如何利用前面有几个方法。同时，也善于创造整块时间（如通过要事优先）。

11. 关于习惯的养成，必须要说明的：经常看到有些人评论说，说说容易，做起来哪有那么容易啊（另一个无关习惯的“说起来容易做起来难”则是因为纸上谈兵不可能算计到所有现实中的因素，但那是另一个问题）。对此我要说的是，做起来当然不容易，所谓江山易改，本性难移。人的性格和认识事物的框架是长期积累养成的，并且人们非常珍视自己的信念（英语里面表达不相信某个东西叫做“I don't buy it”）。从进化心理学上这是有依据的，一个经过时间检验的信念往往是更靠谱的。只不过可惜的是靠谱不代表最佳，一个信念能让你活下来并不代表能让你活得最好（详见《Mene Genes》，更多的例子参见《How we know what isn't so》）。我们评判一个信念的标准是satisficing原则（即足够，能行就好，这个术语不是我提的，是大牛Herbert Simon提的），并不是optimizing原则。话说回来，为什么说起来容易做起来难，是因为“说”只是理性上承认正确，并没有考虑到我们每个人大脑中居住的那个非理性自我。这个自我以强大的情绪力量为动机，以习惯为己任，每时每刻都驱使着我们的行为。因为它掌握了“情绪”这个武器，所以我们只能时时拿它当大爷。不记得是哪位哲学家说的了，理性是感性的奴隶。那么，是不是就是说无法克服既有习惯了？以我的经验（以及观察到的别人的经验），还是可以的。第一条就是认识到习惯的改变绝不是一天两天的事情，承认它的难度。第二条就是如果你真想改掉习惯，就需要在过程中常常注意观察自己的行为，否则习惯会以一种你根本觉察不到的方式左右你的行为让你功亏一篑。有一个认知技巧也许可以缓解更改习惯过程中的不适：即把居住在内心的那个非理性自我当成你自己的孩子（你要去培养他），或者你的对手（你要去打败他）也行。总之不能当成自己，因为每个人都不想改变自己。这里转一个认知技巧的例子：李笑来老师在《把时间当作朋友》（顺便也推荐这本开放电子书）中提到他一个朋友用另一个认知技巧来克服背单词的枯燥的：

因为，一共要搞定20,000个单词，而因此可能获得的奖学金是每年40,000美元左右——并且连续四年没有失业可能（后来的事实是，他直到五年之后才获得了博士学位）。当时的美元兑换人民币的汇率差不多是8:1，所以，大约应该相当于320,000元人民币。而如果一年的税后收入是320,000元人民币的话，那么税前就要赚取差不多400,000元人民币。那么，每个单词应该大约值20元人民币——这还只不过是这算了一年的收入而已。

所以，他终于明白背单词是非常快乐的。他每天都强迫自己背下200个单词。而到了晚上验收效果的时候，每在确定记住了的单词前面画上一个勾的时候，他就要想象一下刚刚数过一张20元人民币的钞票。每天睡觉的时候总感觉心满意足，因为今天又赚了4000块！

注意，这跟自我欺骗不同。一来，我们的情绪系统只能这般对付（《Synaptic Self》中提到，大脑中的新皮层（neocortex，所谓“理性”居住的地方，尤其是前额叶）在进化历史上是较为新近的年代才进化出来的，跟底层较原始的模块（如主管情绪的杏仁核）之间的神经网络沟通并不是合作无间，这就解释了为什么有些事情我们明明知道是对的，但就是不能说服自己，情绪还是在那里不依不挠的驱使你去做另一样事情）。二来，我们知道在干什么，所以不能算欺骗:P 总之，对于习惯的更改，除了最重要的一日三省，加上一些认知技巧（其实每个人都是自己的心理学家，你可以自己看看能不能想出什么法子）。其实是没有什么速效银弹的。但是，知难而不退嘛，值得做的事情几乎总是如此:)

我也不知道这会有几个parts，总结到哪是哪吧:)

接着上次的写。

1. 学习和思考的过程中常问自己的几个问题：

  1. 你的问题到底是什么？（提醒自己思考不要偏离问题。）
  2. OK，到现在为止，我到底有了什么收获呢？（提醒自己时不时去总结，整理学习的东西）。
  3. 设想自己正在将东西讲给别人听（有声思考；能否讲出来是判断是否真正理解的最佳办法）。
    3.1 设想需要讲给一个不懂的人听。（迫使自己去挖掘知识背后最本质、往往也是最简单的解释）。
  4. 时常反省和注意自己的思维过程。尤其是当遇到无法理解或解决的问题之后，最需要将原先的思维过程回顾一遍，看看到底哪个环节被阻塞住了妨碍了理解。问题到底出在哪里。并分析以后需要加强哪方面的思维习惯，才能够不在同样或类似的时候被绊住。对此，将思维的大致脉络写下来是一个很好的习惯。
  5. 养成反驳自己的想法的习惯：在有一个想法的时候，习惯性地去反驳它，问自己“这个难道就一定成立吗？”、“有没有反例或例外？”、“果真如此吗？”之类的问题。（参见Critical Thinking） 
  6. 人的思维天生就是极易流于表面来理解事物的（参见《Psychology of Problem Solving》第11章）。觉得自己理解了一个问题了么？条件反射性地问自己：你真的理解了吗？你真的理解了问题的本质了？问题的本质到底是什么？目前我的理解是什么？我对这个理解感到满意吗？这样的理解到底有什么建设性呢？等等。

2. 重视知识的本质：对于程序员来说这一点尤其重要，程序员行业的知识芜杂海量，而且总是在增长变化。很多人感叹跟不上新技术。应对这个问题的办法只能是：抓住不变量。大量的新技术其实只是一层皮，背后的支撑技术其实都是十来年不变的东西。底层知识永远都不过时。算法数据结构永远都不过时。基本的程序设计理论永远都不过时。良好的编码习惯永远都不过时。分析问题和解决问题的能力永远都不过时。强大的学习能力和旺盛的求知欲永远都不过时。你大脑的思维方式永远都不过时。

3. 重视积累的强大力量，万事提前准备：计划订长一点，自然就可以多获得准备的时间。设想你若干年后会在做什么事情，需要哪些技能，现在就开始准备。一个5年计划便可以让你获得从现在开始的5年准备时间。5年中每天腾出半个到一个小时专心于某一件事情，认准一个方向，每次走一点，其实不要说5年，两年就会发现会起到宏大的效应。长期订阅我的Blog的朋友们也一定注意到我基本上不写东西，一般一个月写上2篇就算多的了。但总结一段时间的学习和思考的习惯却一直都没有停止（博客文章对我来说是学习和思考的副产品，我并不为写文章而写文章），所以5年下来竟也写了不少东西。所以这就是一个简单的例子。你大致还可以从我的Blog看出来我一段时间关注的东西，一般来说，一段比较长的时间（少则半年至一年——譬如对心理学与思维的关注；多则几年——譬如对编程技术的关注），在这段时间内，我的业余时间会被一个主题所充斥。反之，如果不知道目的是什么，就不知道往哪个方向上使劲，就容易产生无用功。

4. 抬起头来：人的思维是非常容易只见树木不见森林的（否则这个成语从哪来的呢？）。时不时抬起头来审视一下自己正在做的事情，问一问它（对现在或未来）有什么价值，是不是你真正希望做的。你学到的东西到底是什么？它们重要吗？你需要在这个时候学习这些吗？（见第2条）。你的时间就是你的资源，你投入这些资源来掌握知识，所以到底用来掌握哪些知识是一个很重要的问题。仅仅遵循兴趣是不够的，人会对很多次要的东西产生兴趣，并一头钻进去浪费好多时间。所以判断一个东西值不值得学习是很重要的。

杂项

1. 退订RSS：RSS Reader是个时间黑洞。就算mark all as read，在有大量feed的情况下，也会无形中消耗掉大量的时间。我们一旦订阅了某个RSS之后就会倾向于不肯退订它，心想也许某天有个重要的信息会从那里得到。这其实是源于人不肯"关上一扇门（即便门内的收益概率极小）"的心理（参见《Predictably Irrational》）；而实际上，关上一扇门，有时能够增大收益期望。仔细观察一下reader里面的feeds，有哪些是真正有价值的，把那些没价值的或者价值很小乃至于不值得每天被它骚扰的，全都退订掉。不要舍不得，那些一个星期都没出现让你眼睛一亮的内容的feed，很大的可能是永远也不会出现。就算可能，也别担心你会漏掉什么宝贵信息，真正宝贵的信息，在其他来源你也会接触到的。一开始我的Greader里面每天都有大量的新内容，每天都是1000+，但一段时间之后发现除了信息焦虑，实际上有价值的内容不多，现在，我很高兴地发现自己摆脱了这种状况，我持续不断地退订feeds，留下的内容越来越少，也越来越精，带来的阅读焦虑也越来越少。（顺便推荐一个东西，aideRSS，初步使用，感觉对订阅reddit这样的每天更新大量内容的feed很有用）。

2. 有时间吗？总结总结最近得到的新知识吧。一般来说，我在一段时间内学习的一些东西总是会在这段时间内一直在脑子里打转，一有时间空隙（譬如走路，吃饭）它们就会自己蹦出来，促使我去进一步思考和总结。永远不要认为对一个知识的把握足够深刻，“理解”的感觉很多时候只是假象。学会反问自己对知识到底把握了多少，是很有价值的。（如何反问，前面的总结中有提到）。

3. 有时间吗？看本书吧。（传统的）阅读和思考永远优于所谓的在互联网上汲取新知识，后者往往浅表、不系统、乃至根本没价值。

4. 制定简要的阅读计划：选出最近认为对你最有价值的书，先总览一下，决定阅读的顺序（哪些章节可以优先阅读）。然后每天看一点。并利用走路、吃饭、乘车或其他不适合带着书和笔的时间来总结看过的内容，建立知识结构，抽取知识本质，与以往的大脑中的知识建立联系。（参见《奇特的一生》）

]]> <![CDATA[循环引用的妙用]]> http://blog.excelhome.net/user1/gouweicao78/archives/2008/1031.html gouweicao78 2008-7-15 20:30:00 Excel循环引用可以算是函数功能VBA化的一个中间过程，借助迭代运算的设置，可以实现意想不到的功能。如：
1、多次单步查找替换，达到分离数字与文本、替换字符等功能：

用公式将混合数字和字母的分开

急：让某数字代表某个含义（文字）

2、将多笔数据代入某固定的复杂算法之中，套算出结果

[求助]如何将待测数据按要求分批代入求值，高手看过来！！






]]> <![CDATA[那抹夜色里的清影~]]> http://blog.excelhome.net/user1/guoguo/1030.html guoguo 2008-7-8 10:06:00 在不知名的机器轰鸣声中，我醒了。你竟然第一个跳进脑海里，让我思绪如三月风中的柳絮，什么时候开始的？

如往常般，我轻轻坐在你的脚边，看着你出神：想你是否也望着我出过神呢？你曾经努力的将我拥入怀中的情景，浮现在我眼前，那么甜蜜的将我的心掏走。就这样沉沦吧，我想。

你悄悄的变成了空气，没有实体，没有具体形态，却成为我生活中不可少的一部分，想着这些，有点令我抓狂，你时时包围着我，刻刻拥抱着我，我却无法将你留住，捧你在我手心。

我低头走在去食堂的道路上，脚边多情的小草尽情的向我招手挥舞，天上白晃晃的太阳刺得我无法睁眼，想你就藏在太阳光的背后，默默的望着我，即使我想扑向你，却无法张眼找寻方向……

大雨总是出现在乌云漫天之后，蜻蜓低空飞舞时，站在屋檐下，深深的吸上一口气，却发现有着你的气息，慢慢侵入我的胸腔，驻留在我的心上，令我如被大雨洗刷过的街道，干净得坦然。

你是如何留下那道清影在我心底呵，曾经沧海的我，以为不会再有桑田的出现，原来只要有合适的空气、阳光、雨的滋润，桑田就会抽绿，而且，还大片、大片的。

你似涨潮的海水，以迅雷不及掩耳之势，将我卷进汹涌里，我以十分难看的姿势扑腾着，你却毫无顾及的从我七窍中奔涌而至，迅速占据了我的每个角落，我却心甘情愿睁着双眼，欣喜着这种变化。

你成功的占据了整个的我，我渴望能抓住你的头发，让你疼痛感受到我的存在；我渴望能捧你在我眼前，让你滑进我眼底感受到我的希冀；我渴望着所有，距离却让这一切变成了泡沫。

你说这样有着一种朦胧美，距离总是产生美，我想你的想法是正确的。可那个可望不可及的清影，总会在我忙碌的余暇、稍微一愣神里，肆无忌惮的闯入我的私人空间，翻江倒海的扰乱我思绪。

我望着灿烂如罂花的你，禁不住偷偷的闻了你，不期然的中了你的毒，你在我的瞎跑乱撞中，不经意的吞噬了我。找寻你的踪迹成了我唯一的解药，可每每扑空的感觉却让我的毒瘾加深，我想着控制自己，我才是我的主宰，却有点惘然。

我想，你也是在抗拒的，并不想如此沉沦下来，不想在这片虚幻的夜色里找寻那抹清影。虽然那抹清影多么希望能与你一起同坐在夜色的街边， 两个精致的人影，举杯同饮，但是那抹清影只是点缀。

给一点绿色就青菜的我，拉着那道长长的带点清冷的影子，犹如星海里的一粒尘埃，独自摇曳在空旷的夜里……

我想记录下快乐的画面，使用开心的文字，可那些文字如你一样都藏了起来，我遍搜无果。你藏在路边的小草里吗？你藏在太阳的背后吗？你藏在遥远山坡的树林里吗？还是藏在星海的妖怪里？

不要扔下禁不住你诱惑的我，无论这抹清影能否陪你抵达哪个里程碑，你可愿意与她一起走在这虚幻的夜色里？即使走破那双鞋~

]]> <![CDATA[你也许未曾见过这样的TEXT函数用法]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1027.html chrisfang 2008-6-20 13:15:00 不少朋友都会使用Text函数，它的用法在很多人看来就是自定义单元格格式的函数版。结合不同的格式代码及条件，可以让对象显示不同的格式效果。然而在我看来，Text函数的作用远不止如此，与自定义单元格格式的代码和功能相比，Text函数可以做的更多、走的更远。Text函数是Excel在字符处理函数中少有的几个具有丰富想像力的Excel函数之一。在某些情况下，text函数还可以替换if函数、替代choose函数，还可以生成内存数组。


下面就跟随几个简单的例子，来看看Text函数究竟还能为我们做些什么。

UploadFiles/2008-6/74181.77434942.rar

在论坛中查看此帖

]]> <![CDATA[高效办公职场对话系列视频课程 免费下载]]> http://blog.excelhome.net/user1/gvntw/1026.html gvntw 2008-6-17 14:06:00 Excelhome献给职场人士的大礼：Excel高效办公职
场对话系列视频课程 免费下载
]]> <![CDATA[mmult的经典用法]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1025.html chrisfang 2008-6-14 15:48:00 countif、sumif、subtotal等函数都是运用于条件求和、条件计数等统计需求的常用函数，但这些函数都要求其第一参数为单元格区域的直接引用。当问题比较复杂、统计条件比较多的情况下，有些时候就无法直接使用这些函数进行条件统计，而使用mmult函数可以很好地替代这些函数，在复杂条件下的数组统计上进行运用。

应该说，mmult函数是数组条件统计的一大利器，用好mmult函数可以简化许多复杂问题的公式解决方案。

论坛上之前也有一些针对mmult函数的介绍和讲解专帖，本帖中不再对mmult的原理进行过多的介绍，而是着重结合具体问题如何使用mmult函数进行一些详细的分解。

下面的这个附件以一些简化的案例模型来针对mmult的不同使用方法进行了一些探讨，同时也引用了一些论坛上已有的具体案例，希望可以给大家提供一些参考意见，同时也欢迎大家参与讨论。

UploadFiles/2008-6/57279.98710616.rar

 
在论坛中查看此帖
]]> <![CDATA[窗体组合框和选项按钮的使用]]> http://blog.excelhome.net/user1/fanjy/1024.html fanjy 2008-6-11 21:13:00 本例使用了组合框和选项按钮跟踪和调整物品的状态，如下图所示。当在组合框中选择相应的物品后，下面的方框上方的文字会相应改变为该组合框物品名称，方框中的选项按钮根据该物品是否充足进行相应的选择。同时，在组合框中选择物品后，如果更改方框中选项按钮的状态，则下方库存状态列表中的文字也相应更改。单元格区域B11：C18为物品及相应的库存状态列表。
例如，在组合框中选择物品“潜水泵”，单元格B5会显示“潜水泵 充足还是不充足？”，因为在B11：C18中的潜水泵库存状态为充足，所以方框中名为“充足”的选项按钮被选中。此时，若将选项按钮更改为名为“不足”的选项按钮，那么B11：C18中潜水泵所对应的库存状态也会更改为“不足”。

下面来看看这个示例是如何实现的。
第一步：在工作表中放置一个组合框、两个选项按钮，并调整格式如上图。在B11：C18区域录入数据，当然可以将数据录入到工作表的其他区域或其他工作表中，并且可以为区域命名，以方便调用和扩展。在本例中，为了演示方便，将数据区域与窗体控件放置在一起。
第二步：设置组合框，如下图所示。
 
第三步：设置选项按钮，将选项按钮的单元格链接为C8。
第四步：设置单元格B5，使之显示相关的提示信息。在单元格B5中输入公式：
=INDEX(B12:B18,D3) & " 充足还是不充足?"
第五步：编写组合框和选项按钮相关联的代码。在VBE的标准模块中输入下面的代码：
Sub GetStates()
    Dim ws As Worksheet
    Dim iWPNumber As Integer
    Dim sStates As String
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("组合框示例")
    iWPNumber = ws.Range("D3")
    '获取组合框中当前所选物品的状态
    sStates = ws.Range("B11").Offset(iWPNumber, 1)
    If sStates = "充足" Then
        '激活名为"充足"的选项按钮
        ws.Range("C8").Value = 1
    Else
        '激活名为"不足"的选项按钮
        ws.Range("C8").Value = 2
    End If
    Set ws = Nothing
End Sub

Sub SetStates()
    Dim ws As Worksheet
    Dim iWPNumber As Integer
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("组合框示例")
    iWPNumber = ws.Range("D3")
    If ws.Range("C8").Value = 1 Then
        '更新物品的状态为充足
        ws.Range("B11").Offset(iWPNumber, 1).Value = "充足"
    Else
        '更新物品的状态为不足
        ws.Range("B11").Offset(iWPNumber, 1).Value = "不足"
    End If
    Set ws = Nothing
End Sub
其中，GetStates过程为组合框对应的宏代码，当组合框选项发生变化时更改对应的选项按钮。SetStates过程为选项按钮对应的宏代码，当组合框选项选定后，更改选项按钮设置时，相应更改库存列表中物品的库存状态。
第六步：为组合框指定宏为GetStates，为两个选项按钮指定宏为SetStates。
本文同时发表于完美Excel。
]]>