求助：用VBA代码批量将公式中引用的值计算过程呈现出来

Fc1984

大神们好，我是做工程资料收方的，因为编辑的公式和函数只能看到计算的结果，不能看到计算的过程，请问大神们，有谁知道怎么让一个函数里面的所有引用只呈现单元格的值，能显示出计算过程。

Fc1984

求斑竹大人别再删我帖子了好吗？

wdx223

1. Sub test()
   
2. Dim data, i&, ms, m
   
3. 
   
4. data = Worksheets("Sheet1").[G3:G32].Formula
   
5. 
   
6. With CreateObject("VBScript.RegExp")
   
7.     .Global = True
   
8.     .Pattern = "('.+'!|\w+!)?\$?[A-Z]{1,3}\$?\d+"
   
9.     For i = 1 To UBound(data)
   
10.         Set ms = .Execute(data(i, 1))
    
11.         If ms.Count > 0 Then
    
12.             For Each m In ms
    
13.                 data(i, 1) = Replace(data(i, 1), m, Range(m) + 0)
    
14.             Next m
    
15.         End If
    
16.     Next i
    
17. End With
    
18. Worksheets("Sheet1").[H3:H32] = data
    
19. End Sub
    

复制代码

Fc1984

wdx223 发表于 2018-8-23 12:22

谢谢老师，可以了

Fc1984

wdx223 发表于 2018-8-23 12:22

怎么感谢您！~老师

Fc1984

wdx223 发表于 2018-8-23 12:22

老师，想谢谢您，怎么感谢您呢

wdx223

Fc1984 发表于 2018-8-23 12:39
老师，想谢谢您，怎么感谢您呢

不用客气哈

Fc1984

wdx223 发表于 2018-8-23 12:45
不用客气哈

老师，我把代码应用到其他工作表里面，代码里面的4个单元格范围都改了的，为什么执行时显示“下标越界”，请指教

Fc1984

Fc1984 发表于 2018-8-23 13:29
老师，我把代码应用到其他工作表里面，代码里面的4个单元格范围都改了的，为什么执行时显示“下标越界” ...

Private Sub CommandButton1_Click()
Dim data, i&, ms, m

data = Worksheets("Sheet1").[w3:w14].Formula

With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "('.+'!|\w+!)?\$?[A-Z]{1,3}\$?\d+"
    For i = 1 To UBound(data)
        Set ms = .Execute(data(i, 1))
        If ms.Count > 0 Then
            For Each m In ms
                data(i, 1) = Replace(data(i, 1), m, Range(m) + 0)
            Next m
        End If
    Next i
End With
Worksheets("Sheet1").[x3:x14] = data

End Sub

wdx223

执行代码的工作名称是“sheet1”吗？