Excelマクロで条件文の書き方

前へ 次へ
このQ&Aのポイント
  • Excelマクロで条件文を作成する方法について説明します。
  • 条件文の作成において、文字列の置き換えを行う必要があります。
  • 条件文の正当性を判定するために、If文を使用します。
回答を見る
  • ベストアンサー

If文の条件文の書き方

お世話になります。 Excelでマクロを作成しております。 内容： 　あるセルに、X<=300　というような条件を入れておきます。 　ある値、たとえば、500　が来たときに、Xに代入して、 　500<=300　という条件式を作り、それが、正しいか、正しくないか 　の結果を求めたいと思っています。 このとき、if文の条件文は、値によって、変わらなくてはいけないので、 文字列の置き換え等をして、変数として条件文を作ると、「型が違います」 のエラーになります。 どのように条件文を作ればいいでしょうか？？ hani = Cells(1,1).value 'セル1,1に、X<=300 が書かれています。 exp = Replace(hani, "X", 500) '"X"を500と置き換えます。 If exp Then Check = 0 Else Check = 1 End If よろしくお願いします。

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

  • ベストアンサー
  • nda23
  • ベストアンサー率54% (777/1415)
回答No.1

>If exp Then 　　　↓ If Evaluate(exp) Then

kyon2010
質問者

お礼

Evaluateですか。。 たいへん勉強になりました。 また、はやい回答大変助かりました。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • IF文での条件の書き方について(fortran)

    条件　(1)exp(-at)<x 　(2)exp(-bt)<y と二つの条件があるとする． （a,b,x,yは定数とし，tは時間でdo文でまわすとする) 例えば，IF(　(1)　.AND.　(2)　)THENとすれば，「(1)　かつ　(2)」となり，つまり，「時間的に，(1)・(2)がどちらが先に条件を満たしたとしても良い」とういうことですよね． 今回，私が作ろうとしているプログラムは 「(1)が先に条件を満たした後に，(2)の条件を満たすなら」というIF文を作りたいのです．（　(2)の条件が先に満たしてしまう場合は除きたいということです） こういう場合はどういった表記をすればよいのでしょうか． 下手な文章で読みにくいかもわかりませんが，アドバイスをお願いいたします．

  • VBA の if 文の質問です

    下記のようなif文を実行したのですが Or のあとの条件が無視されてしまっているようなのですが、このような書き方ではだめなのでしょうか？ else if で地道に分岐させたほうがいいのでしょうか？ If Cells(1, 1).Value <> "" Or Cells(1, 2).Value <> "test" Or Cells(1,3) <> 0 Then 処理内容 End If

  • ＩＦ文

    （Ａ）IF　条件　THEN 単純実行文１　ELSE　単純実行文２ (B)IF　条件 THEN 実行処理１ ELSE 実行処理２ Ａの文では単純実行分なのになぜ改行すると(B)の文みたいに実行処理になるのでしょうか？ 実行処理と単純実行文の違いを教えてください

  • VBAで分岐条件に名前をつける

    If文の条件を外にだしさらに下記のようにIf文の中で論理演算を させるようなプログラムを作りたいにのですが、 ExxelVBAでそのようなことはできますでしょうか？ できるとしたら教えてください。よろしくお願いします。 sub test() S1=36 S2=48 ’こういう名前の付け方はできないが、要はS1>0という条件に条件１と名づけたい。 条件1:=S1>0 条件2:=S2>0 IF 条件1*条件2=true then cells(1,1)=1 else if 条件1=true then cells(1,1)=2 else if 条件2=true then cells(1,1)=3 else cells(1,1)=0 end if end sub

  • マクロif文での条件式について

    マクロ初心者です。Excel2003を使用しています。 仕事上で使用しているエクセル表より、ある値以上の項目を抽出し、その値を用いて計算結果を出すためのマクロを作成いたしました。いろいろなサイトを参考にして自分なりに書いてみたのですが、どうしてもうまくいきません。 表は簡単なもので、以下のようなものです。 1 9 2 24 3 45 4 67 1列目は使用濃度、2列目は測定値です。この測定値が30より大になった項目を抽出し、計算式にその値を代入し計算結果として出したいのです。また、全ての測定値が30以下だった場合は、計算結果の欄に”<30”とのように表示をさせたいと考えています。 以下のようにマクロを書いてみました。 Sub Macro1() For i = 1 to 4 if Worksheets("sheet1").cells(i , 2).value <=30 then Range("A5")=0 '測定値が=<30だった場合は計算をしないので、フラグとして値を入力 Elseif Worksheets("sheet1").cells(i , 2).value > 30 then Range("A5")=Cells(i , 1) Range("B5")=Cells(i , 2) Exit for Endif if Worksheets("sheet1").Range("A5").value > 0 then Range("A6").Formula ="=(50-B5) / A5" Elseif Worksheets("sheet1").Range("A5").value = 0 then Range("A6") ="<30" Else Endif Next i End Sub ＞３０だった項目の抽出まではできたのですが、計算値をだすところがどうしてもうまくいかず、A6セルにはどんな値でも”＜３０”と入力されてしまいます。 マクロの基本的なルールなどがまだまだ未熟なので、基本的な構文も書けていないと思います。 全然方向性が違うかもしれないので、そういった点も含めてご教示いただけたら幸いです。 分かりにくいかもしれませんが、どうぞよろしくお願いいたします。

  • If～ThenステートメントとAnd演算子

    windows7、エクセル2013です。 セルに式が入っていてその計算された値が、 計算ERRを起こしている場合（#DIV/0!とか#VALUE!）、空白の場合、0の場合 は処理をしないで それ以外の場合は処理をするようにしたいのですが 以下の構文ではerrになります。 どこが悪いのでしょうか？ よろしくお願いします。 If IsError(Cells(x, 20)) And (Cells(x, 20)) = 0 And (Cells(x, 20)) = "" Then Else y = Cells(x, 20) * Cells(x, 23) End If

  • EXCEL2007 VBA IF文について

    プログラム If Sheets("sheet1").Cells(85, 1).Value = Cells(13, 1).Value Then msgBox "true" Else msgBox"false" End If 値 Sheets("sheet1").Cells(85, 1).Value ← 0.38125 Cells(13, 1).Value ← 0.38125 上記のプログラムと値のとき、結果はtrueが表示されると思うのですが、なぜかfalseが表示されてしまいます。なぜ、falseが表示されるのか解りましたら教えてください。 値はウォッチで確認しています。

  • VBA　単純なIF文ですが？

    以下のような文を書いたときに、If文の後の変数を「set_s」にした場合イコールが実行されません。 「set_s」を単純な数字（この場合16）にするとIf文が機能します。 なぜでしょうか。 Do set_s = 16 Cells(1, 1) = Time h = Left(Time, 2) m = Mid(Time, 4, 2) s = Right(Time, 2) If set_s = s Then Cells(8, 2) = "時間です。" Exit Do Else Cells(8, 2) = "まだです。" End If Loop

  • VBA条件文について

    はじめまして。 現在、VBAで簡単な勤務管理表を作成しております。 その過程で、一部分の条件が意図するように動作せず悩んでいます。 ------------------------------------------------------------ If Left(Schedule.Cells(16, 3).Value, 2) = "祝日" Then Schedule.Cells(16, 3).Font.Color = vbBlue Schedule.Cells(16, 3).Interior.Color = vbRed End If 　⇒対象のセルの値の先頭2文字が「祝日」の場合、 　　 セルないしセルの文字の色を設定する ------------------------------------------------------------ 初歩的な質問で申し訳ございませんが、 誤りについてご教授いただけませんでしょうか？

  • if文の条件分岐

    お世話になっております。 VBについて初心者なので、参考書を見て勉強しております。 if文の条件分岐についてイメージが出来なくて困っています。 例えば、 (1)Windows XPのインストールのVBS、パラメーター用のbat (2)Windows VistaのインストールのVBS、パラメーター用のbat があるとします。 if文を使って、VBSを開いた時に(1)か(2)の分岐を選択するように書くには「if・・・Then・・・Else」を使って書くのが良いのでしょうか？ 勉強不足で自己解決ができません・・・ 宜しく御願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する