2016-09-23 39 views
0

我想按工作表的值除以变量h。我的工作表是ws并被设置。这里是代码:划分工作表的值

h = (ws.Range("O" & y).Value2 - ws.Range("S" & y).Value2)/ws.Range("S" & y).Value2 

这个问题似乎与ws.Range("S" & y).value2。奇怪的是,当我从O减去S我返回一个值。只有当我分开时才会返回所有0,这不是预期的结果。对工作表中的数据有没有独特的部分或可能与我的数据有关?

+0

你能提供来测试值? –

+1

什么是输入,你是否在任何地方都有'Dim h as ...'声明? –

+0

O = 32650和S = 36731 – Chris2015

回答

2

你的代码工作对我来说:

Sub qwerty() 
    Dim y As Long, h As Double, ws As Worksheet 

    Set ws = ActiveSheet 
    y = 3 
    h = (ws.Range("O" & y).Value2 - ws.Range("S" & y).Value2)/ws.Range("S" & y).Value2 
    MsgBox h 
End Sub 

enter image description here

+0

为什么一个'变种'?使用变体比使用其他基本数据类型要慢。只有当你不确定时才使用'变体'。 –

+1

@SiddharthRout好点.....我会解决它。 –

+0

@SiddharthRout ...........完成! –