Excel word ppt office使用技巧大全(DOC格式)-第18部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！


'While　Not　IsEmpty（WP19。Cells（OPRow；　1））　　　

'　If　WP19。Cells（OPRow；　2）　=　2　And　WP19。Cells（OPRow；　3）　=　WP19。Cells（SourceRow；　3）　And　　

WP19。Cells（OPRow；　8）　=　〃081〃　Then　　　

'　Summary。Range（Cells（TargetRow；　6）；　Cells（TargetRow；　6））。Select　　　

'　Summary。Cells（TargetRow；　6）　=　WP19。Cells（OPRow；　9）　　　

'　End　If　　　

'　OPRow　=　OPRow　＋　1　　　

'Wend　　　

TargetRow　=　TargetRow　＋　1　　　

End　If　　　

SourceRow　=　SourceRow　＋　1　　　

Wend　　　

End　Sub　　　

========　　　

不关EXCEL　如何关闭已打开的加载宏　　　

Sub　ttt（）　Dim　inadd　As　AddIn　For　Each　inadd　In　Application。AddIns　inadd。Installed　=　　

False　Next　End　Sub　　　

＇推荐＇Excel　数组的使用　我一直对数组的用法不是很清楚；　今天见到一篇关于数组基础的文　

章；　觉得有必要推荐给数组新手学习参考。　　　

数组就是单元的集合或是一组处理的值集合。可以写一个数组公式，即输入一个单个的公式，　

它执行多个输入的操作并产生多个结果——每个结果显示在一个单元中。数组公式可以看成是　

有多重数值的公式。与单值公式的不同之处在于它可以产生一个以上的结果。一个数组公式可　

以占用一个或多个单元。数组的元素可多达6500个。　7。12。1　了解数组　首先我们通过几个例　

子来说明数组是如何工作的。我们可以从图7…35中看　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXI　　


…………………………………………………………Page　132……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



到，在―B‖列中的数据为销售量，在―C‖列中的数据是销售单价，要求计算出每种产品的销售额　

和总的销售金额，一般的做法是计算出每种产品的销售额，然后再计算出总的销售额。但是如　

果我们改用数组，就可以只键入一个公式来完成这些运算。　输入数组公式的步骤为：　选定要　

存入公式的单元格，在本例中我们选择―D4‖单元格。输入公式　　　

=SUM　（B2：B4*C2：C4），但不要按下＇Enter＇键（输入公式的方法和输入普通的公式一样）。按下　

＇Shift＇＋＇Ctrl＇＋＇Enter＇键。我们就会看到在公式外面加上了一对大括号―　｛｝‖，如图　7…36所　

示。　在单元格―D‖　中的公式―=SUM（B2：B4*C2：C4）‖；　表示―B2：　B4‖范围内的每一个单元格和―C2：　

C4‖　内相对应的单元格相乘，也就是把每个地区的销售量和销售单价相乘，相乘的结果共有3　

个数字，每个数字代表一个地区的销售额，而―SUM‖函数将这些销售额相加，就得到了总的销　

售额。　下面我们再以使用数组计算3种产品的销售额为例，来说明如何产生多个计算结果。其　

操作过程如下：　　（1）　选择―D2：D4‖单元格区域，该区域中的每个单元格保存的销售金额。如　

图7…37所示。　　（2）　在―D2‖　单元格中输入公式―=B2：B4*C2：C4‖　　　　　（不按＇Enter＇键）按下　

＇Shift＇＋＇Ctrl＇＋＇Enter＇‖键，我们就可以从图7…38中看到执行后的结果。同时我们可以看到　

―D2‖到―D4‖　的格中都会出现用大括弧―　｛　｝‖框住的函数式，这表示―D2‖　到―D4‖被当作一个单元　

格来处理，所以不能对―D2‖到―D4‖　中的任一格作任何单独处理，必须针对整个数组来处理。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXII　　


…………………………………………………………Page　133……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



7。12。2　使用数组常数　我们也可以在数组中使用常数值。这些值可以放在数组公式中使用区域　

引用的地方。要在数据公式中使用数组常数，直接将该值输入到公式中并将它们放在括号里。　

例如，在图7…39中，就使用了数组常数进行计算。　常数数组可以是一维的也可以是二维的。　

一维数组可以是垂直的也可以是水平的。在一维水平数组中的元素用逗号分开。下面是一个一　

维数组的例子。例如数组：｛10；20；30；40；50｝。在一维垂直数组中的元素用分号分开。在下面　

的例子是一个6×1的数组，｛100；200；300；400；500；600｝。　　　

对于二维数组，用逗号将一行内的元素分开，用分号将各行分开。下一个例子是―4　×4‖　的数　

组（由4行4列组成）：｛100；200；300；400；110；　〃　〃　　；130；230；330；440｝。　注意：不可以在　

数组公式中使用列出常数的方法列出单元引用、名称或公式。例如：　｛2*3；3*3；4*3｝因为列出　

了多个公式，是不可用的。｛A1；B1；C1｝因为列出多个引用，也是不可用的。不过可以使用一个　

区域，例如｛A1：C1｝。　对于数组常量的内容，可由下列规则构成：　数组常量可以是数字、文　

字、逻辑值或错误值。　数组常量中的数字，也可以使用整数、小数或科学记数格式。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXIII　　


…………………………………………………………Page　134……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



文字必须以双引号括住。　同一个数组常量中可以含有不同类型的值。　数组常量中的值必须是　

常量，不可以是公式。　数组常量不能含有货币符号、括号或百分比符号。　所输入的数组常量　

不得含有不同长度的行或列。　7。12。3　数组的编辑　数组包含数个单元格，这些单元格形成一　

个整体，所以，数组里的某一单元格不能单独编辑。在编辑数组前，必须先选取整个数组。　选　

取数组的步骤为：　　（1）　选取数组中的任一单元格。　　（2）　在―编辑‖菜单中选择―定位‖命令或者　

按下＇F5＇键，出现一个―定位‖对话框。按下―定位条件‖按钮，出现一个定位条件对话框，如图　

7…40所示。　选择―当前数组‖选项，最后按下―确定‖按钮，就可以看到数组被选定了。　编辑数　

组的步骤为：　选定要编辑的数组，移到数据编辑栏上按＇F2＇键或单击左键，使代表数组的括号　

消失，之后就可以编辑公式了。编辑完成后，按下＇Shift＇　＋＇Ctrl＇　＋　＇Enter＇键。　若要删除　

数组，其步骤为：选定要删除的数组，按＇Ctrl＇＋＇Delete＇或选择编辑菜单中的―清除‖命令。　　

7。12。4　数组的扩充　在公式或函数中使用数组常量时，其它运算对象或参数应该和第一个数组　

具有相同的维数。必要时，Microsoft　Excel　会将运算对象扩展，以符合操作需要的维数。每　

一个运算对象的行数必须和含有最多行的运算对象的行数一样，而列数也必须和含有最多列数　

对象的列数一样。　例如：　=　SUM（｛1；2；3｝＋｛4；5；6｝）内的第一个数组为1×3；得到的结果为1＋4、　

2＋5和3＋6的和；也就是21。如果将公式写成　=　SUM（｛1；2；3｝＋4｝）；则第二个数据并不是数组，　

而是一个数值，为了要和第一个数组相加，Excel　会自动将数值扩充成1　×3　的数组。使用　

=SUM（｛1；2；3｝＋｛4；4；4｝）做计算，得到的结果为1＋4、2＋4和3＋4的和；　即18。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXIV　　


…………………………………………………………Page　135……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



将数组公式输入单元格区域中时，所使用的维数应和这个公式计算所得数组维数相同。这样，　

Microsoft　Excel　才能把计算所得的数组中的每一个数值放入数组区域的一个单元格内。　如　

果数组公式计算所得的数组比选定的数组区域还小，则　Microsoft　Excel会将这个数组扩展，　

以　便　将　它　填　入　整　个　数　组　区　域　内　。　例　如　：　=｛1；2；3；4｝*2　扩　充　后　的　公　式　就　会　变　为　

=｛1；2；3；4｝*｛2；2；2；2｝，则相应的计算结果为―2；4；6；8‖　。再如：输入公式=｛1；2；3；4｝*｛2；3｝　

扩充后的公式就会变为=｛1；2；3；4｝*｛2；3；2；3｝　，则相应的计算结果为―2；6；6；12‖　。　如果　　

Microsoft　Excel　将一个数组扩展到可以填入比该数组公式大的区域内，而没有扩大值可用的　

单元格内，这样就会出现#N/A错误值。例如：=｛1；2；3；4｝=｛1；2；3｝　扩充后的公式就会变为　

=｛1；2；#N/A；3；4；#N/A｝*｛1；2；#/A；1。2。#N/A｝　，而相应的计算结果为―2；4；#N/A；4；6；#N/A‖　。　　

如果数组公式计算所得的数组比选定的数组区域还要大，则超过的值不会出现在工作表上。　　　

EXCEL中的自动宏　如果想作一个在EXCEL工作薄打开时就自动执行的宏；　请将此宏的名称；取　

为auot_open；　如果在打开excel工作薄时不执行自动宏；　只须按信SHIFT键就可以了　　　

为什么不用Workbook_Open呢？　　　

＇分享＇如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？　如　

果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如　

何才能一次打印多个工作表？　把鼠标移到工作表的名称处（若你没有特别设置的话，Excel　

自动设置的名称是―sheet1、sheet2、sheet3。。。。。。。‖　），然后点右键，在弹出的菜单中选择―选　

择全部工作表‖　的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚　

还是打印你工作表。　当然，如果只选择其中几个工作表，你可用ctrl或shift与鼠标结合选择　　　

如何在EXCEL中加入自定义函数　我是OFFICE菜鸟；请问各位大侠；　如何在EXCEL中把定义好的　

宏加入自定义函数中　　　

要在一般模块中定义好了自然就是自定义函数〃例如　Function　abc　（）　Msgbox　―Hi！‖　End　　

function　就有一个自定义函数abc啰　　　

＇分享＇避开Excel的误差　微软的Excel软件在财务应用领域使用得非常广泛、被许多单位用来　

处理财务数据。笔者就是用Excel来为单位做工资表的，不过笔者在使用过程中发现，当用Excel　

进行复杂算术运算时，其计算出来的结果有时会与电子计算器的结果有些微小的差别，特别是　

在进行多项除法运算而留有余数的情况下，算术―误差‖很容易产生，究其原因，就是Excel在　

除不尽的情况下，不会自动对数值进行四舍五入的操作。这在要求严格的财务报表上当然是不　

允许的，避开这种―误差‖　的途径有两种：　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXV　　


…………………………………………………………Page　136……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



1．　利用Round函数对中间值四舍五入　Excel中Round函数的格式为：Round（数值，保留的小数　

位数），它的作用就是对指定数值进行四舍五入的操作并保留指定小数位数。比如　

Round（8。8888；2）的意思就是对8。8888的千分位进行四舍五入、结果就是8。89，当然为工作方　

便，此函数括号内的数值也可以是单元格地址或别的算术公式，每个中间值经过这样处理后得　

到的最终运算结果就和计算器算出来的一致了。　2．　正确设置Excel选项来避开―误差‖　上述　

函数方法虽然方便，不过遇上大型Excel表格时，如果每个单元格都要设置这个函数，工作量　

未免太巨大，这时我们就可以进入Excel的＇工具＇→＇菜单＇→＇选项＇→＇重新计算＇，在―工作簿　

选项‖处勾选―　以显示值为准‖，上述Excel―误差‖也可有效避免，而默认情况下这个小选项是没　

有被勾选的。　　　

我遇过这样的问题；就差一分的误差；很烦人的。我是个财务工作者；要经常在表格中设置计算　

增值税的；比如说：B4=B2/1。17*0。05；这样的公式就会产生一分的偏差的。请问楼主；怎么解　

决？？？？　　　

方法1；　用round函数；　B4=round（B2/1。17*0。05；2）；如果不能满足你的要求；　请上传附件及详　

细说明　　　

＇分享＇如何快速输入数据序列？　如果你需要输入诸如表格中的项目序号、日期序列等一些特　

殊的数据系列，千万别逐条输入，为何不让Excel　自动填充呢？在第一个单元格内输入起始数　

据，在下一个单元格内输入第二个数据，选定这两个单元格，将光标指向单元格右下方的填充　

柄，沿着要填充的方向拖动填充柄，拖过的单元格中会自动按Excel内部规定的序列进行填充。　

如果能将自己经常要用到的某些有规律的数据（如办公室人员名单），定义成序列，以备日后　

自动填充，岂不一劳永逸！选择―工具‖菜单中的―选项‖命令，再选择―　自定义序列‖标签，　在　

输入框中输入新序列，注意在新序列各项2间要输入半角符号的逗号加以分隔（例如：张三，　

李四，王二〃〃），单击―增加‖按钮将输入的序列保存起来。　　　

自定义序列还有个妙用，有时需要按一定的特殊顺序排序。可以将特殊顺序的文本自定义成序　

列，排序时按自定义序列就可以了。　　　

＇求助＇　急用！请帮忙！VBA发邮件遇到的两个问题（大家继续努力）　我使用下列代码发邮件；　请　

问如何解决下面两个问题：　1。　一次发几十个邮件；如何让系统自动在发邮件时自动按outlook　

发邮件提示对话框的〃是〃按钮　2。　如果在发邮件时按outlook发邮件提示对话框的〃否〃按钮；　　

系统提示运行错误〃287〃；　如何解决　Sub　test（）　Application。ScreenUpdating　=　False　Dim　　

objOL　　As　　　Object　　Dim　　　itmNewMail　　As　　Object　　Set　　objOL　　=　　

CreateObject（〃Outlook。Application〃）　Set　itmNewMail　=　objOL。CreateItem（olMailItem）　　

With　itmNewMail　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CXXXVI　　


…………………………………………………………Page　137……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



。To　=　〃ddd@sina。〃　。Subject　=　〃Mail　Test〃　。Send　End　With　Set　objOL　=　Nothing　Set　　

itmNewMail　=　Nothing　Application。ScreenUpdating　=　True　End　Sub　　　

===　　　

第二个不是问题　With　itmNewMail　。To　=　〃ddd@sina。〃　。Subject　=　〃Mail　Test〃　On　Error　　

Resume　Next　。Send　On　Error　GoTo　0　End　With　　　

===　　　

'　Declare　Windows'　API　functions　Private　Declare　Function　RegisterWindowMessage　_　Lib　　

〃user32〃　Alias　〃RegisterWindowMessageA〃　_　（ByVal　lpString　As　String）　As　Long　Private　　

Declare　Function　FindWindow　Lib　〃user32〃　_　Alias　〃FindWindowA〃　（ByVal　lpClassName　As　　

Any；　_　ByVal　lpWindowName　As　Any）　As　Long　Private　Declare　Function　SendMessage　Lib　　

〃user32〃　_