有没有高手知道怎样用vba在excel中计算定积分?多谢多谢!请提供vba代码

上上酒吧李超 2024-06-04 15:38:52
最佳回答
sub 求定积分() on error resume next dim n1 as integer, n as integer, i as integer dim s as string dim c1 as double, c2 as double, c3 as double if activesheet.usedrange.rows.count < 2 then cells(1, 1) = "积分式" cells(1, 2) = "下限" cells(1, 3) = "上限" cells(1, 4) = "计算结果" s = msgbox("请从第二行开始,每一行可计算一个积分," & chr(13) & "第一列输入积分式,积分变量只能用x," & chr(13) & "并且要按照excel公式的要求输入", , "提示信息") end if n = activesheet.usedrange.rows.count columns(5).hidden = true for n1 = 2 to activesheet.usedrange.rows.count s = cells(n1, 1) c1 = cells(n1, 2) '积分下限 c2 = cells(n1, 3) '积分上限 if s = "" or c1 = 0 and c2 = 0 then goto w1 s = ucase(s) '小写变大写 n = instr(s, "x") do while n > 0 s = left(s, n) & " " & mid(s, n + 1) mid(s, n) = "e2" n = instr(s, "x") loop cells(n1, 4) = "=" & s n = 2000 '小于32767,n值越大,结果越精确 c3 = (c2 - c1) / n cells(n1, 5) = c1 c2 = cells(n1, 4) / 2 for i = 1 to n cells(n1, 5) = i * c3 + c1 c2 = c2 + cells(n1, 4) next i cells(n1, 4) = (c2 - cells(n1, 4) / 2) * c3w1: beep next n1end sub程序已调试通过,如有问题请联系这问题我已经回答过别人了,你怎么没查一下呢? 20210311
汇率兑换计算器

类似问答
  • 中鼎牧业股票代码?有谁知道,谢谢
    • 2024-06-04 00:01:04
    • 提问者: 未知
    还没有在二级市场流通,查不到代码(还没有上市)
  • vba代码0005:vba代码选择整行整列
    • 2024-06-04 11:59:19
    • 提问者: 未知
    1进入excel,alt+f11进入vba编辑器。2在编辑区输入vba语言sub macro1() vba 语言选择整行整列的语句end sub32步骤中的单元格选中语句可以是下面的任何语句rows("13:13").selectcolumns("g:g").selectrows(1).selectcolumns(1).selectrange(&quo...
  • vba代码0007:vba实现单元格公式输入和向下填充
    • 2024-06-04 09:13:49
    • 提问者: 未知
    1进入excel,输入原始数据。2同时按下alt+f11,进入vba编辑器。3在编辑区输入vba语言sub 输入公式向下填充() vba 语言输入公式并向下填充的语句end sub43步骤中输入公式和向下填充的语句sub 输入公式并向下填充() range("c2") = "=a2*b2" range("c2:c15&qu...
  • 请编写如下要求vba代码?
    • 2024-06-04 07:49:36
    • 提问者: 未知
    sub s() arr=application.inputbox("输入范围:",8) n=ubound(arr) k=ubound(arr,2) set rg=application.inputbox("输入间隔:",8) for each c in rg for i=1 to k c.offset(0,i)=arr(n-c,i) next next end sub
  • 什么是vba?如何编写和运行vba代码?
    • 2024-06-04 21:37:57
    • 提问者: 未知
    1进入vbe窗口常用方式有以下几种。第1种方式是快捷键<alt+f11>。 第2种方式是右键单击任意工作表标签,在弹出的快捷菜单中选中【查看代码】命令。2第3种方式是在【开发工具】选项卡中进行操作。 ……我们知道excel有功能区,功能区内有选项卡,每个选项卡对应不同的功能分类。比如【开始】选项卡集中了用户最常使用的功能;【插入】选项卡集中了透视表、图形和图表等功能;【页面布局】是打印...
  • 帮我改一下这段vba代码
    • 2024-06-04 15:18:04
    • 提问者: 未知
    sub 检索a列中重复地籍号() range("c1:c65536").clearcontents range("c1")="检索a列中重复地籍号 for r=2 to range("a65536").end(xlup).row cf=application.worksheetfunction.countif(columns(1),cells(r,1)) if cf>1 then cells...
  • 在金融领域vba能否替代stata,r,matlab?
    • 2024-06-04 13:51:13
    • 提问者: 未知
    本人金融在读研究生,最近在做一些数据处理。 从小就用excel,太习惯了,vba现在刚刚接触,也感觉用起来很顺手,以后还有必要学stata,r,matl…
  • excel vba财务实用案例
    • 2024-06-04 22:39:49
    • 提问者: 未知
    你好,南京领航人才可以提供excel内训服务,具体如下:韩小良教授,exce专家级导师,对excel及excel vba在企业管理中的应用造诣较深,精通excel及vba在管理中高级应用培训...
  • 帮忙算一个定积分,,,多谢
    • 2024-06-04 17:33:16
    • 提问者: 未知
    =∫(2,c+1) 1/(x-1)d(x-1)=ln(x-1)|(2,c+1)=lnc
  • 求vba高手,编写程序,可以有偿
    • 2024-06-04 23:28:44
    • 提问者: 未知
    1楼所述,vlookup就能搞定 如果强行要用vba的话,代码也不会很多的 翻译按钮 'a列一番下 dim maxline as long maxline=cells(rows.count,1).end(xlup).row '検索缲り返し dim i as long for i=3 to maxline if trim(cells(i,1))<>""and trim(cells(i,3...
汇率兑换计算器

热门推荐
热门问答
最新问答
推荐问答
新手帮助
常见问题
房贷计算器-九子财经 | 备案号: 桂ICP备19010581号-1 商务联系 企鹅:2790-680461

特别声明:本网为公益网站,人人都可发布,所有内容为会员自行上传发布",本站不承担任何法律责任,如内容有该作者著作权或违规内容,请联系我们清空删除。