如何满足条件将多个计算公式相加显示在首行

xuankun2013 · 发表于 2022-6-26 08:00

本帖最后由 xuankun2013 于 2022-6-26 08:15 编辑

张小冬发表于 2022-6-26 07:54
不需要看懂，你只需要执行一下即可。
准提老师的代码不需要你自己去拉动公式了。更加方便，而且低版本也 ...

准提老师的宏我用了，是我要的效果，如果表格改动后，就实现不了了，因为我对宏不是很懂

xuankun2013 · 发表于 2022-6-26 08:03

本帖最后由 xuankun2013 于 2022-6-26 08:04 编辑

张小冬发表于 2022-6-26 07:54
不需要看懂，你只需要执行一下即可。
准提老师的代码不需要你自己去拉动公式了。更加方便，而且低版本也 ...

您好，现在是在将一行中，C、D、E列相乘后的计算公式显示在F列就行，如果C和D列也有计算公式，也需要显示出来，先不需要满足条件将所有的公式汇总到一起，现在只是和工人核对工程量用，等我看会了，在输入软件时，再用准提老师的宏

tchh666 · 发表于 2022-6-26 08:26

针对例题写的。。仅供参考

=IF(COUNTIF($A$2:A2,A2)=1,SUBSTITUTE("(("&TEXTJOIN(MID(")*()*"&OFFSET(E2,,,COUNTIF(A:A,A2))&")+((",{1,4},{3,9}),1,SUBSTITUTE(IF(ISFORMULA(OFFSET(C2,,,COUNTIF(A:A,A2),2)),FORMULATEXT(OFFSET(C2,,,COUNTIF(A:A,A2),2)),IF(OFFSET(C2,,,COUNTIF(A:A,A2),2)=""," ",OFFSET(C2,,,COUNTIF(A:A,A2),2))),"=",))&")*"&OFFSET(E2,COUNTIF(A:A,A2)-1,)&")","( )*",),"")

复制代码

xuankun2013 · 发表于 2022-6-26 09:03

本帖最后由 xuankun2013 于 2022-6-26 09:06 编辑

tchh666 发表于 2022-6-26 08:26
针对例题写的。。仅供参考

您好，G5单元格我用函数显示结果为((7.3)*2)+((51)*(2)*1)+((106)*(103)*2)，其实结果应该是（(2.5+0.3+0.75+3.5+0.25)*2）+（（45+6）*2*1）+（（25+36+45）*（22+69+12）*2）

tchh666 · 发表于 2022-6-26 09:12

xuankun2013 发表于 2022-6-26 09:03
您好，G5单元格我用函数显示结果为((7.3)*2)+((51)*(2)*1)+((106)*(103)*2)，其实结果应该是（(2.5+0.3+0 ...

你什么版本，我365正常

张小冬 · 发表于 2022-6-26 12:14

xuankun2013 发表于 2022-6-26 09:03
您好，G5单元格我用函数显示结果为((7.3)*2)+((51)*(2)*1)+((106)*(103)*2)，其实结果应该是（(2.5+0.3+0 ...

朋友，请完善你的个人版本信息！是什么版本的表格，以免老师们给你写公式你用不上

准提部林 · 发表于 2022-6-26 12:36

Function GetFormulaText(xRng As Range) As String
Dim A, X$, x1$
For Each A In xRng
x1 = A.Formula
If Left(x1, 1) = "=" Then x1 = "(" & Mid(x1, 2) & ")"
If x1 <> "" Then X = X & IIf(X = "", "", "*") & x1
x01: Next
GetFormulaText = X
End Function

公式:
=GetFormulaText(C2:E2) 下拉

xuankun2013 · 发表于 2022-6-26 18:39

本帖最后由 xuankun2013 于 2022-6-26 18:46 编辑

准提部林发表于 2022-6-26 12:36
Function GetFormulaText(xRng As Range) As String
Dim A, X$, x1$
For Each A In xRng

准提老师：如下表不用宏编程，用函数将C2、D2、E2列内容相乘后显示在F2列，C2、D2列单元格有时没有数值，有时是计算公式显示的数值，麻烦给用函数编写一下，谢谢

工程计算.rar (10.19 KB, 下载次数: 0)

		自动登录	找回密码
密码			免费注册

[求助] 如何满足条件将多个计算公式相加显示在首行