Excel 技巧网 | Excel 专家栖息谷 | 微软中文技术社区合作伙伴
设为首页收藏本站社区帮助|繁體中文 Office免费培训中心微信

Excel 技巧网

 找回密码
 轻松注册

QQ登录

只需一步,快速开始

搜索
查看: 2827|回复: 3

[Excel VBA] 如何用VBA返回趋势线的方程及R平方值?

[复制分享链接][作者版权链接]
发表于 2010-6-2 19:16:33 | 显示全部楼层 |阅读模式
  • 署名作者: biaotiger1
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品: 部分引用rongjun版主的代码
  • 适用版本: 2010 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 本社区原创畅销书
    当当网   |   京东网
    亚马逊   |   苏宁网
    包罗上千疑难问题
    从零基础开始学习
    总销售量20多万册
    全网热卖好评如潮

    免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

    您需要 登录 才可以下载或查看,没有帐号?轻松注册

    x
    本帖最后由 biaotiger1 于 2010-6-2 21:01 编辑

    Q:如何用VBA返回趋势线的方程及R平方值?
    A:ALT+F11→“插入”→“模块”,在代码窗口中输入代码如下
    1. Public Sub 获取趋势线方程及R平方值()
    2. Dim myType, myEqu, myRS, Str
    3. On Error Resume Next
    4. With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1)
    5.     .DisplayRSquared = True
    6.     .DisplayEquation = True
    7.     .DataLabel.Select
    8.     Str = Selection.Text
    9.     'Str = .DataLabel.Text
    10.     myEqu = Split(Str, Chr(10))(0)
    11.     myRS = Split(Str, Chr(10))(1)
    12.     .DisplayRSquared = False
    13.     .DisplayEquation = False
    14.     MsgBox "趋势线的方程为: " & myEqu & vbCrLf & "趋势线的R-平方值为: " & myRS
    15. End With
    16. End Sub
    复制代码
    运行以上代码,则弹出对话框显示趋势线的方程及R平方值

    获取趋势线方程及r平方值.rar

    16.36 KB, 下载次数: 16, 下载积分: 消费券 -5 Ti币

    如何用VBA返回趋势线的方程及R平方值?

    学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
    发表于 2010-6-2 19:53:45 | 显示全部楼层
    好像要加下面的代码,要不然会返回空值

    如何用VBA返回趋势线的方程及R平方值?

    如何用VBA返回趋势线的方程及R平方值?

    1. .DataLabel.Select
    2. Str = Selection.Text
    复制代码

    评分

    参与人数 1魅力值 +2 收起 理由
    biaotiger1 + 2 我又修改了下,请荣版测试

    查看全部评分

    学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
    回复 支持 反对

    使用道具 举报

     楼主| 发表于 2010-6-2 20:41:05 | 显示全部楼层
    本社区原创畅销书
    当当网   |   京东网
    亚马逊   |   苏宁网
    包罗上千疑难问题
    从零基础开始学习
    总销售量20多万册
    全网热卖好评如潮
    刚才试验N次,有几次返回显示不完整的对话框
    再试N次,竟然全部通过

    我分别设置如下两种属性为true、false试验的
       .DisplayRSquared = True
       .DisplayEquation = True
    学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
    回复 支持 反对

    使用道具 举报

    发表于 2010-6-3 06:22:46 | 显示全部楼层
    我也来试试!
    学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 轻松注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
    本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
    若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
    会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
    本站特聘法律顾问:沈学律师

    手机版|Archiver|触屏版| Excel技巧网 ( 闽ICP备08107682号  

    GMT+8, 2014-4-16 21:05

    Powered by Discuz! X3.1

    © 2001-2013 Comsenz Inc.

    快速回复 返回顶部 返回列表