VBA以公式运算后，能只显示计算的结果吗？

13724841877

公式为=-SUMIFS(差异及状态判断!D:D,差异及状态判断!A:A,B2,差异及状态判断!F:F,"上月领料")

因为还有各种不同的公式，部分我可以使用录制宏只记录下来，但问题会将公式也复制过来，上万条记录就会卡了，能否将这种公式变成只显示结果呢？

wzsy2_mrf

放弃公式，直接用vba代码求结果。

13724841877

wzsy2_mrf 发表于 2016-11-16 14:55
放弃公式，直接用vba代码求结果。

保守估计有7列以上需要这个求结果，全VBA代码有点吃不消了。有点难。

wzsy2_mrf

1. Sub test()
   
2.     Dim r%, j&, arr, brr, d, mkey, xm$, tj$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With Worksheets("差异及状态判断")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:f" & r)
   
7.     End With
   
8.     tj = "上月领料"
   
9.     For j = 1 To UBound(arr)
   
10.         xm = arr(j, 1) & "+" & arr(j, 6)
    
11.         d(xm) = -d(xm) - arr(j, 4)
    
12.     Next
    
13.     j = 0
    
14.     ReDim brr(1 To d.Count, 1 To 2)
    
15.     For Each mkey In d.keys
    
16.         If Split(mkey, "+")(1) = tj Then
    
17.             j = j + 1
    
18.             brr(j, 1) = Split(mkey, "+")(0)
    
19.             brr(j, 2) = d(mkey)
    
20.         End If
    
21.     Next
    
22.     With Sheet2
    
23.         .Range("b2").Resize(1000).Clear
    
24.         .Range("b2").Resize(j) = Application.Index(brr, 0, 1)
    
25.         .Range("h2").Resize(1000).Clear
    
26.         .Range("h2").Resize(j) = Application.Index(brr, 0, 2)
    
27.     End With
    
28.     Erase arr, brr: Set d = Nothing
    
29. End Sub
    

复制代码

wzsy2_mrf

13724841877 发表于 2016-11-16 15:15
保守估计有7列以上需要这个求结果，全VBA代码有点吃不消了。有点难。

全用vba才省事，因为vba是一次计算的，不象公式随时都在计算，而且vba在设计过程中可以优化。

hhjjpp

13724841877 发表于 2016-11-16 15:15
保守估计有7列以上需要这个求结果，全VBA代码有点吃不消了。有点难。

用公式的思维打量vba，当然就会有这种结论了！

13724841877

wzsy2_mrf 发表于 2016-11-16 15:16

.Range("b2").Resize(1000).Clear
.Range("b2").Resize(j) = Application.Index(brr, 0, 1)

不知是不是这段语句，还是什么情况，"sheet2"的B列也跟住更新了，原本打算B列是完全照搬“差异及状态判断”的A列过来的。

13724841877

13724841877 发表于 2016-11-16 15:54
.Range("b2").Resize(1000).Clear
.Range("b2").Resize(j) = Application.Index(brr, 0, 1)

我按你的VBA代码，写上表中，另外也将问题写上去了，能帮手解决下吗？

老师，能否帮我调整一下代码，像J列那样的公式效果的显示呢？
1.差异及状态判断表中或非上月领料的均显示为0
2.本表的B列为主要条件列，该列数据不受VBA变化

takf

学习了，

takf

wzsy2_mrf 发表于 2016-11-16 15:16

我这个也想只输出结果，不想输出公式
Private Sub 操作信息_Click()
    Range("AA7").Select
    Selection.Formula = "=IF(AG7="""","""",u7)"
    Range("AB7").Select
    Selection.Formula = "=IF(AG7="""","""",--w7)"
    Range("AC7").Select
    Selection.Formula = "=IF(AG7="""","""",d7)"
    Range("AG7").Select
    Selection.Formula = "=IF(c7="""","""",c7)"
    Range("AA7:Ag7").Select
    Selection.AutoFill Destination:=Range("AA7:Ag1000"), Type:=xlFillDefault
    Range("AA7:Ag1000").Select
        Range("AB7:AB1000").Select '指定范围的格式
        Selection.NumberFormatLocal = "hh:mm:ss;@"
        Range("Ag7:Ag1000").Interior.Color = RGB(169, 208, 142)  '填充为浅绿色
End Sub