|
はじめまして、VBA初心者のいよかんと申します。
EXCEL2000を使用しているのですが、
Sub CommandButton1_Click
Dim = i As Integer
Dim = x As integer
Dim = y As Intefer
For i = 5 To 105
x = Range("B" & i )
y = Range("A" & i )
If x = Empty Then
Range("C" & i ).Value = ""
ElseIf y = Empty then
Range("C" & i ).Value = ""
Else
Range("C" & i) .Value = x - y
End if
Next
end sub
というコードを書き、一応動作したのですが、
x の入力値が 0 もしくは y の入力値が 0 の場合に
値が出てこずセルが空の状態になるのと
x y ともに 0 だった場合も 0 と出ず、
そのままセルが空の状態になります。
※x y ともに 0 以外の数値であれば、きちんと値が出ます。
入力値が 0 であってもきちんと値が出るようにするには
どのようにすればよいのでしょうか?
アドバイスをお願いいたします。
|
|