excel数据画图如何用

1.excel表格怎么制图

在Excel中做界面式表格必须的步骤，设置统一背景色，渐变要比一般的单色更美观，字体格式要和背景色协调，添加图标下面说明文字，使整个表格颜色要保持在同一个色系。

一步：表格整体填充浅灰色。

在excel中做界面式表格必须的步骤，设置统一背景色。

第二步：设置摆放图标的行白色填充色，然后插入文本框设置渐变色、输入文字和设置字体为华文彩文。

渐变要比一般的单色更美观，字体格式要和背景色协调。

第三步：通过复制粘贴或插入的方法添加图标（在百度或百度图片搜“图标”可以下载到很多漂亮的图标素材），确定第一个和最后一个图标的位置，然后使用图片工具中的顶端对齐和横向分布对齐图片。

第四步：添加图标下面说明文字。插入文本框-输入和设置字体-去掉边框线。最后使用第三步方法对齐文字。

第五步（选做）：开发工具 - 插入 -框架-设置为立体格式。

第六步：上面添加深蓝色画轴。

整个表格颜色要保持在同一个色系。上面的画轴可以用渐变色，中间浅色可以让图形变得更立体些。

第七步：设置超链接和光标悬停时显示说明文字

右键-超链接-本文档的位置-选取表格，点击“屏幕提示“并输入提示文字。

至此为止，界面制作完成

2.EXCEL中《数据透视表》怎么用

方法/步骤

打开你需要汇总的EXCEL表格，点击插入里面的数据透视表

出现数据透视表的数据源选择项，选择你所需要的数据确定，就会出现数据透视表的报表选项

将你所需要的报表字段，用鼠标左键点住不放，拖入右边的行坐标和数值区域

一般我们做数据汇总时都是将数据求和，或者求平均数等等，所以这时就要对数值区域的字段进行修改。

选择字段后边的小三角行，点击“值字段设置”，将计算类型修改成你所需要的“求和”或者其它。

确定后关闭报表，汇总结果就出来了。

如果说还想要每个业务的每个产品的销售汇总，还可以增加一个行标签。

鼠标放在行列标处，点击右键，显示字段列表，将客户名称拉到行标签处即可

这样的表格看起来还不是很习惯，可以将鼠标放在“客户名称”处，单击右健，更改“字段设置”，在布局和打印处，选择“以表格形式显示项目标签”即可

如果数据有更改的，更改后，在数据透视表上点击鼠标右健，点击刷新即可

3.CAD2006怎样用VBA读取EXCEL数据并绘制多线

CAD中VBA与EXCEL VBA调用EXCEL信息 Sub ExcelRead() Dim ExcelApp As New Excel。

Application ExcelApp。Workbooks。

Open "d:\book1。 xls", , ReadOnly Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double Dim Rad As Double Dim i As Integer i = 2 With ExcelApp。

ActiveWorkbook。Worksheets("sheet1") Do Select Case 。

Range("A" & i) Case "直线"： pt1(0) = 。Range("B" & i) pt1(1) = 。

Range("C" & i) pt1(2) = 0 pt2(0) = 。 Range("D" & i) pt2(1) = 。

Range("E" & i) pt2(0) = 0 ThisDrawing。ModelSpace。

AddLine pt1, pt2 Case "圆"： pt1(0) = 。Range("B" & i) pt1(1) = 。

Range("C" & i) pt1(2) = 0 Rad = 。Range("D" & i) ThisDrawing。

ModelSpace。AddCircle pt1, Rad Case Else: Exit Do End Select i = i + 1 Loop End With ExcelApp。

Workbooks。Close ExcelApp。

Quit ThisDrawing。Application。

Update End Sub 运行这段代码需要加载EXCEL ActiveX对象模型。在ACAD VBA编辑器中选择“工具”菜单->“引用”，选择合适的Microsoft Excel Object Library。

这段代码第2行先声明并新建一个EXCEL。Application对象。

新建EXCEL对象，也可以调用VB库函数CreateObject(): Dim ExcelApp As Excel。Application Set ExcelApp = CreateObject("Microsoft Excel") 程序第3行调用EXCEL的Application对象的Workbooks集合的Open方法，以只读方式打开指定的EXCEL文档。

第4-7行声明一些变量。i 用于表明要操作的EXCEL单元格的行号，通常EXCEL文档第1 行是表头说明，我们从第2行开始读数据。

程序第8行告诉编译程序以下对当前活动的EXCEL文档的Sheet1工作表进行操作。 程序第9行到第29行循环读取EXCEL文档的Sheet1工作表中对于自动绘图有用的单元格内容并在ACAD模型空间中绘图。

循环内部用Select Case语句根据EXCEL文档的第1 列内容选择不同的绘图方法。为了说明问题，程序仅对直线和圆两种ACAD图元对象进行操作并将其它对象出现作为循环退出条件。

实际编程时可以对更多ACAD图元对象进行操作。 程序第31、32行释放不再使用的EXCEL对象，第33行刷新ACAD图形以显示自动绘制的图形。

下面的代码由用户在ACAD图形中选择对象并将对象部分属性写入EXCEL文档。 Sub WriteExcel() Dim ExcelApp As New Excel。

Application Dim ExcelWkbk As Excel。 Workbook Set ExcelWkbk = ExcelApp。

Workbooks。Add Dim sel As AcadSelectionSet Dim i As Integer i = 2 On Error Resume Next Set sel = ThisDrawing。

SelectionSets。Add("ssel") If Err Then Err。

Clear Set sel = ThisDrawing。SelectionSets。

Item("ssel") End If On Error GoTo 0 sel。 SelectOnScreen Dim Ent As AcadEntity Dim pt1 As Variant, pt2 As Variant MsgBox ExcelWkbk。

Name With ExcelWkbk。Worksheets("sheet1") For Each Ent In sel Select Case UCase(Ent。

ObjectName) Case "ACDBLINE": 。Range("A" & i) = "直线" pt1 = Ent。

StartPoint pt2 = Ent。EndPoint 。

Range("B" & i) = pt1(0) 。 Range("c" & i) = pt1(1) 。

Range("D" & i) = pt2(0) 。Range("E" & i) = pt2(1) i = i + 1 Case "ACDBCIRCLE": 。

Range("A" & i) = "圆" pt1 = Ent。 Center 。

Range("B" & i) = pt1(0) 。Range("C" & i) = pt1(1) 。

Range("D" & i) = Ent。Radius i = i + 1 Case Else: End Select Next Ent End With ExcelApp。

ActiveWorkbook。SaveAs "d:\book1。

xls" ExcelApp。Workbooks。

Close ExcelApp。Quit sel。

Delete End Sub。