Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8564 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32668】判定の条件 tbtk 05/12/20(火) 17:02 質問[未読]
【32670】Re:判定の条件 Jaka 05/12/20(火) 17:27 回答[未読]
【32673】Re:判定の条件 tbtk 05/12/20(火) 17:48 お礼[未読]
【32672】Re:判定の条件 Kein 05/12/20(火) 17:46 回答[未読]
【32674】Re:判定の条件 tbtk 05/12/20(火) 17:51 お礼[未読]
【32668】判定の条件
質問  tbtk  - 05/12/20(火) 17:02 -
引用なし
パスワード
   すみません。教えて頂きたいのですが
　　　　　収容数　　　箱数　　　発注数
部品1　　　 2　　　　 3　　　　　6

部品2　　　 10　　　　5　　　　　50

部品3　　　 3　　　　 5　　　　　15

上記のようなシートがあり数値が入力されています。
発注数÷収容数＝箱数という計算で箱数が入力されています。
発注数と収容数は他のブックからマクロで値を取得して入力されるのですが
基本的には　発注数÷収容数＝箱数　の計算の答えは必ず整数に
なるはずなのですが、まれに取得元のブックのデータが間違っており、
割り切れなくて整数にならない場合があります。
なので入力が終わった段階で箱数が整数でない場合
エラーという表示をしようかと思っているのですが、
IF文を使用して実行しようとしたのですが、いまいち判定の条件式が分かりません。
どなたかご教示いただけないでしょうか？
【32670】Re:判定の条件
回答  Jaka  - 05/12/20(火) 17:27 -
引用なし
パスワード
   余りで判定させたらどうでしょうか？

If 3 Mod 2 = 0 Then
　 MsgBox "割り切れた。"
Else
　 MsgBox "割り切れません。"
End If
【32672】Re:判定の条件
回答  Kein  - 05/12/20(火) 17:46 -
引用なし
パスワード
   箱数を算出している列が C列 であるなら

=IF(INT($D2/$B2)<>$D2/$B2,"エラー!",$D2/$B2)

という式を C2 に入れて、フィルコピーしたらどうでしょーか ?
【32673】Re:判定の条件
お礼  tbtk  - 05/12/20(火) 17:48 -
引用なし
パスワード
   すいません。無事、解決しました。
こんな単純な事だったのですね。
まだまだ勉強不足と発想不足でした。
ありがとうございした。
【32674】Re:判定の条件
お礼  tbtk  - 05/12/20(火) 17:51 -
引用なし
パスワード
   ありがとうございます。
kein様の意見も参考にさせていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8564 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free