| 查看: 499 | 回复: 10 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
xiaoke604银虫 (小有名气)
|
[交流]
[电脑知识]请教怎么用excel绘次数统计图呀
|
||
| 请教各高手一下怎么使用excel绘次数统计图，具体情况是：有三个不同肥料处理的水稻株高，每个处理149个样本，需要做一下可以表示出从60cm到70cm多少个，70cm到80cm多少个等等的图。 |
回复此楼» 猜你喜欢
面上没中，邀请各位路过的虫友分析一下分数
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有11人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有6人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有8人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
10楼2009-03-30 14:27:51
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 (幼儿园)
- 金币: 9032.2
- 散金: 389
- 红花: 9
- 帖子: 5384
- 在线: 290.4小时
- 虫号: 482767
- 注册: 2007-12-26
- 性别: GG
- 专业: 植物病理学
4楼2009-03-28 12:35:55
20