Excel word ppt office使用技巧大全(DOC格式)-第20部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
一维数组可以是垂直的也可以是水平的。在一维水平数组中的元素用逗号分开。下面是一个一
维数组的例子。例如数组：｛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〃 _ 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
