5Excel操作技巧2.ppt
《5Excel操作技巧2.ppt》由会员分享,可在线阅读,更多相关《5Excel操作技巧2.ppt(47页珍藏版)》请在三一文库上搜索。
1、Excel 操作技巧,Luo ping,Excel 操作技巧,Excel表头斜线设置秘技 用VBA实现Excel打印成绩通知单 为Excel加装快捷的公式保护器 用Excel和VBA轻松实现桌签批量打印 Excel轻松提取网上数据,Excel表头斜线设置秘技,技术要点:使用“单元格格式”对话框中的“边框”选项卡设置斜线,使用“对齐”选项卡结合空格键调整文字位置。 具体操作步骤如下。 1 .单击 工作表的的A1单元格,输入斜线表头的内容,比如本例中有两个标题“项目名称”和“日期”,先输入“项目名称”,然后按快捷键 Alt+ 回车键,这样可以在单元格内向下换行,再按 Alt+ 回车键一次,输入“日
2、期”。 2.按Ctrl+ 回车键,这样可以在不离开该单元格的情况下选中该单元格。这时的单元格应如图1所示。,图1 选中A1单元格,3.按快捷键Ctrl+1 ,打开“单元格格式”对话框。 ( 如果在单元格上单击右键,然后从弹出的快捷菜单中选择命令“设置单元格格式”,也能打开该对话框,但使用快捷键会更快一些。 ) 4.在 “单元格格式”对话框中,单击“边框”选项卡,然后单击如图2所示的左斜线按钮。,图2 单击左斜线按钮,5.在 “单元格格式”对话框中,单击“对齐”选项卡,将文本的水平和垂直对齐方式都设置为“两端对齐”,如图3所示。设置完毕,单击“确定”按钮,可以看到如图4所示的效果。,图3 设置单
3、元格对齐方式,图4 出现斜线,6.观察表头中的文本,显然项目名称的位置不是很合适。双击A1单元格,将插入点定位到“项目名称”左边,并按两次空格键,让“项目名称”的位置向右一些。按Ctrl+ 回车键离开编辑状态并选中A1单元格,如果发现“项目名称”换行了,可以通过调整该列的宽度将其调整到合适为止,同样可以调整行宽,使表头的大小变得合适。当然,也可以改变表头中文本的大小。最后我们可以得到如图5所示的表头斜线效果。,图5 最终的表头斜线效果,用VBA实现Excel打印成绩通知单,准备工作 为便于理解、记忆,将工作表的名称分别更改为“考试成绩”、“通知单”。在“考试成绩”工作表中是每个学生的考试成绩A
4、1至K64,在“通知单”工作表中建立一个空白表格,作为成绩通知单模板,如图所示。,编写代码 1. 进入VB编辑环境,依次点击“工具宏Visual Basic 编辑器”。 2. 定义触发事件。鼠标双击“工程”窗体中的“通知单”工作表,窗体右侧就出现了对应于该工作表的一些事件。选择响应“激活工作表”动作的事件activate,在窗体右侧的代码区域就出现了worksheet_activate()过程。接下来要做的就是在这个过程中添加代码了。,3.为事件添加代码如下: Private Sub Worksheet_Activate() Dim i As Integer 循环变量 For i = 1 To
5、 100 If Sheet1.Cells(i, 1) = “” Then 如果“考试成绩”工作表的考号中没有内容,则退出循环 Exit For End If sbegin = (i - 1) * 5 + 1 send = i * 5 dbegin = i * 5 + 1 dend = (i + 1) * 5 确定复制、粘贴“通知单”格式区域的起止行,5为复制区域的行数,Sheet2.Range(Cells(sbegin, 1), Cells(send, 11).Copy _ Destination:=Sheet2.Range(Cells(dbegin, 1), Cells(dend, 11)
6、将(Cells(sbegin, 1), Cells(send, 11)区域中的格式拷贝到 (Cells(dbegin, 1), Cells(dend, 11) Cells(sbegin + 3, 1).Value = Sheet1.Cells(i + 1, 1).Value Cells(sbegin + 3, 2).Value = Sheet1.Cells(i + 1, 2).Value Cells(sbegin + 3, 3).Value = Sheet1.Cells(i + 1, 3).Value Cells(sbegin + 3, 4).Value = Sheet1.Cells(i +
7、1, 4).Value Cells(sbegin + 3, 5).Value = Sheet1.Cells(i + 1, 5).Value Cells(sbegin + 3, 6).Value = Sheet1.Cells(i + 1, 6).Value Cells(sbegin + 3, 7).Value = Sheet1.Cells(i + 1, 7).Value Cells(sbegin + 3, 8).Value = Sheet1.Cells(i + 1, 8).Value,Cells(sbegin + 3, 9).Value = Sheet1.Cells(i + 1, 9).Valu
8、e Cells(sbegin + 3, 10).Value = Sheet1.Cells(i + 1, 10).Value Cells(sbegin + 3, 11).Value = Sheet1.Cells(i + 1, 11).Value 将“考试成绩”工作表的数据填入“通知单”相应位置 Next i End Sub 检验成果 进入工作簿,按下“通知单”工作表,即可得到所有学生的成绩通知单了(如图2)。,图2,为Excel加装快捷的公式保护器,在Excel中出于保密需要,通常不希望使用者查看和修改公式。你可以利用Excel锁定、隐藏和保护工作表的功能,把公式隐藏和锁定起来。但如果按照常规方
9、法设置会比较麻烦,而利用Excel的宏,在工具栏上添加一个“保护公式”的按钮,需要隐藏和锁定公式时,只要轻轻一按即可完成保护。 制作宏 为了使此宏对所有工作簿有效,需要将其保存到“个人宏工作簿”中。,第一步:执行“工具宏录制新宏”命令,打开“录制新宏”对话框,见图1所示。,第二步:单击右侧“保存在”下拉按钮,在随后出现的下拉列表中,选择“个人宏工作簿”选项,确定进入录制状态。 第三步:单击“停止录制”工具栏上的“停止录制”按钮,退出录制状态。 注意:前面的操作是为了在Excel中添加“个人宏工作簿”。 第四步:按下AltF11组合键进入VBA编辑状态(见图2),在左侧依次展开“VBAProje
10、ct(PERSONAL.XLS)”、“模块”选项,双击下面的“模块1”。,第五步:用下面的代码替换右侧编辑区域中的代码: Sub 保护公式() ActiveSheet.Unprotect (“123456“) 解除对工作表的保护 Cells.Select 选中整个表格 Selection.Locked = False 解除锁定 Selection.SpecialCells(xlCellTypeFormulas, 23).Select 选中包含公式的单元格 Selection.Locked = True 添加锁定 Selection.FormulaHidden = True 添加隐藏 Activ
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel 操作 技巧
链接地址:https://www.31doc.com/p-2151810.html