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

24小时热门版块排行榜    

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

xiaoke604

银虫 (小有名气)

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

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

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

xiaoke604

银虫 (小有名气)
不行的

[ Last edited by xiaoke604 on 2009-3-30 at 14:39 ]
回复此楼
7楼2009-03-29 20:15:42
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭