[已解决]VBA公式怎么添加变量单元格

mhanhong

Cells(a, 7) = "=(LEFT(" & Range("D" & a) & ",FIND(""*""," & Range("D" & a) & ")-1)+RIGHT(" & Range("D" & a) & ",LEN(" & Range("D" & a) & ")-FIND(""*""," & Range("D" & a) & ")))*2/10000"


我想计算 600*600这种数据的 周长和面积，用VBA该怎么写呢 ？求大神指点
上面计算周长了 可是显示错误
600*600相当于 长度*宽度

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-2 17:45

面积（平方米）
Cells(a, 7) = "=LEFT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))*RIGHT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))/10000"

周长（米）
Cells(a, 8) = "=(LEFT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))+RIGHT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4)))*2/100"

跳转到最佳答案楼层

无聊的疯子

附件传上来才好解决问题!!

zjdh

面积（平方米）
Cells(a, 7) = "=LEFT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))*RIGHT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))/10000"

周长（米）
Cells(a, 8) = "=(LEFT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))+RIGHT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4)))*2/100"

mhanhong

不好意思
附近来了

mhanhong

zjdh 发表于 2013-3-2 17:45
面积（平方米）
Cells(a, 7) = "=LEFT(R" & a & "C4,LEN(R" & a & "C4)-FIND(""*"",R" & a & "C4))*RIGHT( ...

能给解释下吗

C4是什么？C4和前面的放一起是单元格的另外一种表示方法吗

zjdh

mhanhong 发表于 2013-3-2 19:24
能给解释下吗

C4是什么？C4和前面的放一起是单元格的另外一种表示方法吗

单元格地址的RC样式表示法
R行
C列
C4 第4列即D列
R1 第1行
R1C4  =  "D1"

mhanhong

zjdh 发表于 2013-3-2 20:12
单元格地址的RC样式表示法
R行
C列

谢谢你，不习惯用哪个表示。
用split解决了
Sub 和与积()
For i = 2 To 4
    a = Split(Cells(i, 1), "*")(0) * Split(Cells(i, 1), "*")(1)
    b = CIng(Split(Cells(i, 1), "*")(0)) + CIng(Split(Cells(i, 1), "*")(1))
    Cells(i, 3) = a
    Cells(i, 2) = b
Next i
End Sub

zjdh

mhanhong 发表于 2013-3-2 21:27
谢谢你，不习惯用哪个表示。
用split解决了
Sub 和与积()

那是迎合你一楼想单元格输入公式的做法，我当然知道用split可以分离2个数值。
周长可不仅是长加宽！

mhanhong

zjdh 发表于 2013-3-3 08:03
那是迎合你一楼想单元格输入公式的做法，我当然知道用split可以分离2个数值。
周长可不仅是长加宽！

我是不会才想到开始那种麻烦的办法的

朗驰

zjdh 发表于 2013-3-3 08:03
那是迎合你一楼想单元格输入公式的做法，我当然知道用split可以分离2个数值。
周长可不仅是长加宽！

厉害