[已解决]输入公式问题

不二周助

对于A1，B1，C1，运行宏时会先清空其内容，输入A1和B1，能根据公式得到C1，如C1=A1+B1，这要如何实现，直接在程序中对C1输入公式的话因为A1和B1在运行程序时已被清空，这时会提示出错，难道要设置触发事件吗，当A1和B1输入时再对C1输入公式？
求高手指教

最佳答案

月排行榜 / 总排行榜

fffox

2014-1-14 08:46

楼主所说的宏运行时先清空内容是其他宏还是这个宏？如果是其他宏，可以用工作表事件：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column > 2 Then Exit Sub
   
3.     If Target.Row <> 1 Then Exit Sub
   
4.     If Target.Column = 1 Then
   
5.         If Target <> "" And Target.Offset(0, 1) <> "" Then
   
6.             Target.Offset(0, 2) = Target + Target.Offset(0, 1)
   
7.         Else
   
8.             Target.Offset(0, 2) = ""
   
9.         End If
   
10.     Else
    
11.         If Target <> "" And Target.Offset(0, -1) <> "" Then
    
12.             Target.Offset(0, 1) = Target + Target.Offset(0, -1)
    
13.         Else
    
14.             Target.Offset(0, 1) = ""
    
15.         End If
    
16.     End If
    
17. End Sub

复制代码

跳转到最佳答案楼层

不信这样还重名

不太明白楼主想要达到的目的
可以试着先把A1,B1的值装入内存数组中，再在内存数组中求得C的值，完了输出到单元格中就可以了，这样子就算在宏中清空了单元格A1，B1中的值也不要紧，因为C1在内存数组中计算时使用的是存在内存数组中的值，而不再调用工作表中单元格的值，这也是为什么把数据存入数组比直接调用单元格更快速

不信这样还重名

期举例比如：
Sub test()
Dim arr
Dim c
    Range("a1") = 1
    Range("b1") = 2
    arr = Range("a1:b1")
    Range("a1") = 100
    Range("b1") = 200
    c = arr(1, 1) + arr(1, 2)
Range("c1") = c
End Sub
最后得到的C1中的值为3，而不是300

苗凱

先對A1 B1賦值才可以的 ，像 SUB  D()
dim a，b
a=10
b=20
range(A1).VALUE=10
range(b1）.value=20

range(c1).value="=a1+b1"
end  sub
不聲明也可以的

fffox

楼主所说的宏运行时先清空内容是其他宏还是这个宏？如果是其他宏，可以用工作表事件：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column > 2 Then Exit Sub
   
3.     If Target.Row <> 1 Then Exit Sub
   
4.     If Target.Column = 1 Then
   
5.         If Target <> "" And Target.Offset(0, 1) <> "" Then
   
6.             Target.Offset(0, 2) = Target + Target.Offset(0, 1)
   
7.         Else
   
8.             Target.Offset(0, 2) = ""
   
9.         End If
   
10.     Else
    
11.         If Target <> "" And Target.Offset(0, -1) <> "" Then
    
12.             Target.Offset(0, 1) = Target + Target.Offset(0, -1)
    
13.         Else
    
14.             Target.Offset(0, 1) = ""
    
15.         End If
    
16.     End If
    
17. End Sub

复制代码

mg0601001

不信这样还重名 发表于 2014-1-14 05:57
期举例比如：
Sub test()
Dim arr

你这段代码中如果将arr=range("a1:b1")这一句挪到c=arr(1,1）+arr(2,1) 之后就是C就等于300了。
在你把A1和b1赋值为1和2之后，加上arr=range("a1:b1")之后，arr的值已经定了，后面即使A1与B1 改变了赋值，arr也不会因为他们的改变而重新赋值的。
所以c的值就是3，而不是300.

不二周助

fffox 发表于 2014-1-14 08:46
楼主所说的宏运行时先清空内容是其他宏还是这个宏？如果是其他宏，可以用工作表事件：

如果清空内容和计算是在同一个宏内，而且希望当A1和B1输入的内容改变时C1会自动根据公式改变，这个有没有办法实现呢

不二周助

不信这样还重名 发表于 2014-1-14 05:57
期举例比如：
Sub test()
Dim arr

我不是这个意思，A1和B1的值是直接在工作表上录入的，而不是在程序中指定

fffox

不二周助 发表于 2014-1-14 10:07
我不是这个意思，A1和B1的值是直接在工作表上录入的，而不是在程序中指定

A1、B1的值是在工作表中录入的啊

fffox

不二周助 发表于 2014-1-14 10:06
如果清空内容和计算是在同一个宏内，而且希望当A1和B1输入的内容改变时C1会自动根据公式改变，这个有没有 ...

刚才看错了。
清空内容与计算貌似不能在同一个宏内。
change事件，当单元格内容发生变化时确发。当在相应单元格输入内容时确发change事件，若在代码开头加上清除单元格内容的语句，随即又触发change事件，导致程序出错。
换一种方法可能可以解决。