• ベストアンサー

Excel VBA IF文で

Excel VBAのIF文で質問があります。 「ある数字とある数字を割ってその答えが整数 ならば」 というというふうに記述したいのですが「整数 ならば」というところの書き方がわかりません。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

割って答えが整数ならば… つまり 余りが無いということでいいでしょうか? それでしたら 最初の数字を A 次の数字を B としたとき If A mod B = 0 Then こんな感じですが…

turkey1222
質問者

お礼

余りがないということです。 早速のご回答ありがとうございました。

その他の回答 (1)

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.2

Sub test() x = 4 y = 2 a = x / y If a = Int(a) Then MsgBox "整数" Else MsgBox "少数" End If End Sub

turkey1222
質問者

お礼

早速のご回答ありがとうございました。 希望通りのことができました。

関連するQ&A

  • Excel VBA If文の処理について

    Excel VBA If文の処理方法で質問です。 http://www.sigoto.co.jp/excel/statement/state09.htm を参考にしながら作ってます。 ▲空白なら の方法は記載されていますが… If 要素.Value = Empty Then ~ ▲セルに(文字・数値に関係なく)情報があるなら… という定義をしたいのですがどうやればよろしいでしょうか? If 要素.Value != Empty Then ~ これだとエラーが返りました。VBAは (※Else以外の方法で) 否定文の処理方法ってありますか? *内容抜粋* Set cell = Range("G5:I9") If cell.Value = "" Then '…ここの定義どうやれば良いか? ・ ・ End If アドバイスよろしくお願い致します。

  • エクセルのIF文

     エクセルの表で、セルに数字0が入っている場合は2、そうでなければ0と定義するのに、=IF(E$2=E5,E$3,0)という文を作ったのですが、セルが空欄でも2が返されてしまいます。  セルが空欄の場合は、0を返したいのですが、このIF文に何を補足すればよいでしょうか。

  • IF文の使用制限について(VBA)

    いつもお世話になります。 VBAで分からない事があったので、質問をすることにしました。 お手数をおかけしますが、よろしくお願いします。 現在、以下のようなコードを記述しています。 例) IF x > y AND x <= z then ”処理” End If 値「x」がyよりも大きくて、zより小さいかもしくは同じ値の場合は処理をする。 というようなコードを記述しています。 順調に作業を進めていたのですが、1つのFunction?内に合計25個の 例で挙げたIF文を記述しているのですが、最後の25個目まで正しく処理されるでしょうか? 一つのFunctionで、IF文の使用できる回数制限みたいなものは存在するのでしょうか? どうしても、後半の3つのIF文だけ正しく処理されなくて困っています…。 コードは何回も見直したので間違っていないと思うのです…。 もし、IF文の使用個数の制限など無いというのであれば、もう一度見直してみたいと思います。 質問は以上となります。 よろしくお願いいたします。

  • IF文を教えてください。

         A    B         C  1    あ   10.23       10.23 2    い   10         10.23 3    い   1.23        1.23  上記のようなシ-トがある場合 あ以外の数値を整数止めを行い、尚且つ整数一桁の場合は 下二桁表示のIF文をお教えください。 尚、エクセル2003です。

  • エクセルVBAのif文で同じ処理をまとめる方法

    エクセルのVBAのif文で質問です。 ・J1セルに「1302」が入っており、K1セルが空欄だった場合、K1セルに「0000」を入力する という場合、 If .Range(J1).Value = "1302" And .Range(K1).Value = "" Then  .Range(K1).Value = "'0000" End If となりますが、これがJ1=1302だけではなく2117や4101など、10種類以上の異なる値で同じ処理が必要な場合 同じ形のプログラムを羅列していく以外の書き方はありますでしょうか? if~End ifがいくつも並んでいて、うまくスッキリとまとめられないのだろうかと思い質問しました。 よろしくお願いいたします。

  • ExcelでIF文などを使いこなしたいのですが・・

    Excelのセルの中にIF文などを埋め込んだりする処理を 何というのでしょうか? Excelをよく使うのですが、SUM関数などしか知らない為、 セルにIF文を埋め込む処理をもっと覚えたいと思うのですが どういう本を買えばいいのか分かりません・・。 Excelの関数の本でしょうか? Excelの関数の本については初歩的な本をもってるのですが、 関数ウィザード?を使ったものしか載ってなくて、 IF文などについては全く載っていません・・。 マクロ?とかいうものについて書かれた本を 買えばいいのでしょうか? それから、IF文等は、Excelだけではなく、Wordも使えるのでしょうか? 使えるとしたら、文法は全く一緒でいいのでしょうか?

  • エクセルのIF文

    基本的な質問ですが、 エクセルのIF文で下記の条件式を教えてください。 A1が1ならばB1には普通と表示、2ならば当座、0ならば空白というIF文を作りたいのですが、どのように作れば良いのでしょうか? よろしくお願い致します。

  • Excel97で、If文をなんとかしたい

    IF文でなんとかなりそうなんですが、IF文を使った事がなくて。 A列   B列   C列    任意の位置のセルD 数式  文字列   数式  文字列 数式  文字列 数式  文字列 こんな表で、Bの文字列の値と、Dのセルの値が一致した時、Aの数式の値(数字)をCの列に表示させ、BとDの文字が一致しない時は、”エラー”を表示させたいんですが、どういう風にすればいいのでしょうか? IF文を使えばいいのでしょうか? どういう風に、数式を立てればいいのかわかりません。 どなたか詳しい方、教えていただけませんか?

  • EXCELエラーの場合のIF文の処理

    EXCELで計算式で、#VALUE!と出る場合に、0を表示したいです。 =if( =?,0,"")のようにif文では、どう記述しますか?

  • エクセルIF文です。

    エクセルIF文です。 if(a1>"", , )の部分 のa1>""は、どういうことですか? よろしくおねがいします。

専門家に質問してみよう