IFステートメントの使い方　どちらでもないならば

Question

「出金も入金も0じゃないならば」としたい場合、どのようなifステートメントを作ればいいでしょう？

Sub test()
Dim 出金 As Currency
Dim 入金 As Currency

出金 = 0
入金 = 0

'(1)
  If Not (出金 = 0) And Not (入金 = 0) Then
  MsgBox "出金0入金0ではありません"
  End If
   
'(2)
  If (出金 = 0) And (入金 = 0) Then
  Else
  MsgBox "出金0入金0ではありません"
  End If
  
End Sub

(1)だとうまくいきません。
(2)のように  Elseを使って対応するしかないのでしょうか？
(2)でいけますが、今後の勉強の為にelseを使わずに、「どちらでもないならば」の方法を教えてください。

MarcoRossiItaly · Accepted Answer

No.5 です。何度もすみませんが、ちょっと書き損じたので、修正させてください。「なお(2)だと、出金か入金のどちらか一方のみが 0 の場合でも」ではなく、「なお(2)だと、出金か入金のどちらか一方のみが 0 でない場合でも」と言いたかったのです。紛らわしいですが、よろしくお願いします。なお、次の条件も参考にしてください。「出金と入金がともに 0 である」出金 = 0 And 入金 = 0 あるいは出金 + 入金 = 0　　　　　……出金、入金が負の値を取らない場合に記述可能この条件は、No.5 の「出金と入金のいずれか一方は 0 でない」という条件の「否定」になっています。すなわち次のように書いても同じです。 Not (出金 <> 0 Or 入金 <> 0) あるいは Not (出金 + 入金 > 0)　　　　　 ……出金、入金が負の値を取らない場合に記述可能

MarcoRossiItaly · Answer

「出金と入金のいずれも 0 でない」という条件であれば、No.4 さんのコードで十分と思います。

ベストアンサーは辞退します。

なお(2)だと、出金か入金のどちらか一方のみが 0 の場合でも、「出金0入金0ではありません」とのメッセージが出ます。

「出金も入金も 0 でない」という日本語の言い方では、その解釈に紛れが生じる余地があります。次の 2 つの条件を厳密に区別してコーディングしてください。

●「出金と入金のいずれも 0 でない」
　出金 * 入金 <> 0
●「出金と入金のいずれか一方は 0 でない」
　出金 <> 0 Or 入金 <> 0
　あるいは
　出金 + 入金 > 0　　　　　 ……出金、入金が負の値を取らない場合に記述可能

mt2008 · Answer

こんなのでもいいですね

If 出金 * 入金 <> 0 Then
　　MsgBox "出金0入金0ではありません"
End If

MSZ006 · Answer

（１）は、
Not (出金 = 0) And Not (入金 = 0) 
ではなくて、

Not (出金 = 0) Or Not (入金 = 0) 
もしくは
Not (出金 = 0 And 入金 = 0)

ですね。ド・モルガンの法則を覚えておくとよいと思います。

maiko0318 · Answer

まちがったm(__)m If (出金 <> 0) OR (入金 <> 0) Then MsgBox "出金0入金0ではありません" End If

maiko0318 · Answer

If (出金 <> 0) And (入金 <> 0) Then MsgBox "出金0入金0ではありません" End If

IFステートメントの使い方 どちらでもないならば

No.5 です。

「出金と入金のいずれも 0 でない」という条件であれば、No.4 さんのコードで十分と思います。

こんなのでもいいですね

（１）は、

まちがったm(__)m

If (出金 <> 0) And (入金 <> 0) Then

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

IFステートメントの使い方　どちらでもないならば