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

mp3_2004

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

lifengnick

正好我在找的

mp3_2004

此程序已由群友帮助解决，感谢各位好心人了！

mp3_2004

下面代码如果在删除G1:G3区域时，能否不提示错误，同时自动把F1和F2清空

举个例子，如开挖土方F1由G1输入10000自动产生，回填土方F2由G2输入5000自动产生，多余土方外运F3直接是在自己的单元格输入的公式=F1－F2，此时如果右侧的几个单元格（G1:G3）一起删除，会提示错误。
             能否不提示错误，同时保留F3里面的公式的前提下，删除F1和F2。

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column <> 7 Then Exit Sub

    If Target.Offset(, -1).HasFormula Then Exit Sub

       If Target <> "" Then
            
           Target.Offset(0, -1) = Evaluate(Target.Value)
        
        ElseIf Target = "" Then
        
            Target.Offset(0, -1) = ""
        
        End If

End Sub

mp3_2004

两位高手，目前程序还是有点小瑕疵，还想再麻烦你们修改一下，达到最佳实际使用效果。

目的：当右侧输入数据时，左侧自动得结果，右侧修改数据时，左侧结果自动变，右侧数据删除时，左侧自动产生的结果也删除；当左侧已经有公式的时候，右侧不管是怎么操作都不影响左侧的公式；目前存在的问题是当右侧的几个单元格按了del键后，左侧的公式就丢失了。丢失后无法找回。有时候公式会很长，万一丢失，那真是后悔莫及！

举个例子，如开挖土方F1由G1输入10000自动产生，回填土方F2由G2输入5000自动产生，多余土方外运F3直接是在自己的单元格输入的公式=F1－F2，此时如果右侧的几个单元格（G1:G3）一起删除，F3处的公式就自动没了。

请两位高手再辛苦一下，帮我修改一下吧！因为实际中数据会随图纸变化经常修改！为什么非要用两列呢，因为要打印计算式让别人既能看到结果又能看到结果是怎么计算出来的！

chenbiao2012

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 7 Then Exit Sub
   
3.     If Target.Offset(, -1).HasFormula Then Exit Sub
   
4.     Target.Offset(, -1) = "=" & Target.Value
   
5. '    if len(target)=0 then target.Offset(,-1)=""
   
6. End Sub
   

复制代码

mp3_2004

chenbiao2012 发表于 2015-3-7 00:35

这个好像没法运行吧

mp3_2004

就是我想当G列输入非函数的时候，F列才是自动得结果，万一我F列是公式，我在G列输另外的处理F列的公式时，F列的公式会丢失。

chenbiao2012

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

复制代码

mp3_2004

chenbiao2012 发表于 2015-3-7 00:20
应该实现不了，会造成死循环

恩，要是会成死循环，就不想了，现在还有最后一个问题了，这样的情况下，我好像不能手动在G列输公式了，比如F列我手动输入=1+1,再在右侧输入我手动定义的=B都不行了。希望您有时间再来回答吧，已经很晚了，不打扰您休息了！再次感谢！