24小时热门版块排行榜

>论坛更新日志 (3263)
>虫友互识 (305)
>文献求助 (193)
>导师招生 (190)
>硕博家园 (100)
>公派出国 (88)
>考博 (84)
>找工作 (71)
>博后之家 (68)
>论文投稿 (66)
>基金申请 (62)
>论文道贺祈福 (60)
>考研 (60)
>休闲灌水 (59)
>教师之家 (51)
>招聘信息布告栏 (37)

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xiaoke604

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 455.8
帖子: 131
在线: 7.1小时
虫号: 313615
注册: 2007-02-24
性别: GG
专业: 作物栽培与耕作学

[交流] [电脑知识]请教怎么用excel绘次数统计图呀

请教各高手一下怎么使用excel绘次数统计图，具体情况是：有三个不同肥料处理的水稻株高，每个处理149个样本，需要做一下可以表示出从60cm到70cm多少个，70cm到80cm多少个等等的图。

回复此楼

» 猜你喜欢

基金委咋了？2026年的指南还没有出来？已经有5人回复
国自然申请面上模板最新2026版出了吗？已经有17人回复
纳米粒子粒径的测量已经有8人回复
疑惑？已经有5人回复
计算机、0854电子信息（085401-058412）调剂已经有5人回复
Materials Today Chemistry审稿周期已经有5人回复
溴的反应液脱色已经有7人回复
推荐一本书已经有12人回复
基金申报已经有4人回复
常年博士招收(双一流，工科) 已经有4人回复

1楼 2009-03-26 15:48:25

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lwl8862002

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 62
帖子: 44
在线: 3.2小时
虫号: 726173
注册: 2009-03-19
性别: GG
专业: 光学

试一下吧

★ ★ ★ ★ ★
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;
  }