[已解决]求助一个简单的问题，单元格自动计算，老师帮我看看！！

twpgq8151

求助一个简单的问题，单元格自动计算，老师帮我看看！！ 新建 Microsoft Office Excel 工作表.zip (8.21 KB, 下载次数: 17)

2013-7-5 12:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-7-8 16:33

在ThisWorkbook下,加以下代码(没有附件)
注：利用数组赋值给单元格区域不会触发CHANGE事件的特性，可以不用Application.EnableEvents = False

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. If Target.Address <> ActiveSheet.[a1].Address Then Exit Sub
   
3. Dim arr
   
4. arr = [a1].Resize(, 2)
   
5. arr(1, 1) = Target + ActiveSheet.[d1]
   
6. ActiveSheet.[a1].Resize(, 2) = arr
   
7. End Sub

复制代码

跳转到最佳答案楼层

tianyanxing

我是小虾米，但是通过你的描述 好像变成一个死循环了，
除非你的结果放在另外一个表格

twpgq8151

tianyanxing 发表于 2013-7-5 12:38
我是小虾米，但是通过你的描述 好像变成一个死循环了，
除非你的结果放在另外一个表格

是的，我做的也是，只要鼠标一点就会自动算

w2001pf

你的要求别人难看懂的。

adders

在ThisWorkbook下,加以下代码(附件是03版测试文件)

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. If Target.Address <> "$A$1" Then Exit Sub
   
3. Application.EnableEvents = False
   
4.     If IsNumeric(Target.Offset(, 3)) And Target.Offset(, 3) <> 0 Then
   
5.         Target.Value = 10 * Target.Value / Target.Offset(, 3).Value
   
6.     End If
   
7. Application.EnableEvents = True
   
8. End Sub

复制代码

大灰狼1976

在ThisWorkbook下,加以下代码(没有附件)
注：利用数组赋值给单元格区域不会触发CHANGE事件的特性，可以不用Application.EnableEvents = False

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. If Target.Address <> ActiveSheet.[a1].Address Then Exit Sub
   
3. Dim arr
   
4. arr = [a1].Resize(, 2)
   
5. arr(1, 1) = Target + ActiveSheet.[d1]
   
6. ActiveSheet.[a1].Resize(, 2) = arr
   
7. End Sub

复制代码