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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答完结子版 » [电脑知识]请教怎么用excel绘次数统计图呀
52/1返回列表
查看: 398  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xiaoke604

银虫 (小有名气)

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

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

» 猜你喜欢
1楼 2009-03-26 15:48:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoke604

银虫 (小有名气)
引用回帖:
Originally posted by kilikf at 2009-3-30 14:27:
用数据分析功能－－直方图，选中图表输出，就能得出各段的频率，然后再做分布图

我明白了，具体方法如下：
      1.打开原始数据表格，制作本实例的原始数据要求单列，确认数据的范围。本实例为化学成绩，故数据范围确定为0-100。

　　2.在右侧输入数据接受序列。所谓“数据接受序列”，就是分段统计的数据间隔，该区域包含一组可选的用来定义接收区域的边界值。这些值应当按升序排列。在本实例中，就是以多少分数段作为统计的单元。可采用拖动的方法生成，也可以按照需要自行设置。本实例采用10分一个分数统计单元。

　　3.选择“工具”-“数据分析”-“直方图”后，出现属性设置框，依次选择：
　　输入区域：原始数据区域;
　　接受区域：数据接受序列;
　　如果选择“输出区域”，则新对象直接插入当前表格中;
　　选中“柏拉图”，此复选框可在输出表中按降序来显示数据;
　　若选择“累计百分率”，则会在直方图上叠加累计频率曲线;

　　4.输入完毕后，则可立即生成相应的直方图，这张图还需要比较大的调整。
　　主要是：
　　横纵坐标的标题、柱型图的间隔以及各种数据的字体、字号等等。
　　为了达到柱型图之间无缝的紧密排列，需要将“数据系列格式”中的“选项”中“分类间距”调整为“0”。其余细节，请双击要调整的对象按照常规方法进行调整，这里不再赘述。
　　
赞一下 回复此楼
11楼2009-03-30 14:38:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

ann5674731

铜虫 (小有名气)
★
xiaoke604(金币+1,VIP+0):和柱型图有很大的差别 3-27 07:50
那不就是柱状图么？很直观的那种啊
赞一下(4人) 回复此楼
多学，多看，多记，多想，少说，少怨，少玩，少贱！多研究
2楼2009-03-26 15:53:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lwl8862002

铜虫 (初入文坛)

试一下吧

★ ★ ★ ★ ★
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   A11   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   D26   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的回帖

entomology557

铁杆木虫 (知名作家)
把表情去掉啊，不然根本没法看。。。。。excel的柱形图不行吗？
赞一下 回复此楼
生物进化基本常识：一定范围内，选择压力越大，要么进化的越快来适应这种压力，或者直接被淘汰。
4楼2009-03-28 12:35:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭