下载文档原格式
序号类型书籍名称出版社书号订书数量定价码洋折扣实洋
1电子商务C语言程序设计华中师范大学出版社ISBN：978-7-56224938-220025.005000.000.452250.00 2电子商务网页设计与制作(第2版)华中师范大学出版社ISBN：9787-56224981820026.005200.000.552860.00
3电子商务SQL Server 2012从零开
始学
清华大学出版社ISBN：978730229937020059.0011800.000.809440.00
4电子商务物流电子商务经济管理出版社ISBN：7-80207-675-720035.007000.000.453150.00 5电子商务客户关系管理西南财经大学出版社ISBN：9787-81138-919-720035.007000.000.453150.00 6电子商务电子商务基础江西高校出版社ISBN 978-7-81132-895-020023.504700.000.452115.00 70.000.00 80.000.00 90.000.00 100.000.00 110.000.00 120.000.00 130.000.00 140.000.00 150.000.00 160.000.00 170.000.00 180.000.00
序号类型书籍名称出版社书号订书数量定价码洋折扣实洋
序号类型书籍名称出版社书号订书数量定价码洋折扣实洋板由天狼君制作完成，里面所有的数据都可以修改的，请放心使用本模板。
板由天狼君制作完成，里面所有的数据都可以修改的，请放心使用本模板。
板由天狼君制作完成，里面所有的数据都可以修改的，请放心使用本模板。
Excel 实验指导—图书订阅一览表Excel 为用口户提供了11种标准的图表类型，每种图表类型又包含了若干个子图表类型，并且还有许多自定义图表类型。
下面我们通过VBA 的插入模块和编辑VBA 代码等知识，来制作一个柱形图表。
1．实验目的● VBA 编辑宏● 运行宏2．操作步骤：（1）在工作表中，重命名Sheet1工作表为“图书一览表”名称。
然后在该工作表中创建“市中附小订阅图书一览表”表格，如图10-28所示。
图10-2Excel 创建表格（2）单击【代码】组中的Visual Basic 按钮。
在弹出的Microsoft Visual Basic 窗口中，执行【插入】|【模块】命令，如图10-29所示。
创建表格 重命名图10-29 插入模块（3）在【模块编辑】窗格中，输入制作图表的代码，并单击【常用】工具栏中的【保存】按钮，如图10-30所示。
图10-30 输入图表代码在【编辑器】中输入的代码如下： Sub 图表分析() Dim mData As String, sh As String '定义变量mData ，sh 为字符型mData = Selection.Address'设置变量mData 为当前选取的单元格区域 sh = '设置变量sh 为当前工作表的名称 Charts.Add'添加图表ActiveChart.ChartType = xlColumnClustered'图表类型为柱形图ActiveChart.SetSourceData Source:=Sheets(sh).Range(mData), PlotBy:=xlColumns'设置图表数据源为mData(当前选取的单元格区域)，数据系列为数据源中的列。
ActiveChart.Location Where:=xlLocationAsObject, Name:=sh'设置图表的位置是当前工作表sh单击执行插入输入单击With ActiveChart'设置图表的各项参数.HasTitle = True'有图表标题.ChartTitle.Characters.Text = Range("A1")'图表标题的文字.Axes(xlCategory, xlPrimary).HasTitle = True'有主要横坐标标题.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = Range("A2")'设置主要横坐标标题的文字.Axes(xlValue, xlPrimary).HasTitle = True'有主要纵坐标标题.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "数量"'设置主要纵坐标标题的文字End With'结束设置图表的参数ActiveChart.ChartArea.Select'选取当前图表的绘图区End Sub（4）选择A2至E8单元格区域，并单击【代码】组中的【宏】按钮，如图10-31所示。
