?の倍数 Then… するには？

解決

---

5の倍数とか、調べるにはどうすればいいんでしょう？
論理演算とか何かを使うのかな？と探してみましたけど、
分かりませんでした^^;

編集 削除

---

あまりが0なら倍数です。
if lngAruKazu Mod n = 0 Then
    MsgBox CStr(lngAruKazu) & "は" & CStr(n) & "の倍数です。"
End If

編集 削除

---

ちょっとちがいましたけどできました。ありがとうございました♪

編集 削除

---

ところで、小数点を含む倍数チェックにはどうすれば？

編集 削除

---

「倍数」というのは基本的に整数の概念ですので・・・。
ただまあ、「123.4は小数第一位まで考慮して4の倍数か?=商が
小数第一位に収まるか」を知りたいのでしたら、10倍して上の
判定すればいいと思います。
一般に「小数第m位までで割り切れるか？」を判定するには、
if (dblAruKazu * (10^m)) Mod n = 0 Then
MsgBox CStr(dblAruKazu) & "は小数第" &CStr(m) & "位までに" & CStr(n) & "でわりきれます。"
End If
みたいなかんじでいいかとおもいます。

編集 削除

---

その手がありましたかぁ。
たびたびありがとうございます♪

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。