5 Excel操作技巧2.ppt

Excel 操作技巧 Luo ping Excel 操作技巧 Excel表头斜线设置秘技 用VBA实现Excel打印成绩通知单 为Excel加装快捷的公式保护器 用Excel和VBA轻松实现桌签批量打印 Excel轻松提取网上数据 Excel表头斜线设置秘技 技术要点：使用“单元格格式”对话框中的“边框”选项卡设置斜线，使用“对齐”选项卡结合空格键调整文字位置。 具体操作步骤如下。 　　1 .单击 工作表的的A1单元格，输入斜线表头的内容，比如本例中有两个标题“项目名称”和“日期”，先输入“项目名称”，然后按快捷键 Alt+ 回车键，这样可以在单元格内向下换行，再按 Alt+ 回车键一次，输入“日期”。 　　2.按Ctrl+ 回车键，这样可以在不离开该单元格的情况下选中该单元格。这时的单元格应如图1所示。 图1 选中A1单元格 3.按快捷键Ctrl+1 ，打开“单元格格式”对话框。 ( 如果在单元格上单击右键，然后从弹出的快捷菜单中选择命令“设置单元格格式”，也能打开该对话框，但使用快捷键会更快一些。 ) 　　4.在 “单元格格式”对话框中，单击“边框”选项卡，然后单击如图2所示的左斜线按钮。 图2 单击左斜线按钮 5.在 “单元格格式”对话框中，单击“对齐”选项卡，将文本的水平和垂直对齐方式都设置为“两端对齐”，如图3所示。设置完毕，单击“确定”按钮，可以看到如图4所示的效果。 图4 出现斜线 　　6.观察表头中的文本，显然项目名称的位置不是很合适。双击A1单元格，将插入点定位到“项目名称”左边，并按两次空格键，让“项目名称”的位置向右一些。按Ctrl+ 回车键离开编辑状态并选中A1单元格，如果发现“项目名称”换行了，可以通过调整该列的宽度将其调整到合适为止，同样可以调整行宽，使表头的大小变得合适。当然，也可以改变表头中文本的大小。最后我们可以得到如图5所示的表头斜线效果。 图5 最终的表头斜线效果 用VBA实现Excel打印成绩通知单 准备工作 　为便于理解、记忆，将工作表的名称分别更改为“考试成绩”、“通知单”。在“考试成绩”工作表中是每个学生的考试成绩A1至K64，在“通知单”工作表中建立一个空白表格，作为成绩通知单模板，如图所示。 编写代码  1. 进入VB编辑环境，依次点击“工具→宏→Visual Basic 编辑器”。 　　2. 定义触发事件。鼠标双击“工程”窗体中的“通知单”工作表，窗体右侧就出现了对应于该工作表的一些事件。选择响应“激活工作表”动作的事件activate，在窗体右侧的代码区域就出现了worksheet_activate()过程。接下来要做的就是在这个过程中添加代码了。 3.为事件添加代码如下：  Private Sub Worksheet_Activate() 　Dim i As Integer ‘循环变量 　For i = 1 To 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)) 　　‘将(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 + 1, 4).Value 　　Cells(sbegin + 3, 5).Value = Sheet1.Cells(i + 1, 5).Value 　　Cells(sbegin + 3, 6).V