• ベストアンサー

VBAの条件式に関する質問です。

ある一つのセルに以下のような条件式が組み込まれていました。VBAに関してあまり良くわからないのですが、これをjavaに書き換えるとすれば、どの様な形になるのでしょうか？ 教えていただけるとありがたいです！ =IF(AW6<=チーム!H51,IF(AW6>=チーム!G51,0,AW6-チーム!G51),AW6-チーム!H51)

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

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

int a = 1; // AW6の値 int b = 2; // チーム!H51の値 int c = 3; // チーム!G51の値 int d = 0: // 結果格納場所 if (a <= b) { 　if (a >= c) { 　　d = 0; 　} else { 　　d = a - c; } else { 　d = a - b; } もしくは d = a <= b ? (a >= c ? 0 : a - c) : a - b;

mathmathuunt
質問者

お礼

出来ました！ ありがとうございました！

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

関連するQ&A

  • エクセルVBAで条件式について

    例えば、エクセルVBAでif～thenのような条件式で条件に合わなかったら、そのプロシージャ内の処理をすべてキャンセルするか、条件にあわなかったら、それ以降の下段に記述されているプロシージャ内のVBAをキャンセルする方法はありませんか？

  • VBAで条件式がうまく作れず困っています

    VBAで条件式を作りたいのですが、うまくできません。超初心者ですので、分かる方教えてください。 ある項目をみて、値が１０、１５、４０のときその行を削除するというものです。その項目にはいろいろな値が入っています。 構造的には、 if（値が１０または１５または４０） then 　　行削除 end if となるのでしょうが、カッコの中の書き方を教えてください。 よろしくお願いします。

  • 【VBA】改行されたセルの条件

    VBAにてA1のセルが画像のように改行されたセルであっても条件式で処理を行うようにしたいのですがうまくできません。 ↓式のように作成はしてみました どうしたら改行されたセルでも処理が行えるのでしょうか？ Sub test() If Range("A1") = (行1行2の場合) Then 処理 End If End Sub

  • 【Excel】複数条件の論理式をVBAマクロでオートフィルするには？【エクセル】

    セルF2からF5000までは =VLOOKUP(C2,sp_csv!C:H,6,0) という関数をオートフィルで入力できるようにマクロを組みました。 Sub Macro1() セル範囲 = "F2:F5000" 数式 = "=VLOOKUP(C2,sp_csv!C:H,6,0)" Range(セル範囲).Formula = 数式 End Sub 同様にセルG2からG5000は =IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし")) という関数を入れてオートフィルさせたいのですが、コンパイルエラーが出てしまいます。 Sub Macro2() セル範囲 = "G2:G5000" 数式 = "=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))" Range(セル範囲).Formula = 数式 End Sub 複数条件の論理式をVBAマクロでオートフィルするにはどうしたらいいのでしょうか？

  • Excel　VBA　特定の条件の時に指定されたセルのクリア

    お世話になります。 Office2007　WinXPです。 VBAの勉強を始めたばかりです。 よろしくお願い致します。 E12～I12までに数字が入ります。 その数字を元にE13～I13までとE14に○か×か判定を入れてます。 VBAで動かしたいセルはF20～I20です。 E14が×の○の場合、F20～I20は全てセルのクリア Range("F20:I20").Clear 後は個別にF14が○ならF20のセルをクリア G13が○ならG20のセルをクリア H13が○ならH20のセルをクリア I13が○ならI20のセルをクリア J13が○ならJ20のセルをクリア 関数のIF文ではセルのクリアができないので… 条件は =IF(OR(E14="○",F13="○"),"データクリア","入力して下さい") 参考で見つけたHPで If 条件式 Then 判断結果がTrueのときに実行する処理 Else 判断結果がFalseのときに実行する処理 End If どのように当てはめたらよいのかがわかりません。 ご教授の程よろしくお願い致します。

  • VBA作製ができません。どなたか教えてください。

    エクセルVBA作製ができません。どなたか教えてください。 会社の作業単純化のためにVBA作製しようと思ったものの、うまくできません。出来る方ならすぐ出来てしまうのではと思い質問させていただきます。 作りたいのは１つのファイル「Book1」にあるデータをコマンドボタンを押すと「Book2」にコピーさせたいのですが、 条件がありまして、 「Book1」には横並びに5個のセルに数字がそれぞれ入っていたり、いなかったりするのですが、 5個のうちいちばん左のセルに数字が入っていたら実行、入っていなかったらその右のセルにセルを移動するという式if then？で場合分けをしたいです。 そして、もし実行ならその数字や他の任意のＡ１、Ｇ４、Ｈ６（ちなみＡ１、Ｇ４、Ｈ６は文字）など指定したセルをコピーして「Book2」にペーストしたいです。 しかしそこでペーストする先の指定したセルに文字が入っていたらその 下のセルにペーストという条件も加えたいです。ここでloopを使う？ コピーペースト出来たら、また、「Book1」のいちばん左の右のセルに数字が入っているかどうかでコピーペーストをするという作業を繰り返したいです。なのでいちばん最初にFor Nextで５回繰り返す式を入れる？ 要はBook1の５個の数字を参照していってセルに入力されていれば 数字や他の文字をBook2にペーストしたいんです。どなたかVBAの式を教えてください。 宜しくお願いします。

  • ＶＢＡで条件式について

    ＥＸＥＬ（ＶＢＡ）で例えば、Ａ列のデータが入っている行までの中で数値(x)が　 x＜2　ならばセルに色をぬる。そして空白セルと　x＞2ならば色をぬらない。 という条件式は、どうしたらいいのですか？ Sub InteriorColor() For j= 5 to 21 worksheets(j).activate For i = 1 to 40　'３０から４０行ぐらい While cells(6+i,6)<>"" If(cells(6+i,6).value<2) Then　’6列７行目から　 with selection.interior .Colorindex=45 .patern=xlsorid End with Wend End if Next i Next j End sub ということを連続していない列（5列ぐらい）に対してします。 同じ命令文になる部分もあるので簡潔にしたいという希望もあります。 上部の命令では無限ループの可能性があり実行が止まりません。 どのように記述したらいいのですか？ また、同じブックのシート２５枚のうち５枚目から２１枚目に対して処理します。 ５から２１までのシートの間で関係ないシートが７枚目と１０枚目と１５枚目にあります。それを省いての処理もあれば教えてください。

  • VBA　指定条件を満たすデータ表を探したい

    VBA初心者です。 以下のような事をVBAで実現したいのですが、どのようにすればいいのでしょうか。 （本日のお昼頃に似たような質問をして早速回答をいただき解決しました。ありがとうございました。今回は条件の表示位置などが異なる場合です。） 添付画像のような数値データ表があります。 データ表が１から５まであります。 左上にそれぞれのデータ表での数値の検索条件１と２が記載されています。 データ表１は548以上になる位置を上から順に探していき、その数値以上になった時点でセルに色を付けたいです。そしてG列の条件１のセルに「合致」と表示したいです。 条件２の535以下は条件１を満たしたセルの次の行から検索をさせたいです。 （データ表１の場合は２２行目からです。） そして、条件２を満たすものが出たらセルに色を付け、H列の条件２に「合致」と表示したいです。 また、例えばデータ表３とデータ表４の場合は条件２で合致するものがないのですが、その場合は H列の条件２に「該当なし」と表示したいです。 よろしくお願いします。

  • エクセル　条件式

    セルA1が10より低いと1、10より高いと2が入力されるという条件式(1)はわかるのですが、セルA1<10の時1、10<A1<20の時2、20<A1<30の時3、30<A1<40の時4、という条件式を知りたいです。ご教示お願いします。 (1)IF(A1<10,1,2)

  • VBAのIF分で時間指定の条件式の書き方

    VBAのIF分で時間指定の条件式の書き方を教えてください。 9：00～14：00で実行する下記のマクロはうまく機能しています。 If Time >= TimeValue("9:00:00") And Time <= TimeValue("14:00:00") Then 下記をご教授願います。 16：00～翌日の4：00までの、日をまたがっての１２時間後の条件式の書き方を教えてください。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する