按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Any； _ ByVal lpWindowName As Any） As Long Private Declare Function SendMessage Lib
〃user32〃 _ Alias 〃SendMessageA〃 （ByVal hwnd As Long； _ ByVal wMsg As Long； ByVal wParam
As Long； _ lParam As Any） As Long Private Sub SomeProc（） Dim wnd As Long Dim uClickYes
As Long Dim Res As Long ' Register a message to send uClickYes =
RegisterWindowMessage（〃CLICKYES_SUSPEND_RESUME〃） ' Find ClickYes Window by classname
wnd = FindWindow（〃EXCLICKYES_WND〃； 0&）
CXXXVII
…………………………………………………………Page 138……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
' Send the message to Resume ClickYes Res = SendMessage（wnd； uClickYes； 1； 0） ' 。。。
' Do some Actions ''''' btn_sendmail_Click 干些事后再关掉 ' Send the message to
Suspend ClickYes Res = SendMessage（wnd； uClickYes； 0； 0） End Sub 程控ClickYes
===
你好： 我想了一個方法，用 display 方法，再按 Ait ＋ S 鍵傳送 Email 以下法在 Excel 2003
＋ Outlook 2003 測試成功 PS： 請在Excel 視窗下執行，若在 VBE 視窗執行會有問睿ublic
Declare Function SetTimer Lib 〃user32〃 _ （ByVal hwnd As Long； ByVal nIDEvent As Long；
ByVal uElapse As Long； ByVal lpTimerfunc As Long） As Long Public Declare Function
KillTimer Lib 〃user32〃 _ （ByVal hwnd As Long； ByVal nIDEvent As Long） As Long Private
Declare Sub Sleep Lib 〃kernel32〃 （ByVal dwMilliseconds As Long） Private Declare
Function SetForegroundWindow Lib 〃user32〃 （ByVal hwnd As Long） As Long Function
WinProcA（ByVal hwnd As Long； ByVal uMsg As Long； ByVal idEvent As Long； ByVal SysTime
As Long） As Long KillTimer 0； idEvent DoEvents Sleep 500 Application。SendKeys 〃％s〃
End Function Sub test（） Application。ScreenUpdating = False Dim objOL As Object Dim
itmNewMail As Object
CXXXVIII
…………………………………………………………Page 139……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
〃 。display SetTimer 0； 0； 0； AddressOf WinProcA End With Set objOL = Nothing Set
itmNewMail = Nothing Application。ScreenUpdating = True End Sub Set objOL =
CreateObject（〃Outlook。Application〃） Set itmNewMail = objOL。CreateItem（olMailItem）
With itmNewMail 。Subject = 〃chijanzen Mail Test〃 。To = 〃chijanzen@gmail。
＇分享＇只记得函数的名称，但记不清函数的参数了，怎么办？ 如果你知道所要使用函数的名
字，但又记不清它的所有参数格式，那么可以用键盘快捷键把参数粘贴到编辑栏内。 具体方
法是：在编辑栏中输入一个等号其后接函数名，然后按 Ctr＋ A键，Excel则自动进入―函数指
南——步骤 2之2‖ 。当使用易于记忆的名字且具有很长一串参数的函数时，上述方法显得特别
有用。
＇分享＇只计算Excel公式的一部分 在Excel中当我们调试一个复杂的公式时可能需要知道公式
某一部分的值，可以用以下的办法来获得：双击含有公式的单元格，选定公式中需要获得值的
那部分公式，按―F9‖键，Excel就会将被选定的部分替换成计算的结果，按―Ctrl＋Z‖可以恢复
刚才的替换。如果选定的是整个公式的话，就可以看到最后的结果。 例如，有这样一条公式：
（A1*B1＋C1）/D1，选定公式中的A1*B1 （假设A1和B1的值分别为12和8），按―F9‖键，Excel就会
将A1*B1这部分转换为96。这时，公式就变成了（96＋C1）/D1。如果继续选定D1（假设D1的值为6），
并按―F9‖键，Excel会将公式转换为 （A1*B1＋C1）/6。 当你完成了公式的计算部分，想恢复成原
来的公式， 按―Esc‖即可。 在Excel中当我们调试一个复杂的公式时可能需要知道公式某一部
分的值，可以用以下的办法来获得：双击含有公式的单元格，选定公式中需要获得值的那部分
公式，按―F9‖键，Excel就会将被选定的部分替换成计算的结果，按―Ctrl＋Z‖可以恢复刚才的
替换。如果选定的是整个公式的话，就可以看到最后的结果。
＇分享＇如何不使显示或打印出来的表格中包含有0值？ 通常情况下，我们不希望显示或打印出
来的表格中包含有0值，而是将其内容置为空。例如，图1合计列中如果使用―=b2＋c2＋d2‖公式，
将有可能出现0值的情况，如何让0值不显示？ 方法一；使用加上If函数判断值是否为0的公式，
即： =if （b2＋c2＋d2＝0，―‖， b2＋c2＋d2） 方法二：选择―工具‖ ＼―选项‖ ＼―视窗‖，在―窗
口选项‖ 中去掉―零值‖选项。 方法三：使用自定义格式。 选中 E2：E5区域，选择―格式‖ ＼―单
元格‖ ＼―数字‖，从―分类‖列表
CXXXIX
…………………………………………………………Page 140……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
框中选择― 自定义‖，在―格式‖框中输入―G/通用格式；…G/通用格式；；‖，按―确定‖按钮即可。
方法四：将0替换成空 （选择单元格匹配） 方法五 （根据5楼雨点）：定义目标EXCEL表，在―条件
格式‖ 中将―单元格数值‖等于―0‖，在―格式‖ 中将―颜色‖设为― 白色‖，两次―确定‖即可。定义表
中的0值均为白色，打印时也不显示
还有一方法： 定义目标EXCEL表，在―条件格式‖ 中将―单元格数值‖等于―0‖，在―格式‖ 中将―颜
色‖设为― 白色‖，两次―确定‖即可。定义表中的0值均为白色，打印时也不显示
＇分享＇Excel中―摄影‖ 的妙用 在Excel中，如果需要在一个页面中反映另外一个页面的更改，
我们一般用粘贴连接等方式来实现。但是，如果需要反映的内容比较多，特别是目标位置的格
式编排也必须反映出来的时候，再使用连接数据的方式就行不通了。好在天无绝人之路，Excel
早为我们准备了―照相机‖，你只要把希望反映出来的那部分内容―照‖下来，然后把―照片‖粘贴
到其他的页面即可。 1、准备―照相机‖ 1） 打开Excel的―工具‖菜单，选择― 自定义‖对话框。
2） 单击―命令‖选项卡，在―类别‖ 中选择―工具‖，在右边―命令‖列表中找到―摄影‖，并且将其
拖到工具栏的任意位置。 2、给目标―拍照‖ 假设我们要让Sheet2中的部分内容自动出现在
Sheet1中。 1） 拖动鼠标并且选择Sheet2中需要―拍照‖ 的内容。 2） 用鼠标单击工具栏上准
备好的―照相机‖按钮，于是这个选定的区域就被―拍‖ 了下来。 3、粘贴―照片‖ 1） 打开Sheet1
工作表。 2） 在需要显示―照片‖ 的位置上单击鼠标左键，被―拍摄‖ 的―照片‖就立即粘贴过来
了。 在Sheet2中调整―照片‖ 的各种格式，粘贴到Sheet1中的内容同步发生变化，而且因为插
入的的确是一幅自动更新的图像文件，所以，― 图片‖工具栏对这个照片也是有效的哦！你可以
按几个按钮试试，这个―照片还可以自由的旋转呢！怎么样？这个数码照相机还不错吧！
＇分享＇Excel XP的快速输入技巧 用Excel XP处理庞大的数据信息时，如果不注意讲究技巧和
方法，很可能会花费很大的精力。因此如何巧用Excel XP，来快速输入信息就成为�