| 查看: 415 | 回复: 10 | |||
| 当前主题已经存档。 | |||
xiaoke604银虫 (小有名气)
|
[交流]
[电脑知识]请教怎么用excel绘次数统计图呀
|
||
| 请教各高手一下怎么使用excel绘次数统计图，具体情况是：有三个不同肥料处理的水稻株高，每个处理149个样本，需要做一下可以表示出从60cm到70cm多少个，70cm到80cm多少个等等的图。 |
回复此楼» 猜你喜欢
311求调剂
已经有6人回复
-
高分子化学与物理调剂
已经有4人回复
-
化工专硕348，一志愿985求调剂
已经有5人回复
-
博士自荐
已经有3人回复
-
求环氧树脂研发1名
已经有11人回复
-
博士推荐
已经有5人回复
-
0856材料求调剂
已经有9人回复
-
285求调剂
已经有3人回复
-
265分求调剂不调专业和学校有行学上就
已经有6人回复
-
312求调剂
已经有5人回复
ann5674731
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 166.1
- 帖子: 264
- 在线: 59分钟
- 虫号: 540746
- 注册: 2008-04-06
- 性别: GG
- 专业: 细胞、亚细胞结构与功能
2楼2009-03-26 15:53:24
试一下吧
★ ★ ★ ★ ★
xiaoke604(金币+5,VIP+0):谢谢，我先试一下！ 3-27 07:52
xiaoke604(金币+5,VIP+0):谢谢，我先试一下！ 3-27 07:52
|
安装office2003后在你的机器 C:\Program Files\Microsoft Office\Office\2052\MSOWCVBA.CHM Function CreateNamesArray() ' Create an array to set multiple values at once. Dim saNames(5, 2) saNames(0, 0) = "John" saNames(0, 1) = "Smith" saNames(1, 0) = "Tom" saNames(1, 1) = "Brown" saNames(2, 0) = "Sue" saNames(2, 1) = "Thomas" saNames(3, 0) = "Jane" saNames(3, 1) = "Jones" saNames(4, 0) = "Adam" saNames(4, 1) = "Johnson" CreateNamesArray = saNames End Function function AutomateExcel() { // Start Excel and get Application object. var oXL = new ActiveXObject("Excel.Application"  ; oXL.Visible = true; // Get a new workbook. var oWB = oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; // Add table headers going cell by cell. oSheet.Cells(1, 1).Value = "First Name"; oSheet.Cells(1, 2).Value = "Last Name"; oSheet.Cells(1, 3).Value = "Full Name"; oSheet.Cells(1, 4).Value = "Salary"; // Format A1  1 as bold, vertical alignment = center. oSheet.Range("A1", "D1" .Font.Bold = true; oSheet.Range("A1", "D1" .VerticalAlignment = -4108; //xlVAlignCenter // Create an array to set multiple values at once. // Fill A2:B6 with an array of values (from VBScript). oSheet.Range("A2", "B6" .Value = CreateNamesArray(); // Fill C2:C6 with a relative formula (=A2 & " " & B2). var oRng = oSheet.Range("C2", "C6" ; oRng.Formula = "=A2 & \" \" & B2"; // Fill D2 6 with a formula(=RAND()*100000) and apply format. oRng = oSheet.Range("D2", "D6" ; oRng.Formula = "=RAND()*100000"; oRng.NumberFormat = "$0.00"; // AutoFit columns A . oRng = oSheet.Range("A1", "D1" ; oRng.EntireColumn.AutoFit(); // Manipulate a variable number of columns for Quarterly Sales Data. DispalyQuarterlySales(oSheet); // Make sure Excel is visible and give the user control // of Excel's lifetime. oXL.Visible = true; oXL.UserControl = true; } function DispalyQuarterlySales(oWS) { var iNumQtrs, sMsg, iRet; // Number of quarters to display data for. iNumQtrs = 4; // Starting at E1, fill headers for the number of columns selected. var oResizeRange = oWS.Range("E1", "E1" .Resize(1,iNumQtrs); oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\""; // Change the Orientation and WrapText properties for the headers. oResizeRange.Orientation = 38; oResizeRange.WrapText = true; // Fill the interior color of the headers. oResizeRange.Interior.ColorIndex = 36; // Fill the columns with a formula and apply a number format. oResizeRange = oWS.Range("E2", "E6" .Resize(5,iNumQtrs); oResizeRange.Formula = "=RAND()*100"; oResizeRange.NumberFormat = "$0.00"; // Apply borders to the Sales data and headers. oResizeRange = oWS.Range("E1", "E6" .Resize(6,iNumQtrs); oResizeRange.Borders.Weight = 2; // xlThin // Add a Totals formula for the sales data and apply a border. oResizeRange = oWS.Range("E8", "E8" .Resize(1,iNumQtrs); oResizeRange.Formula = "=SUM(E2:E6)"; // 9 = xlEdgeBottom oResizeRange.Borders(9).LineStyle = -4119; //xlDouble oResizeRange.Borders(9).Weight = 4; //xlThick // Add a Chart for the selected data. oResizeRange = oWS.Range("E2:E6" .Resize(5,iNumQtrs); var oChart = oWS.Parent.Charts.Add(); oChart.ChartWizard(oResizeRange, -4100, null, 2); // -4100 = xl3dColumn oChart.SeriesCollection(1).XValues = oWS.Range("A2", "A6" ; for (iRet = 1; iRet <= iNumQtrs; iRet++) { oChart.SeriesCollection(iRet).Name = "=\"Q" + iRet + "\""; } oChart.Location(2, oWS.Name); // 2 = xlLocationAsObject // Move the chart so as not to cover your data. oWS.Shapes("Chart 1" .Top = oWS.Rows(10).Top; oWS.Shapes("Chart 1" .Left = oWS.Columns(2).Left; } |
3楼2009-03-26 16:20:55
entomology557
铁杆木虫 (知名作家)
- 博学EPI: 10
- 应助: 5 (幼儿园)
- 金币: 9250.2
- 散金: 359
- 红花: 9
- 帖子: 5382
- 在线: 289.7小时
- 虫号: 482767
- 注册: 2007-12-26
- 性别: GG
- 专业: 植物病理学
4楼2009-03-28 12:35:55
xiaoke604
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 455.8
- 帖子: 131
- 在线: 7.1小时
- 虫号: 313615
- 注册: 2007-02-24
- 性别: GG
- 专业: 作物栽培与耕作学
5楼2009-03-29 14:01:35
6楼2009-03-29 16:34:38
xiaoke604
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 455.8
- 帖子: 131
- 在线: 7.1小时
- 虫号: 313615
- 注册: 2007-02-24
- 性别: GG
- 专业: 作物栽培与耕作学
7楼2009-03-29 20:15:42
piaolingzy
铜虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 156.5
- 帖子: 7
- 在线: 11分钟
- 虫号: 720412
- 注册: 2009-03-11
- 性别: MM
- 专业: 资源环境与城乡规划管理
8楼2009-03-29 21:18:28
xiaoke604
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 455.8
- 帖子: 131
- 在线: 7.1小时
- 虫号: 313615
- 注册: 2007-02-24
- 性别: GG
- 专业: 作物栽培与耕作学
9楼2009-03-30 14:16:09
10楼2009-03-30 14:27:51
