这段代码 为何运行后没反应，求教

jstvic

Sub 求单个体积（）
   Dim A As Range
    Dim B As Range
    Dim C As Range
    Dim D As Range
   Dim x As Integer
    Set A = Sheets("仓储费").Rows(1).Find("单个体积", , , xlWhole)
    If A Is Nothing Then MsgBox "找不到 指定名称": Exit Sub
    Set B = Sheets("仓储费").Rows(1).Find("长", , , xlWhole)
    Set C = Sheets("仓储费").Rows(1).Find("宽", , , xlWhole)
    Set D = Sheets("仓储费").Rows(1).Find("高", , , xlWhole)
For x = 10000 To 2 Step -1
Range("A" & x) = Range("B" & x) * Range("C" & x)* Range("D" & x)
Next x
End Sub

jstvic

想在单个体积所在列，开始运算，不是想返回A列，求大神指点

洋务德雷

1. Sub 求单个体积()
   
2.    Dim A As Range
   
3.    Dim B As Range
   
4.    Dim C As Range
   
5.    Dim D As Range
   
6.    Dim x As Integer
   
7.     Set A = Sheets("仓储费").Rows(1).Find("单个体积", , , xlWhole)
   
8.     If A Is Nothing Then MsgBox "找不到 指定名称": Exit Sub
   
9.    
   
10.     Set B = Sheets("仓储费").Rows(1).Find("长", , , xlWhole)
    
11.     Set C = Sheets("仓储费").Rows(1).Find("宽", , , xlWhole)
    
12.     Set D = Sheets("仓储费").Rows(1).Find("高", , , xlWhole)
    
13. '  For x = 10000 To 2 Step -1
    
14. '    Range("A" & x) = Range("B" & x) * Range("C" & x) * Range("D" & x)
    
15. '  Next x
    
16.       For x = 1 To 19885
    
17.             A.Offset(x, 0) = B.Offset(x, 0).Value * C.Offset(x, 0).Value * D.Offset(x, 0).Value
    
18.       Next x
    
19.       Set A = Nothing
    
20.       Set B = Nothing
    
21.       Set C = Nothing
    
22.       Set D = Nothing
    
23. End Sub

复制代码

jstvic

洋务德雷 发表于 2022-5-11 21:50

大哥 我想要显示公式如何改，求教

洋务德雷

1. A.Offset(x, 0) ="'=" &  B.Offset(x, 0).Value & "*"  & C.Offset(x, 0).Value & " *" &  D.Offset(x, 0).Value

复制代码

jstvic

洋务德雷 发表于 2022-5-11 22:18

想显示 H2=B2*C2*D2  这样，  显示的是一个金额，但是带有公式的，麻烦再指导一下

洋务德雷

这个是直接显示H2=B2*C2*D2

1. A.Offset(x, 0) ="'" & A.Offset(x, 0).address & "=" &  B.Offset(x, 0)..address & "*"  & C.Offset(x, 0)..address & " *" &  D.Offset(x, 0)..address

复制代码

jstvic

可以了

jstvic

jstvic 发表于 2022-5-11 22:56
我想返回这个样子，可以实现吗

可以了 我改了一下   A.Offset(x, 0) = "=" &  B.Offset(x, 0)..address & "*"  & C.Offset(x, 0)..address & " *" &  D.Offset(x, 0)..address   谢谢大神

jstvic

洋务德雷 发表于 2022-5-11 22:53
这个是直接显示H2=B2*C2*D2

可以了   我删了一点 A.Offset(x, 0) ="=" &  B.Offset(x, 0)..address & "*"  & C.Offset(x, 0)..address & " *" &  D.Offset(x, 0)..address  谢谢大神