你好高人,请教下EXCEL用VBA可以实现列出:不同数值相加减能=某个数的公式吗?是否能列出这些公式呢?谢谢
展开全部
'在页代码中输入以下代码。
'则在所在页非A1单元格内输入公式,A1单元格即可得出你的公式及结果。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_exit
If Target.Count > 1 Then Exit Sub
Dim c As Range
Set c = Range("A1") '可以调整输出的单元格
If Target.Address = c.Address Then Exit Sub
If Len(Target) = 0 Then Exit Sub
t = Target
c.Formula = "=" & Target
c = t & "=" & c
Set c = Nothing
Exit Sub
err_exit:
c = "formula error,!"
Set c = Nothing
End Sub
'则在所在页非A1单元格内输入公式,A1单元格即可得出你的公式及结果。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_exit
If Target.Count > 1 Then Exit Sub
Dim c As Range
Set c = Range("A1") '可以调整输出的单元格
If Target.Address = c.Address Then Exit Sub
If Len(Target) = 0 Then Exit Sub
t = Target
c.Formula = "=" & Target
c = t & "=" & c
Set c = Nothing
Exit Sub
err_exit:
c = "formula error,!"
Set c = Nothing
End Sub
追问
谢谢您!但这不是我想要的,您帮看下这个例如:A到G为:2, 5,7,3,6,3,8 H为5,能求出不等于5的公式吗?可能很麻烦
追答
什么是“不等于5的公式”,呢?你是不是说在一堆数里面两两相加、或两两相减等于某个数的数学算式,呢?如果是,你可以用两个循环,逐一比较,符合条件便输出即可!
展开全部
可以的,需求请说得具体点。
如果是单元格显示 公式
="sum(A"&列变量 &":B"& 列变量 &")"
如果是单元格显示 公式
="sum(A"&列变量 &":B"& 列变量 &")"
追问
谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
最好给个样表的电子文档,把要求和举例都写在里面,QQ372149666发给我看能不能帮你解决。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询