自动出计算式结果小程序(代码只有几行，求优化一下，还有点小问题在23楼)

mp3_2004

经过两位好心人的帮忙，我综合了一下，得出23楼的代码，但是仍然有点小问题，还请继续帮忙看一下。

mp3_2004

其实也是worksheet_change 函数啊，请高手出来帮一下忙，总共才只有几行代码。

chenbiao2012

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 7 And Target.Value = "" Then Exit Sub
   
3.     Target.Offset(0, -1) = "=A"
   
4.     'Columns(6).AutoFit 'F列自动适合列宽
   
5. End Sub

复制代码

mp3_2004

chenbiao2012 发表于 2015-3-6 21:17

这个不行哦，错误提示框还在，另外左侧6列全是结果，实际上不可能这样的，实际工程人员的表格只有一列是计算式，一列是计算式的结果

zax010

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 Then
        If Target <> "" Then
            Target.Offset(0, -1) = "=A"
        Else
            Target.Offset(0, -1) = ""
        End If
    End If
End Sub

zax010

>>>>>>>>>>>>>>>>

自动出计算式结果.rar (9.3 KB, 下载次数: 24)

2015-3-6 22:22 上传

点击文件名下载附件

mp3_2004

zax010 发表于 2015-3-6 22:22
>>>>>>>>>>>>>>>>

谢谢您周末还抽空帮忙啊，如果一次输一个单元格是没有问题了，删除一个单元格也没有问题，但是同时删除G列的两个单元格的时候，还是会出现那个错误，是否此函数只能一次执行一个单元格？还有别的办法吗？

另外请问高手，能否将定义名称A用代码替代呢？

chenbiao2012

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 7 Then Exit Sub
   
3.     Target.Offset(0, -1) = "=" & Target.Value
   
4.     If Target.Value = "" Then Target.Offset(0, -1) = ""
   
5.     'Columns(6).AutoFit 'F列自动适合列宽
   
6. End Sub

复制代码

chenbiao2012

没有明白你的第二个意思

mp3_2004

chenbiao2012 发表于 2015-3-6 22:49
没有明白你的第二个意思

哦，A是我定义的一个名称，我是想能否用代码替代呢？