office基础知识教程.docx

计算机协会2016-2017年度第一次会员培训课暨培训体验课办公软件OfficeWord简单的界面介绍编号设置与分级在输入内容前，在 开始 栏找到 多级列表 按钮，然后左击按钮按下 Tab 键，使编号降级，按下Shift + Tab 组合键或者Enter 键，使编号升级Word制作表格插入表格OfficeExcel简单的界面介绍公式的简单运用O 先在excel表格中输入信息,选定G2这个框O 在插入选项那里点击函数，选择sum，点击确定之后会弹出一个框，点击确定O 想要快速把所有的都求和，就在我们刚刚选定的那个框的右下角下拉就都能求出来了O 接下来求平均分，跟上面的方法是一样的，插入一个函数,选择AVERAGE点确定O 然后出现这个框，点确定O 我们选定的这个框的平均分就会出来了O 接下来的步骤和之前一样，右下角下拉就能把所有人的平均分都求出来了一键汇总的操作（SUM函数的巧用）选中成绩与总成绩区域（选中D2，按住shift 键，左击G5）使用组合键 alt 加 = 键（= 位于退格键左边）算出所有成绩可以发现，算出的总成绩调用了SUM函数合并工作簿合并工作簿多个工作簿的第一张表合并到同一工作簿的一张工作表中方法一：组合键 ctrl + c 复制所要合并的工作表内容，组合键 ctrl + v 粘贴到一张工作表中方法二（使用VBA代码）：将所要合并工作簿放在同一文件夹下，并新建一个工作簿将所要合并工作簿重命名为 数字 （注意：此方法不能百分百成功合并，将所要工作簿重命名为数字，提高合并成功率）打开新建的工作簿，组合键 alt + f11 调出VBA 代码窗口（或者 右击 工作表名 sheet1 查看代码）在VBA窗口中，插入模块在 模块 代码窗口中复制下列代码Sub 合并工作簿()Application.DisplayAlerts=False关闭提示窗口shes=Application.SheetsInNewWorkbook工作簿中包含工作表数Application.SheetsInNewWorkbook=1生成的新工作簿中只有一个工作表Set newbok=Workbooks.Add生成新工作簿Set newshe=newbok.Worksheets(1)新工作表s=1从新工作表的第一行写入数据na=Dir(C:UsersYokingDesktop合并*.xls)需要合并的所有工作表都要事先保存在此路径下的文件中Do While naSet wb=Application.Workbooks.Open(C:UsersYokingDesktop合并&na)wb.Worksheets(1).UsedRange.Copy复制数据newbok.ActivateCells(s,1).SelectActiveSheet.Paste执行粘贴s=newshe.UsedRange.Rows.Count+1Cells(s,1)=wb.Name写入数据所属的工作簿名字 若不想 写入数据所属的工作簿名字s=s+1 这两行 可以 省略wb.Close关闭工作簿na=Dir()取下一个工作簿LoopApplication.SheetsInNewWorkbook=shesApplication.DisplayAlerts=TrueRange(a1).SelectEnd Sub（注意：将代码中的蓝色部分代码替换成所需合并的工作簿的文件夹路径）运行运行子过程/用户窗体（快捷键f5）等待几秒钟，出现 工作簿1 ，合并结果呈现在 工作簿1 中合并工作簿多个工作簿的多个工作表合并到同一工作簿的多个工作表中方法一：打开所有所需合并的工作簿，右击 sheet1 移动或复制将所需合并的工作簿的工作表复制到同一工作簿中，这里将 素材二 的 空余时间表 复制到 素材一 中合并成功方法二（使用VBA代码）：将所需合并工作簿移动同一文件夹下，并新建一个工作簿打开新建的工作簿，组合键 alt + f11 调出VBA 窗口（或者 右击 工作表名 sheet1 查看代码）在 VBA 窗口，双击 sheet1 ，调出 sheet1 的代码窗口复制下列代码到sheet1 窗口中Sub CombineFiles() Dim path As String Dim FileName As String Dim LastCell As Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String Dim MyDir As String MyDir = ThisWorkbook.path & ChDriveLeft(MyDir, 1) find all the excel files ChDir MyDir Match =Dir$() ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = MyDir FileName = Dir(path & *.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path & & FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating