![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
「出金も入金も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を使わずに、「どちらでもないならば」の方法を教えてください。
No.6ベストアンサー
- 回答日時:
No.5 です。
何度もすみませんが、ちょっと書き損じたので、修正させてください。「なお(2)だと、出金か入金のどちらか一方のみが 0 の場合でも」ではなく、「なお(2)だと、出金か入金のどちらか一方のみが 0 でない場合でも」と言いたかったのです。紛らわしいですが、よろしくお願いします。
なお、次の条件も参考にしてください。
「出金と入金がともに 0 である」
出金 = 0 And 入金 = 0
あるいは
出金 + 入金 = 0 ……出金、入金が負の値を取らない場合に記述可能
この条件は、No.5 の「出金と入金のいずれか一方は 0 でない」という条件の「否定」になっています。すなわち次のように書いても同じです。
Not (出金 <> 0 Or 入金 <> 0)
あるいは
Not (出金 + 入金 > 0) ……出金、入金が負の値を取らない場合に記述可能
No.5
- 回答日時:
「出金と入金のいずれも 0 でない」という条件であれば、No.4 さんのコードで十分と思います。
ベストアンサーは辞退します。なお(2)だと、出金か入金のどちらか一方のみが 0 の場合でも、「出金0入金0ではありません」とのメッセージが出ます。
「出金も入金も 0 でない」という日本語の言い方では、その解釈に紛れが生じる余地があります。次の 2 つの条件を厳密に区別してコーディングしてください。
●「出金と入金のいずれも 0 でない」
出金 * 入金 <> 0
●「出金と入金のいずれか一方は 0 でない」
出金 <> 0 Or 入金 <> 0
あるいは
出金 + 入金 > 0 ……出金、入金が負の値を取らない場合に記述可能
No.4
- 回答日時:
こんなのでもいいですね
If 出金 * 入金 <> 0 Then
MsgBox "出金0入金0ではありません"
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Excel VBA ユーザーフォーム 複数のユーザーフォームの閉じ方。 2 2022/04/27 11:29
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの数を求めたい
-
ある表にフィルターをかけて出...
-
Lookup関数
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
Excelピボットテーブルの1行目
-
エクセル日付 文字列の関数がエ...
-
西暦や和暦の表示をyyyymmdd表...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelに詳しい方! B列が「日...
-
Excelで50個のセルに同じ文字を...
-
Excelについて
-
Excel関数について教えてくださ...
-
Excelで表を作ったところに文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
銀行の帯がついた札束は一般人...
-
銀行のATMって100パーセント数...
-
Qoo10で注文をキャンセルしたら...
-
他支店の窓口での入出金は通帳...
-
通帳の印字サービス
-
三菱UFJ銀行から楽天銀行へ300...
-
旧札から新札 ATM可能?
-
銀行の窓口で振込みをした際に...
-
窓口振込みとATのM振込みの違い
-
ATMは紙幣の番号を記録していま...
-
通帳の摘要に「ネット150」...
-
打ち切り交通費とはなに?
-
「引き落とす」と「引きおろす...
-
カードを作ってない通帳はAT...
-
スーパーATMの、現金振込みにつ...
-
ファミマのATMで振込み
-
GOOGLE ASIA PACIFIC PTE から...
-
楽天銀行(イーバンク銀行)の...
-
ATMの操作、一度に何件もやるのは…
-
ぱるるの出金手数料について
おすすめ情報