office应用心得

----------------------------------------------------------------------------------------
　　3.
　　在Word文档中，前两页是菲页，假如我要从第三页开始显示页码为第一页，怎么办？
　　可遵照如下步骤操作：
　　在“视图”菜单中选择“页眉页脚”命令，进入页脚编辑界面；
　　在“插入”菜单中选择“域”命令，打开域对话框；
　　在“域”对话框中点击右侧的“公式”按钮，并在公式对话框中输入公式“=3-2”，确定后页脚中会显示一个“1”字；
　　在页脚的“１”字上点击右键，并选取“切换域代码”命令，好了，这时我们看到了“｛=3-2｝”这样的公式了；
　　选中域公式中的“3”字，再次在“插入”菜单中选择“域”命令，打开域对话框；
　　在“域”对话框左侧列表中选中“Page”这个域名，点击“确定”按钮，这时我们看到页脚上的公式是“｛=1-2｝”；
　　成了，最后在页脚的域公式“｛=1-2｝”上点击右键，并选取“切换域代码”命令。

1、
　　　　在打印Excell表格前，每个页面的表头你是怎么加上去的？是逐页插入表头吗？
　　　　不必，你只要在“页面设置”中的“工作表”的“顶端标题行”中输入行号（或用鼠标点选要作为表头的行）就行了。
　　　　进行打印预览，你将会看到每页上面都加入了表头。
　　-------------------------------------------------------------------------------------
　　2、
　　　　在Excell中，当你打印的页是每个班（或其它的有序单位）单独占一个页面时，那么，我们可以这样弄标题：
　　　　在“页面设置”中的“页眉/页脚”中输入类似“广州市第六十五中学高一（&[页码]）班名单”这样的标题，打出来结果就是标题上的班别与表格中的名单对应，而不用逐页地插不同班别的标题
　　
　　　　并且我们还可以对这个页码作简单的加减运算，如：（&[页码]+3）
　　-------------------------------------------------------------------------------------
　　3、
　　　　在Excell中要全选一行(列)时，先选中第一个单元格，接着按下“Shift”并用鼠标左键双击该单元格的右(下)框线，则在Excell会选择整行（列）的数据（即遇到有空单元格为止，若是第一个单元格为空，则是遇到有数据的单元格为止）。
　　
　　　　采用上法，你可以在不按下“Shift”的情况下很快就能到达文件最底（顶）部或最右（左）部。
　　
　　-------------------------------------------------------------------------------------
　　4．
　　　　其实键盘的操作速度要比鼠标高许多倍的，并且用键盘没有用鼠标那么容易累。
　　　　所以在使用Excell过程中，合理地使用键盘是可以提高工作效率的
　　　　先介绍几个常用的：
　　
　　Shift+空格键：选定整行。
　　Shift+Ctrl+箭头键：选定当前位置到突变位置间的数据
　　Ctrl+A：选定整张工作表。
　　Ctrl+Page Up(Down)选定不同的工作表
　　Ctrl+箭头键：快速到达数据行列的首末
　　Ctrl+Shift+加号：插入空白单元格
　　Ctrl+C：复制
　　Ctrl+X：剪切
　　Ctrl+V：粘贴
　　Alt+E再加S：打开选择性粘贴对话框，箭头键可以选择需要的项，Enter键可以执行
　　Esc键：关闭对话框
　　----------------------------------------------------------------------------------------
　　5．
　　　　检查一行或一列是否有空单元格（遗漏数据）：使用Ctrl+箭头键，光标停在哪里，哪里就有数据突变，从而快速地找到遗漏数据的地方，并可立即将数据补上去。
　　----------------------------------------------------------------------------------------
　　6.
　　给每行数据都加一个表头的操作方法：
　　
　　下面这个表格结构，若按Ａ、Ｂ列排序将有什么结果？按Ｂ、Ａ列排呢？
　　
　　A　　 B　　　C
　　１　　１　　标题
　　２　　１　　标题
　　３　　１　　标题
　　１　　２　　成绩数据
　　２　　２　　成绩数据
　　３　　２　　成绩数据
　　
　　
　　　　操作方法很简单：
　　1、先选择唯一的标题行（全行选择，下同），按“ＣＴＲＬ＋Ｃ”复制。
　　2、选中所有学生成绩数据行，在选黑的地方点击鼠标右键，弹出菜单后按键盘的“Ｅ”键。
　　3、选中ＡＢ两列，右键，按“Ｅ”
　　4、分别用自然数序列“１－Ｎ”填充Ａ列中的标题所在行和学生成绩所在行。Ｂ列类似处理（见上表结构）。
　　5、选中所有标题及数据行，用“数据”菜单中的“排序”命令，按ＡＢ列排。
　　------------------------------------------------------------------------------------------
　　7.
　　多班一起求平均分
　　
　　对于下面这样一个表格，如何求各班的平均分和排名呢？
　　　　　 Ａ　　Ｂ　　Ｃ　　　Ｄ　　　　Ｅ
　　1　　班别　编号　X科　　语文　　　排名
　　2 　　１　　2　　物理　　成绩数据　=rank(D2,D$2:D$12)
　　3 　　１　　1　　物理　　成绩数据　=rank(D3,D$2:D$12)
　　4 　　２　　1　　物理　　成绩数据　　……
　　5 　　３　　1　　化学　　成绩数据　　……
　　6 　　１　　3　　物理　　成绩数据　　……
　　7 　　１　　4　　物理　　成绩数据　　……
　　8 　　２　　2　　物理　　成绩数据　　……
　　9 　　２　　3　　物理　　成绩数据　　……
　　10　　１　　5　　物理　　成绩数据　　……
　　11　　３　　3　　化学　　成绩数据　　……
　　12　　３　　2　　化学　　成绩数据　　……
　　
　　对于上表求排名的公式只需如上表所示，在Ｅ２单元格中输入该字串，并拖着Ｅ２单元格右下角的正方形小黑点向下填充就行了。
　　
　　对于求各班的平均分不少同志喜欢使用“分类汇总”，也有不少同志喜欢直接用“=Average()”公式求取，其实这两种方法都不如下面这个方法：
　　１、把鼠标定位在Ａ１３单元格（即班别列的正下方任何一个空单元格）
　　２、选取“数据”菜单中的“合并计算”命令，在打开的窗口中，“函数”选择“平均值”，“引用位置”可用鼠标选取“Ａ２：Ｄ１２”区域，“标签位置”选中“最左列”，点击“确定”按钮。
　　
　　３、经过上面２步，所有班的平均分都被统计出来了，你还可以给班平均分看作其中一个学生的成绩来处理，给它编一个较大的编号，如９０，那么当你按Ａ、Ｂ列排序时，班平均分就会回归到它的班下面去了，合并计算操作的结果不含公式，任意排序都不会引发重新计算。

A这是一个Word与Excel结合使用的例子，适应面较广，如果觉得好，大家就鼓鼓掌，支支持，觉得不好，那么踩上两脚也无年谓
　　　　
　　用宏批量替换合同书的合同人姓名，并打印出来：
　　你在办公过程中打印过合同书、群发信函之类的文档吗？这一类文档大部份文字都是一样的，只是姓名部份有出入，
　　如果你手头上有一个姓名库（Excel文档），那么你不防这样做：
　　
　　先在Excel文档的第一个工作表的第一列中准备好全部姓名，保存为“c:/test.xls”文件
　　
　　打开Word文档合同书；
　　
　　在“姓名：___a__b___”样式的文字段的“a”“b”两处各插入一个书签（两个书签中间夹着2个空白字符），书签名随便起。
　　（注：“姓名”后面的横线不要用下划线，而使用空白字符，字体样式添加下划线）
　　在【工具】菜单中点击【宏】【Visual Basic编辑器】命令；
　　在打开的ＶＢ编辑器的左侧资源窗口中，双击【Project(xxxxx)】工程文档下的【ThisDocument】标签；
　　在右侧窗口中贴入下面的代码：
　　
　　Sub fillAndPrint()
　　 On Error Resume Next
　　 Dim myExcel, WorkBook, ActiveSheet
　　 Set myExcel = CreateObject("Excel.Application")
　　 If Err Then Err.Clear: MsgBox "无法打开Excel程序，程序中止执行": Exit Sub
　　 Set WorkBook = myExcel.Workbooks.Open("c:/test.xls")
　　 If Err Then Err.Clear: MsgBox "无法打开指定Excel文档，程序中止执行": Set myExcel = Nothing: Exit Sub
　　 Set ActiveSheet = myExcel.sheets(1)
　　 For i = 1 To ActiveSheet.UsedRange.Rows.Count
　　 if ActiveSheet.Cells(i, 1).Value <> "" then
　　 ThisDocument.Range(ThisDocument.Bookmarks(1).Start + 1, ThisDocument.Bookmarks(2).Start - 1).Text = ActiveSheet.Cells(i, 1).Value
　　 If Err Then Err.Clear: MsgBox "没找到替换位置前后的两个书签，程序中止": WorkBook.Close: Set WorkBook = Nothing: Set myExcel = Nothing: Exit Sub
　　 ThisDocument.PrintOut
　　 End if
　　 Next
　　 WorkBook.Close
　　 Set WorkBook = Nothing
　　 Set myExcel = Nothing
　　End Sub
　　
　　现在运行宏试试看吧，一张张印有不同名字的合同书就这样从打印机里滚出来了。