版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (337)
>考博 (317)
>导师招生 (245)
>招聘信息布告栏 (174)
>虫友互识 (160)
>物理 (140)
>休闲灌水 (125)
>海外博后 (30)
>基金申请 (11)
>博后之家 (10)
>留学生活 (10)
>生物材料 (10)
>留学DIY (8)
>教师之家 (2)
>硕博家园 (2)
>论文投稿 (2)

返回列表

当前主题已经存档。

xiaoke604

银虫 (小有名气)

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

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

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

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有5人回复
2027博士申请-临床检验诊断学、病原生物学、微生物方向已经有5人回复
【长期招聘】复旦大学 AI 制药实验室博士后招聘已经有10人回复
各位基础老师们，看完中央《从严治党》的决定后，对学术界更加有信心了吧已经有4人回复
越来越担心硕士毕业后没有竞争力了已经有15人回复
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请已经有3人回复

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

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

ann5674731

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 166.1
帖子: 264
在线: 59分钟
虫号: 540746
注册: 2008-04-06
性别: GG
专业: 细胞、亚细胞结构与功能

★
xiaoke604(金币+1,VIP+0):和柱型图有很大的差别 3-27 07:50

那不就是柱状图么？很直观的那种啊

赞一下(4人)

回复此楼

多学，多看，多记，多想，少说，少怨，少玩，少贱！多研究

2楼2009-03-26 15:53:24

已阅回复此楼关注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;
  }

赞一下(4人)

回复此楼

扫地只不过是我地表面工作我真正地身份是一位研究僧理想很丰满现实却很骨感

3楼2009-03-26 16:20:55

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