表格_典型实例
wbs案例表格
项目名称
某房地产开发项目
项目描述
开发一个住宅小区，包括住宅楼、配套设施和公共设施的建设
WBS层级
1级、2级、32级：建筑、结构、给排水、电气、暖通等；3级：各专业内的分部分项工程；4级：具体的作业任务
WBS质量管理
根据WBS分解和工作包，制定各阶段的质量验收标准和质量保证计划，确保项目质量符合要求
WBS风险管理
根据WBS分解和工作包，识别项目风险，制定风险应对措施和预案，降低项目风险对项目目标的影响
通过使用WBS，可以将项目工作分解为更小、更易于管理的组成部分，便于项目经理和团队成员更好地理解项目的工作内容和责任分配，有助于更好地进行项目管理。同时，WBS还可以帮助项目团队更好地制定工作计划、资源计划和成本计划，并进行跟踪和控制，确保项目的顺利实施。
WBS工作包示例
建筑：基础施工、主体施工、装修施工等；结构：钢筋混凝土结构、钢结构等；给排水：管道安装、阀门安装等；电气：电线电缆铺设、开关插座安装等；暖通：空调系统安装、通风系统安装等
WBS责任分配
根据WBS层级和工作包，将工作责任分配给相应的项目经理、专业负责人和作业人员
WBS时间管理
根据WBS分解和工作包，制定项目进度计划、资源计划和成本计划，并进行跟踪和控制
Excel VBA编程 典型实例——输入成绩大于90的记录
Excel VBA编程典型实例——输入成绩大于90的记录本例设计程序的构思是当输入了符合条件的数据时，则数据被记录在工作表中；反之，将出现提示信息，提示该输入有误。
下面通过在VBE窗口中，插入一个模块，并在该模块中输入一段代码，从而制作记录一个成绩大于90的效果。
1．练习要点● 插入模块 ● 算术运算符的应用● 保存宏工作簿2．操作步骤：（1）打开“学生成绩表”工作簿，并选择【开发工具】选项卡，单击【代码】组中的Visual Basic 按钮，如图4-22所示。
图4-22 单击Visual Basic 按钮（2）在VBA 窗口中，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，即可插入一个模块，如图4-23所示。
图4-23 插入模块（3）在【代码】编辑窗口中，输入如图4-24所示的代码。
图4-24 输入代码 其中，输入的代码如下：Sub 输入成绩()'显示提示信息框c = InputBox(" 输入成绩大于90的记录", "成绩", "请输入成绩")'假设常量c 大于90If c > 90 Then'工作表1中的D4单元格的值等于cWorksheets("sheet1").Range("D4") = c单击插入模块Else' 弹出"错误"提示框MsgBox "错误"End IfEnd Sub提 示在【代码】编辑窗口中，InputBox 函数来显示用户输入数据的不同用法。
其格式为：MyValue = InputBox(Message, Title, Default)。
其中，Message 为提示框的提示信息文字；Title 为提示框的标题文字；Default 为一个缺省值，在提示框的文本框内出现。
（4）单击【标准】工具栏中的【运行子过程/用户窗体】按钮，即可弹出【宏】对话框。
Excel VBA编程 典型实例——调试进度条
spFore.Fill.ForeColor.RGB = RGB(252, 180, 0)
'添加背景文本框
Set spBack = .AddTextbox(1, dShapeLeft + spFore.Width, dShapeTop, dShapeWidth - spFore.Width, dShapeHeight)
Dim dWindowTop As Double '当前窗口最高点
Dim dWindowLeft As Double '当前窗口最左边
Dim dShapeTop As Double '文本框相对于窗口上边距
Dim dShapeLeft As Double '文本框相对于窗口左边距
Dim dShapeWidth As Double '文本框总宽度
图19-17执行【数据有效性】命令
（3）在弹出的【数据有效性】对话框中，选择【输入信息】选项卡，并设置【标题】为“输入”；【输入信息】为“工程总量”，如图19-18所示。
图19-18设置数据有效性
（4）绘制一个“按钮1”控件，并在弹出的【指定宏】对话框中，设置【宏名】为“进度显示”；单击【新建】按钮，如图19-19所示。
'初始化已完成量为0
lngGuage = 0
'获取当前窗口指标
With ActiveWindow
dWindowHeight = .UsableHeight
dWindowWidth = .UsableWidth
dWindowTop = ActiveSheet.Cells(.ScrollRow, .ScrollColumn).Top
Excel VBA编程 典型实例——洗涤用品销售报表
Excel VBA编程典型实例——洗涤用品销售报表为了对08年前半年的洗涤用品的销售情况进行汇总分析，可以对其进行排序和汇总。
下面主要运用“多页”控件，将分析的数据结果分别显示在【排序】和【汇总】两个选项卡中。
1．练习要点●控件的使用●Sort对象的使用2．操作步骤：（1）新建一张空白工作簿，并重命名Sheet1工作表标签为“销售表”。
然后，在该工作表中，创建如图16-8所示的表格。
图16-8 创建表格（2）在E1单元格中，绘制一个“按钮1”控件。
然后，在弹出的【指定宏】对话框中，设置【宏名】为“分析数据”；并单击【新建】按钮，如图16-9所示。
单击绘制创建表格图16-9 指定宏提示 单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择“按钮（窗体控件）”选项，即可在工作表中，绘制一个“按钮”控件。
（3）在弹出的模块1【代码】编辑窗口中，输入如图16-10所示的代码。
图16-10 输入代码其中，输入的代码如下：Sub 分析数据()UserForm1.ShowEnd Sub（4）插入一个用户窗体，并在【属性】窗口中，设置Caption 的属性值为“分析数据”，效果如图16-11所示。
图16-11 插入并重命名用户窗体提 示右击【工程管理器】窗口的空白处，执行【插入】|【用户窗体】命令，即可在VBE窗口中，插入一个用户窗体。
（5）在【工具箱】中，单击【多页】控件按钮。
然后，在用户窗体中，绘制该“多页”控件，效果如图16-12所示。
重命名输入输入图16-12 绘制“多页”控件提 示若【工具箱】是被隐藏的，只需单击【标准】工具栏中的【工具箱】按钮即可。
（6）选择“多页”控件按钮上的Page1和Page2页，在【属性】窗口中，分别重命名为“排序”和“汇总”名称，如图16-13所示。
图16-13 重命名“页”标签（7）绘制两个“命令按钮”控件，并分别运用【属性】窗口，重命名控件名称为“排序”和“恢复”，效果如图16-14所示。
Excel自定义函数实例集锦文章
Excel⾃定义函数实例集锦⽂章在Excel中⾃定义函数Excel函数虽然丰富，但并不能满⾜我们的所有需要。
我们可以⾃定义⼀个函数，来完成⼀些特定的运算。
下⾯，我们就来⾃定义⼀个计算梯形⾯积的函数：1.执⾏“⼯具→宏→Visual Basic编辑器”菜单命令（或按“Alt+F11”快捷键），打开Visual Basic编辑窗⼝。
2.在窗⼝中，执⾏“插⼊→模块”菜单命令，插⼊⼀个新的模块——模块1。
3.在右边的“代码窗⼝”中输⼊以下代码：Function V（a,b,h）V = h*（a+b）/2End Function4.关闭窗⼝，⾃定义函数完成。
以后可以像使⽤内置函数⼀样使⽤⾃定义函数。
提⽰：⽤上⾯⽅法⾃定义的函数通常只能在相应的⼯作簿中使⽤。
经验分享Excel中⾃定义函数实例剖析⼀、认识VBA在介绍⾃定义函数的具体使⽤之前，不得不先介绍⼀下VBA，原因很简单，⾃定义函数就是⽤它创建的。
VBA的全称是Visual Basic for Ap plica tion，它是微软最好的通⽤应⽤程序脚本编程语⾔，它的特点是容易上⼿，⽽且功能⾮常强⼤。
在微软所有的Office组件中，如Word、Access、Powerpoint等等都包含VBA，如果你能在⼀种Office组件中熟练使⽤VBA，那么在其它组件中使⽤VBA的原理是相通的。
Excel中VBA主要有两个⽤途，⼀是使电⼦表格的任务⾃动化；⼆是可以⽤它创建⽤于⼯作表公式的⾃定义函数。
由此可见，使⽤Excel⾃定义函数的⼀个前提条件是对VBA基础知识有所了解，如果读者朋友有使⽤Visual Basic编程语⾔的经验，那么使⽤VBA时会感觉有很多相似之处。
如果读者朋友完全是⼀个新⼿，也不必太担⼼，因为实际的操作和运⽤是很简单的。
⼆、什么时候使⽤⾃定义函数？有些初学Excel的朋友可能有这样疑问：Excel已经内置了这么多函数，我还有必要创建⾃⼰的函数吗？回答是肯定的。
Excel VBA编程 典型实例——使用VBA进行排序
Excel VBA编程典型实例——使用VBA进行排序使用Excel 2007提供的排序按钮进行排序时，会将班级或学生的姓名也一起按升序或降序的方式进行排序，从而打乱了数据原有的顺序。
使用VBA代码对工作表进行排序时，只会在每个数据的后面标注出该数据处于的名次，而不会打乱数据原有的顺序。
1．练习要点● 冒泡算法的应用● 循环语句2．操作步骤：（1）新建一个空白工作表，创建如图7-12所示的表格。
图7-12 创建成绩表（2）单击【控件】组中的【插入】下拉按钮，在【ActiveX 控件】组中，选择【命令按钮（ActiveX 控件）】按钮。
然后，在工作表中绘制该按钮，如图7-13所示。
图7-13 绘制控件按钮（3）选择所绘制的“命令控件”按钮，并在【属性】对话框中，设置Caption 为“成绩排序”文字，如图7-14所示。
图7-14 设置按钮属性提 示单击【控件】组中的【控件属性】按钮，即可打开【属性】对话框。
、（4）选择“成绩排序”命令按钮，在【属性】对话框中，单击Font 右侧的【浏览】按钮，如图7-15所示。
创建选择绘制效果图7-15 单击【浏览】按钮（5）在弹出的【字体】对话框中，设置【字体】为“隶书”；【大小】为“三号”，如图7-16所示。
图7-16 设置字体格式技 巧选择“命令控件”按钮中的文字，在【字体】选项卡中，也可以设置控件的字体格式。
（6）在弹出的代码编辑器窗口中，输入如图7-17所示的代码。
图7-17 输入代码其中，在代码编辑窗口中输入的代码如下：Private Sub CommandButton1_Click()Dim myarray()Dim m, n, i, j As Integern = Application.WorksheetFunction.CountA(Columns(1))'从第二列到第八列一共循环七次For m = 2 To 8'给数组赋值ReDim myarray(n)For i = 3 To nmyarray(i) = Cells(i, m).ValueNext i选择单击设置 效果输入'用冒泡排序法对数组中的元素进行排序操作For j = 0 To n - 2For i = n To j + 2 Step -1If myarray(i) > myarray(i - 1) Thentemp = myarray(i)myarray(i) = myarray(i - 1)myarray(i - 1) = tempEnd IfNextNextFor i = 1 To nDebug.Print myarray(i)Next i'将各数值在列中的排名加括号后添加到原单元格的数值后面，中间空一个空格For i = 3 To ns = Application.WorksheetFunction.Match(Cells(i, m), myarray, -1) - 1Cells(i, m).Value = Cells(i, m).Value & Space(1) & "(" & s & ")"Next iNext m'主体程序执行完毕使各列的宽度与单元格的大小相适应Cells.SelectSelection.Columns.AutoFitCommandButton1.Enabled = TrueMsgBox "排序完成！", vbOKOnly, "提示框"End Sub（7）单击【控件】组中的【设计模式】按钮，即可取消该模式。
Excel VBA编程 典型实例——创建面积图表
Excel VBA编程典型实例——创建面积图表面积图表通常可以使用显示所绘制的值的总和，来表示部分与整体的关系。
本例主要介绍在【代码】编辑窗口中，输入相应的VBA代码来完成面积图的创建过程。
1．练习要点●插入模块●使用VBA代码创建图表2．操作步骤：（1）新建一个空白工作簿，在Sheet1工作表中，创建如图17-17所示的“实验报告”表格。
创建表格图17-17 创建表格（2）选择【开发工具】选项卡，单击【代码】组中的VISUAL Basic按钮，即可进入VBE窗口，如图17-18所示。
单击图17-18 进入VBE窗口（3）右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，即可插入模块1，如图17-19所示。
执行添加模块图17-19 插入模块（4）在【代码】编辑窗口中，输入如图17-20所示的代码。
输入图17-20 输入代码其中，输入的创建图表的代码如下：Sub creatChart()'定义变量Dim x As LongDim y As LongDim n As LongDim startRow As LongDim maxRow As LongDim shapeWidth As DoubleDim shapeHeight As DoubleDim rowIndex As LongDim colIndex As Long'获得总页数countpages = ExecuteExcel4Macro("Get.Document(50)")For n = 1 To countpagesstartRow = 45 * (n - 1) + 11maxRow = startRow + 11'创建图表ActiveSheet.Shapes.AddChart.SelectActiveChart.ChartType = xlArea'应用图表样式ActiveChart.ChartStyle = 40ActiveChart.ClearToMatchStyle'修改图表属性ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B" & startRow & ":C" & maxRow & ",H" & startRow & ":I" & maxRow), _PlotBy:=xlColumnsWith ActiveChart.HasTitle = True.ChartTitle.Characters.Text = "体积流量曲线".Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "注入孔隙体积倍数".Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "渗透率比值"End WithWith ActiveChart.Axes(xlCategory).HasMajorGridlines = True.HasMinorGridlines = FalseEnd WithWith ActiveChart.Axes(xlValue).HasMajorGridlines = True.HasMinorGridlines = FalseEnd WithActiveChart.HasLegend = False'修改图表位置shapeWidth = 0shapeHeight = 300rowIndex = 3For colIndex = 1 To 9shapeWidth = shapeWidth + ActiveSheet.Cells(rowIndex, colIndex).Width Next colIndexActiveSheet.Shapes(n).Left = ActiveSheet.Cells(45 * (n - 1) + 24, 1).LeftActiveSheet.Shapes(n).Top = ActiveSheet.Cells(45 * (n - 1) + 24, 1).TopActiveSheet.Shapes(n).Width = shapeWidthActiveSheet.Shapes(n).Height = 300'设置字体ActiveSheet.ChartObjects(n).ActivateActiveChart.ChartArea.SelectSelection.AutoScaleFont = TrueWith Selection.Font.Name = "宋体".Size = 12.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic.Background = xlAutomaticEnd WithActiveChart.ChartTitle.SelectSelection.Font.Size = 18Next nRange("A1").SelectEnd Sub（5）返回工作表中，单击【代码】组中的【宏】按钮。
Excel VBA编程 典型实例——制作工资条
Excel VBA编程典型实例——制作工资条工资条是将每个员工的相关信息单独制作成一个表格，从而可以方便打印，并发送的员工手中。
若一个一个进行制作这些工资条，将浪费很多时间。
下面介绍一种使用VBA代码快速实现工资条的方法，便于会计人员提高工作效率。
1．练习要点●控件的应用●VBA代码2．操作步骤：（1）新建一张空白工作簿，分别重命名Sheet1和Sheet2工作表标签名称为“工资表”和“条”。
然后，在“工资表”工作表中，创建如图10-9所示的“宇杰公司工资表”表格。
图10-9 创建表格提示选择Sheet1工作表标签，右击执行【重命名】命令。
然后，在工作表标签的位置上，输入“工资表”名称。
同理，重命名Sheet2工作表标签名称。
（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表创建表格单控件】组中，选择【按钮（窗体控件）】按钮。
然后，在“工资表”中，给制该形状，如图10-10所示。
此时，将弹出一个【指定宏】对话框，将【宏名】修改为“工资条”文字。
图10-10 绘制【按钮（窗体控件）】按钮提 示由于本例使用的是VBA 进行编辑代码来生成工资条，所以在绘制【按钮（窗体控件）】按钮时，弹出的对话框可以单击【取消】按钮，无须进行录制宏操作。
（3）右击绘制的控件按钮，执行【编辑文字】命令。
然后，修改按钮名称为“生成工资条”文字，如图10-11所示。
图10-11 修改控件名称（4）选择【开发工具】选项卡，单击【代码】组中的Visual Basic 按钮，如图10-12所示。
图10-12 单击Visual Basic 按钮选择绘制修改执行效果单击（5）在弹出的VBE 窗口中，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，即可插入一个模块1，如图10-13所示。
图10-13 插入模块提 示双击【工程管理器】窗口中的【模块1】按钮，即可弹出一个代码编辑窗口。
（6）在弹出的代码编辑窗口中，输入如图10-14所示的代码。
Excel公式和函数 典型案例—物料采购单
Excel 公式和函数 典型案例—物料采购单在该实例中，主要通过运用CONVERT 函数，对采购单中的采购“数量”从一个度量系统转换到另一个度量系统。
下面来学习使用不同单位的数量进行等价转换的“物料采购单”的制作方法。
1．练习要点● 设置字体格式 ● 合并单元格● CONVERT 函数应用 2．操作步骤：（1）在A1单元格中，输入“宇杰集团有限责任公司”文字，并合并A1至L1单元格区域。
然后，选择A1单元格，设置其字体格式，效果如图15-58所示。
图15-58 设置标题格式提示 选择A1至L1单元格区域，并单击【对齐方式】组中的【合并后居中】按钮，即可合并单元格。
提 示 选择“宇杰集团有限责任公司”文字，设置【字体】为“楷体_GB2312”；【字号】为24；并单击【加粗】按钮。
（2）选择A2单元格，输入“4月物料采购单”文字，并设置【字体】为“楷体_GB2312”；【字号】为18；并分别单击【加粗】和【下划线】按钮，效果如图15-59所示。
设置单击设置显示图15-59 设置字体格式提示在“4月物料采购单”文字中，分别将光标定位于各个字符之间，按【空格】键，即可调整字符间距。
技 巧 选择单元格所在的文字，按Ctrl+U 组合键，即可为文字添加下划线。
（3）在A3单元格中，输入相关的地址信息文字，并合并A3至L3单元格区域。
然后，在【字体】组中，设置该输入的文字【字体】为“楷体_GB2312”。
再次选择该输入的文字，设置【字体】为Arial ，如图15-60所示。
图15-60 设置字体格式 提 示 再次将【字体】格式设置为Arial ，是为了让数字和英文字母的格式显示为Arial 格式。
（4）在A5至B8单元格区域中，分别输入“供应商”和“电话”等文字信息。
然后，在H6至I8单元格区域中，分别输入“订购日期”和“采购员”等文字信息，如图15-61所示。
图15-61 输入相应文字信息（5）在A10至L20单元格区域中，创建如图15-62所示的表格，并在A10至L18单元格中输入相应的采购信息。
Excel VBA编程 典型实例——批量修改文件名
Excel VBA 编程 典型实例——批量修改文件名为了对计算机磁盘中的文件进行统一管理，可以对其进行批量重命名。
下面借助于Excel 2007中的控件及VBA 代码等知识，通过在Excel 工作表中的对应文件名进行修改，从而达到修改磁盘中的文件名的目的。
1．练习要点● 新建工作簿● 控件的应用2．操作步骤：（1）打开一个Excel 文件，并进入VBE 窗口。
然后，在新建的模块【代码】编辑窗口中，输入下面的代码，以创建工作簿。
Sub 新建工作簿()Workbooks.AddEnd Sub（2）在新建的工作簿中，创建如图15-7所示的表格。
图15-7 创建表格（3）进入VBE 窗口中，新建一个模块，在该模块【代码】编辑窗口中，输入如图15-8所示的代码。
创建表格输入图15-8 输入代码Dim obj As ObjectDim fld, ff, ggSub aa()Range("a2:c3000").ClearContentsOn Error Resume Nextgg = InputBox("请把要批量更名的文件夹地址粘贴或输入到下框中", , 100) Set obj = CreateObject("Scripting.FileSystemObject")Set fld = obj.GetFolder(gg)For Each ff In fld.Filesm = m + 1Cells(m + 1, 1) = Cells(m + 1, 2) = "-------"Cells(m + 1, 3) = NextEnd Sub————————————————Sub bb()On Error Resume NextIf [a2] = "" Then MsgBox "请点击第一步": Exit SubFor Each ff In fld.Filesm = m + 1 = Cells(m + 1, 3)NextMsgBox "改名已完成，请检查", vbOKOnlyEnd Sub（4）在工作表中，插入两个“按钮（窗体控件）”按钮，并分别重命名为“第一步：获取原文件名”和“第二步：改成新文件名”文字，如图15-9所示。
Excel VBA编程 典型实例——制作问卷调查表
Excel VBA编程典型实例——制作问卷调查表建筑公司为了满足现代市场的需求，在开发新的楼盘之前，对消费者进行了一次调查，通过本次调查表让公司了解各种楼盘的需求比例，使公司不致于盲目的开发高价楼盘，而无法销售出去，使公司的财政陷入困难。
本例将制做一份楼盘问卷调查表，使用户掌握表单控件的使用。
1.练习要点●使用控件●选项分组●代码2．操作步骤：（1）在A1至F11单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-17所示。
图11-17 设置格式（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择“选项按钮（表单控件）”。
然后，在工作表中绘制该控件，如图11-18所示。
图11-18 绘制控件（3）选择控件后，单击其中的标题文字并命名，然后分别为标题一的其他项添加控件并命名，如图11-19所示。
图11-19 绘制“选项按钮”控件（4）在工作表中按下Ctrl键，并逐一单击标题一中的“选项按钮”控件，选择后拖动选择的控件至标题二下单元格中，并释放Ctrl键，如图11-20所示。
提示如设置标头文字为“加粗”14号字体，正文标题颜色为“橙色”，字号为9号字体，合并正文中的标题行。
提示在单元格A5至A7，D5至D7中添加【选项按钮】表单控件，并指定【选项按钮】控件上的文字。
单击绘制绘制图11-20 添加【选项按钮】表单控件（5）分别在标题一和标题二中绘制“分组框（表单控件）”，并将“分组框（表单控件）”的标题文字删除，如图11-21所示。
图11-21 绘制“分组框”控件（6）在A12至F21单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-22所示。
图11-22 设置格式（7）分别在标题三、四、五、六、和七下，添加相应的控件并命名，然后在分别为其添加“组合框”控件，对标题进行分组，如图11-23所示。
图11-23 添加控件提示按下Ctrl 键，并拖动选择的控件时，并不会移动当前选择的控件，而是将选择的复制一份到拖动点上提 示将【分组框】控件添加到工作表中，并将属于一组的控件圈到控件中按Ctrl 后选择拖动选择绘制（8）在A22至F27单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-24所示图11-24 设置格式（9）在单元格的名称框中输入“A28：A1048567”，并按回车键，在【开始】选项卡中，单击【单元格】组中的【格式】下拉按钮，执行【隐藏和取消隐藏】｜【隐藏行】命令，如图11-25所示。
绩效考评实例40
1、在老郭的绩效评价中，你看出什么缺陷？ 在老郭的绩效评价中，你看出什么缺陷？
答： 老郭的绩效评价是典型的平均主义；单位绩效的高低 不能做为衡量个人绩效的依据；没有明确的考核标准； 对于自己的评价没有及时收集证据资料
2、你对老郭的绩效评价有哪些建议？ 你对老郭的绩效评价有哪些建议？
答： （1）将考核中的各类项目及标准制订出来。 （2）平时做好各类绩效及表现数据的收集工作。 （3）为了增加考评的公正性，可以加多同事考评和自 我考评。 （4）对老郭进行培训
任务绩效考评表
姓名 考评日期 指标 任务完成度 成本节约 员工流失率 客户满意度 总分 计划 实际 得分 部门
管理绩效考评表
姓名 考评日期 指标 指标 责任心 积极性 领导能力 沟通能力 创新 总分 部门 等级 一 二
三
四
五
得分
案例分析四： 案例分析四：
某著名的跨国公司，在世界66个国家拥有 某著名的跨国公司，在世界66个国家拥有 233000名员工和 233000名员工和340多个办事机构，其业务范围包括 名员工和340多个办事机构 多个办事机构， 电子、机械、航空、通讯、商业、化学、 电子、机械、航空、通讯、商业、化学、金融和汽车 等领域。 等领域。该公司在中国各地投资兴建了几十家生产和 销售公司，由于各个公司运营时间都不长， 销售公司，由于各个公司运营时间都不长，内部管理 制度建设还不完善， 制度建设还不完善，因此在绩效考核中采用了设计和 实施相对都比较简单的强制分布评价方法。 实施相对都比较简单的强制分布评价方法。生产人员 和管理人员都是每个员进行一次绩效考核， 和管理人员都是每个员进行一次绩效考核，考核的结 果对员工的奖金分配和日后的晋升都有重要的影响。 果对员工的奖金分配和日后的晋升都有重要的影响。 但是这家公司的最高管理层很快就发现这种绩效考核 方法存在着很多的问题， 方法存在着很多的问题，但是又无法确定问题的具体 表现及其产生的原因， 表现及其产生的原因，于是他们请了北京一家咨询公 司对企业的员工绩效考核系统进行诊断和改进。 司对企业的员工绩效考核系统进行诊断和改进。
Excel VBA编程 典型实例——录制表格样式
Excel VBA编程典型实例——录制表格样式一家小型销售公司，其日常收支情况都是在Excel电子表格中统计并记录的。
其使用的电子表格中的格式是固定的，该表格记录一个月中每天的收支情况。
跟据上述情况将该电子表格录制成宏，以便在以后的使用中直接执行宏。
（1）在Excel2007中，单击【快速】工具栏的【新建】按钮，打开新工作簿。
（2）在【开发工具】选项卡中，单击【代码】栏中的【录制宏】按钮，弹出【录制新宏】对话框。
（3）在对话框中【宏名】框中输入文字“收支报表模板”，并在【快捷键】框中单击后，按下Shift+M键。
（4）在【保存在】下拉列表框中选择“当前工作簿”选项；最后在【说明】框中输入说明文字“用于创建收支报表模板”，如图3-29所示。
输入输入选择输入图3-29 设置宏（5）单击【确定】按钮开始录制宏。
在工作簿中选择单元格A1，并输入表单标题“（XX年X月）日收支情况表”文字。
（6）在单元格A2到E2中输入表单标题“日”、“日收入(元)”、“日固定支出(元)”、“其他支出(元)”和“日盈余(元)”。
（7）在单元格A3到A33中输入数字1到31，然后在单元格A34中输入文字“汇总”，如图3-30所示。
输入图3-30 设置工作簿样式（8）右击行1的行号列表，在快捷菜单中执行【设置单元格格式】命令，如图3-31所示。
图3-31 右击行号列表（9）在【设置单元格格式】对话框的【对齐】选项卡中，启用【文本控制】栏的【合并单元格】复选框，并单击【确定】按钮，如图3-32所示。
图3-32 合并单元格（10）在工作表中选择第2行的行号列表，并在【开始】选项卡中，单击【字体】组中的粗体按钮和【对齐方式】组中的居中对齐按钮，如图3-33所示。
图3-33 设置表格样式（11）操作完成后，在【开发工具】选项卡中，单击【代码】组的【停止录制】按钮，如图3-34所示。
启用执行右击图3-34 停止录制（12）单击【快速】工具栏的保存按钮，在弹出的【另存为】对话框中，选择保存位置，并在【文件名】列表框中输入“收支报表模板”文字。
Excel VBA编程 典型实例——将工作表标题赋于变量
Excel VBA编程典型实例——将工作表标题赋于变量将工作表标题赋值于变量，类似于链接文本，即当一个单元格中的数据发生变化时，另一个与之相联的单元格也随之发生变化。
下面通过使用VBA中的赋值变量的功能，来创建两个单元格之间相等的关系。
1．练习要点●赋值于变量●拆分窗口2．操作步骤：（1）打开“灾区捐助情况统计表”工作表，如图4-15所示。
打开图4-15 打开工作表（2）选择工作表中的第5行，并选择【视图】选项卡，单击【窗口】组中的【拆分】按钮，即可拆分窗口，如图4-16所示。
图4-16 拆分窗口提 示为了便于查看工作表中的两个表格的标题是否相同，可以使用拆分窗口的功能。
（3）选择【开发工具】选项卡，单击【代码】组中的Visual Basic 按钮，如图4-17所示。
图4-17 单击Visual Basic 按钮（4）在弹出的VBE 窗口中，双击【工程管理器】窗口中的Sheet1工作表，并在弹出的【代码】编辑窗口中，设置【对象】为Worksheet ；【过程】为Change ，如图4-18所示。
图4-18 设置对象和过程（5）在【代码】编辑窗口中，输入如图4-19所示的代码。
拆分单击单击设置图4-19 输入代码其中，在【代码】编辑窗口中，输入的代码如下：Private Sub Worksheet_Change(ByVal Target As Range)'定义mytotal为字符型数据Dim mytotal As String'将工作表1中的A26单元格赋值给mytoalmytotal = Sheet1.Range("A26")'将变量mytotal的值赋值给A1单元格Sheet1.Range("a1") = mytotalEnd Sub（6）返回Sheet1工作表中，在A26单元格中，输入“捐款账目表”文字，则在A1单元格中，也将变为“捐款账目表”，效果如图4-20所示。
Excel VBA编程 典型实例——制作简单计算器
Excel VBA编程典型实例——制作简单计算器VBA是一种完全面向对象体系结构的编程语言，由于其在开发方面的易用性和其具有强大的功能。
因此，用户通过VBA可以编辑许多宏，并且提高工作效率。
下面我们运用插入文本框、按钮和组合框以及标签等控件，来制作一个简单的公式计算器。
1．练习要点● 使用表单控件● 使用ActiveX 控件● 设置属性● 编写代码2．操作步骤：（1）在A1至G8单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-29所示。
图11-29 设置表格格式（2）在第3行和第7行的单元格中插入控件，其中三个【文本框】控件和【标签】控件均为ActiveX 控件，如图11-30所示。
图11-30 插入控件提 示 选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，即可选择所需的控件。
插入表单控件与ActiveX 控件的方法相同。
（3）在Sheet2工作表B2至B5单元格中，输入“加”、“减”、“乘”和“除”文字。
然后在Sheet1工作表，右击“组合框（窗体控件）”控件，执行【设置控件格式】命令，如图11-31所示。
图11-31 绘制“组合框”控件（4）然后在弹出的对话框中，设置【数据源区域】为Sheet2!$B$2:$B$5；【单元格链接】为Sheet2!$B$1；并设置【下拉显示项数】为4，如图11-32所示。
输入右击执行图10-32 设置控件格式（4）设置【按钮1】的标题为“=”，然后为其指定宏，宏代码如下： Sub 计算()'定义变量Dim Text1, Text2, n As LongDim c As Single'判断两个文本框是否为空If Sheet1.TextBox1.Value = "" Or Sheet1.TextBox2.Value = "" Then'当其中一个文本框为空时,弹出提示对话框MsgBox "文本框中不能为空!"Else'提示文本框所输入内容第1个字符,判断是否为零。
描写家人的表格
行、唱歌、 跳舞健身、 读书看报、 研究厨艺、
钓鱼、下棋
、交友等等
大概工作 性质：教 师、医生 、工程师 、警察等 等
中心思
列举典型 想：知道
事例突出比 关系，了
如一起旅 解家人的
行，一起 性格爱
钓鱼，一 好，产生
起做饭等 对家人的
等
敬爱之情
。
描写家人的表格
填表日期： 年 月 日
序 号
家人
外貌特征
性格脾气
1 父亲
填表人 特长爱好 工作相关 举实例 备注
2 母亲
3 哥哥
4 姐姐
5 弟弟
6 妹妹
7 爷爷
8 奶奶
9 姥爷
10 姥姥
提示
喜欢看电影
五官描写、 身材描写、 是否戴眼 镜，发型， 衣着等等
、上网、旅
性格急躁还是 温和，内向还 是外向等等
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
典型实例—温馨设计装饰公司主页
参考书目：
《新编Dreamweaver 8 中文版商业网站设计入门与提高》
P87页6.6 典型实例—温馨设计装饰公司主页
下面以温馨设计装饰公司主页的制作为例，介绍使用表格布局网页的方法。
素材文件：6-6img文件夹
操作步骤：
步骤1：新建一个html文件，保存为bg.htm，标题设置为“温馨设计装饰公司主页”。
单击【属性】面板中的【页面属性】按钮，打开【页面属性】对话框，设置页面【背景颜色】为#FFCCCC（也可根据自己的审美设置）；上边距、下边距设置为0像素。
如图所示：
步骤2：单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为760像素的1行*1列的表格，设置填充、间距和边框都为“0”，然后在【属性】面板中设置表格为【居中对齐】。
步骤2 图
步骤3：将光标定位于表格中，单击【常用】插入栏中的【图像】按钮，在表格中插入图像，图像为6-6img\logo.jpg。
步骤4：在页面空白处单击鼠标取消图像的选中状态，然后单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为760像素高为35像素的1行*1列的表格，然后在【属性】面板中进行相应的设置，如下图所示。
步骤5：将光标定位于新插入的表格中，并在【属性】面板中设置单元格【水平】方向和【垂直】方向都是居中对齐。
步骤6：将光标定位于新插入的表格中，单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为100%的1行*5列的表格，然后在【属性】面板中设置表格的【高】为25像素，【间距】为3、【边框】为0、【背景颜色】为白色#FFFFFF。
步骤7：将光标依次定位于新插入表格的第1至第4个单元格中，并在【属性】面板中将单元格的【宽】都设置为12%、水平方向和垂直方向都是居中对齐。
步骤8：在单元格中输入导航文本，并将文本的大小设置为14像素。
步骤9：在页面空白处单击鼠标，单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为760像素的1行*3列的表格，设置填充、间距和边框都为“0”，在【属性】面板中设置表格为【居中对齐】，表格【背景颜色】为白色#FFFFFF。
步骤10：将光标定位于第1列单元格中，设置【水平】为居中对齐，【垂直】为顶端对齐，【宽】为125像素，然后单击【常用】插入栏中的【图像】按钮，在单元格中插入一幅图像，图像为6-6img\left.jpg
步骤11：将光标定位于第2列单元格，在【属性】面板中将【宽】设置为10像素，并单击【背景】文本框右边的【浏览】按钮，为单元格选择一幅背景图像，图像为6-6img\bg.jpg.
步骤12：将光标定位于第3列单元格，，设置【水平】为居中对齐，【垂直】为顶端对齐，然后单击【常用】插入栏中的【图像】按钮，在单元格中插入一幅图像，图像为6-6img\gs.jpg.
步骤13：按一下键盘上向右的方向键，取消图像选中状态的同时将光标移动到图像右侧，然后单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为100%的2行*2列的表格，设置表格【填充】为3、【间距】为3、【边框】为“0”。
步骤14：在第1行第2列和第第2行第1列单元格中分别插入一幅图像。
图像分别是6-6img文件夹下的yh.jpg和zw.jpg。
步骤15：然后将鼠标依次定位于第1行第1列和第2行第2列单元格中，单击【属性】面板中【左对齐】按钮，然后分别输入相应的文本。
步骤16：在文档右下角的空白处单击鼠标，将光标定位于第3个表格外侧。
步骤17：单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为760像素、高为33像素的1行*1列的表格，设置填充、间距和边框都为“0”，然后在【属性】面板中设置表格为【居中对齐】。
步骤18：将光标定位于新插入的表格中，设置单元格【水平】为居中对齐、【垂直】为底部对齐。
步骤19：单击【常用】插入栏中的【表格】按钮，在页面中插入一个宽为100%，高为25像素的1行*1列的表格，并在【属性】面板中设置【填充】为3、【间距】为3，【背景颜色】为白色#FFFFFF。
步骤20：将光标定位于新插入的表格中，在【属性】面板中设置单元格【水平】和【垂直】方向都是居中对齐。
步骤21：接着在单元格中输入版权信息，然后选中所有的文本并在【属性】面板的【样式】下拉列表中选择【STYLE1】选项。
步骤22：至此整个页面制作完毕，保存网页。
并浏览网页。