Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59174 / 76732 ←次へ | 前へ→

【22269】0の扱いで悩んでいます
質問  いよかん  - 05/2/14(月) 13:06 -

引用なし
パスワード
   はじめまして、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 であってもきちんと値が出るようにするには
どのようにすればよいのでしょうか?
アドバイスをお願いいたします。
2 hits

【22269】0の扱いで悩んでいます いよかん 05/2/14(月) 13:06 質問
【22270】Re:0の扱いで悩んでいます つん 05/2/14(月) 13:27 回答
【22271】Re:0の扱いで悩んでいます いよかん 05/2/14(月) 13:50 質問
【22272】Re:0の扱いで悩んでいます つん 05/2/14(月) 13:55 回答
【22274】Re:0の扱いで悩んでいます いよかん 05/2/14(月) 14:16 お礼
【22288】Re:0の扱いで悩んでいます sa 05/2/15(火) 9:40 発言
【22291】Re:0の扱いで悩んでいます いよかん 05/2/15(火) 11:18 お礼

59174 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free