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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 批量提取excel中图表趋势线的公式中的斜率
41/1返回列表
查看: 2068  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

灰豆儿90

金虫 (正式写手)

[求助] 批量提取excel中图表趋势线的公式中的斜率 已有1人参与

表单1里面有20张左右的散点图，每个图都添加了趋势线，显示公式和R2。。。现在需要提取斜率，把所有的斜率排成一列，方便复制进行下一步操作。。。请虫友们帮忙
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 图表方程的斜率提取.xls
    • 2014-12-27 17:56:06, 478 K

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-12-27 17:56:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
我所知道的方法：
第一种直接用excel vba 弄个程序，没有一个小时搞不定；
第二种用origin 中batch processing，可以批量处理，但是没有基础和1个小时也不好做，还需要先弄成耽搁文件。
--------------
若是楼主没有更多的数据需要统一处理的话。直接手动来做，把那个图形框中的全部复制出来，贴到一个地方，批量整理下（以等号和+-号为界分隔），只需要30分钟。
赞一下(1人) 回复此楼
2楼2014-12-28 09:47:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

解决办法
将以前的数据复制到一个新的xls中，并保存，贴在shee1t中，这样就去除了以前的chart图。在sheet1中，运行下面的vba 宏 就可以了。主要是调用LinEst函数得出拟合的参数。

Sub 保存结果()
'''''删除空的、不需要计算的列
Dim clu1, i, j As Integer
Dim rowzong As Integer
For j = 1 To 3
For i = 1 To 100 / j
If Cells(1, i).Value = "" Then ''''判断该列的第一个单元格无数据，则删除该列
Cells(1, i).EntireColumn.Delete
End If
Next i
Next j

''''''计算斜率存储到sheet2中
For i = 1 To 20 Step 1 ''''i为列数
''''计算有效行数存储到j中
j =Worksheets("sheet1".Range(Chr(64 + i) & "65535".End(xlUp).Row
If Worksheets("sheet1".Range(Chr(64 + i) & "1" <> "" Then
'''必须有sheet2，让结果保存在sheet2中的B列，A列说明是那一列计算的结果。
      Worksheets("sheet2".Range("A" & Int(i) + 1) = Chr(64 + i) & "列"
      Worksheets("sheet2".Range("B" & Int(i) + 1) = Application.WorksheetFunction.Index
(Application.WorksheetFunction.LinEst(Worksheets("sheet1".Range(Chr(64 + i) & "1:" & Chr(64 + i) & j), ,
True, False), 1)
End If
Next i
End Sub
赞一下 回复此楼
3楼2014-12-29 19:47:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

那个笑脸替换为 “）”--回括号。
赞一下 回复此楼
4楼2014-12-29 19:49:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 灰豆儿90 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料与化工304求B区调剂 +6 邱gl 2026-03-11 7/350 2026-03-17 01:27 by 学员FnSWZj
[考研] [复试调剂]西南科技大学国防/材料导师推荐 +3 尖角小荷 2026-03-16 6/300 2026-03-16 23:21 by 尖角小荷
[考研] 321求调剂 +5 大米饭！ 2026-03-15 5/250 2026-03-16 16:33 by houyaoxu
[考研] 0703化学调剂，求各位老师收留 +8 秋有木北 2026-03-14 8/400 2026-03-16 15:21 by 哦哦123
[考研] 一志愿华中师范071000，325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 308求调剂 +3 是Lupa啊 2026-03-16 3/150 2026-03-16 10:07 by 求调剂zz
[考研] 327求调剂 +6 拾光任染 2026-03-15 11/550 2026-03-15 22:47 by 拾光任染
[考研] 274求调剂 +4 时间点 2026-03-13 4/200 2026-03-15 15:29 by Rambo13
[考研] 招收0805（材料）调剂 +3 18595523086 2026-03-13 3/150 2026-03-14 00:33 by 123%、
[考研] 318求调剂 +3 李新光 2026-03-10 3/150 2026-03-14 00:21 by JourneyLucky
[考研] 复试调剂 +9 Copy267 2026-03-10 9/450 2026-03-13 23:45 by userper
[考研] 0805，333求调剂 +3 112253525 2026-03-10 3/150 2026-03-13 23:42 by JourneyLucky
[考研] 材料与化工求调剂一志愿 985 总分 295 +8 dream…… 2026-03-12 8/400 2026-03-13 22:17 by 星空星月
[考研] 【考研调剂求收留】 +3 Ceciilia 2026-03-11 3/150 2026-03-13 20:18 by JourneyLucky
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 0856化学工程280分求调剂 +4 shenzxsn 2026-03-11 4/200 2026-03-13 11:55 by ymwdoctor
[考研] 274求调剂0856材料化工 +12 z2839474511 2026-03-11 13/650 2026-03-13 10:39 by peike
[基金申请] 提交后的基金本子，已让学校撤回了，可否换口子提交 +3 dut_pfx 2026-03-10 3/150 2026-03-11 08:38 by kudofaye
[考研] 哈工大材料324求调剂 +6 闫旭东 2026-03-10 8/400 2026-03-10 22:49 by 星空星月
[考研] 298求调剂 +3 Vv呀！ 2026-03-10 3/150 2026-03-10 22:40 by 剑诗杜康
信息提示
关闭
请填处理意见
关闭