ワークシートの値を除算する

Question

ワークシートの値で除算し、変数h内に配置しようとしています。私のワークシートはwsで設定されています。コードは次のとおりです。

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

問題はws.Range("S" & y).value2であるようです。奇妙なのは、私が代入するとSからOに戻ります。それは私がすべての0を返すように分割するときだけです - 期待されていません。ディビジョンに関して何かユニークなものがあるのでしょうか、あるいはワークシート上の私のデータと何か関係がありますか？

Answer 1

あなたのコードでは、私の作品：

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