セル内の数式をVBAで書くと

使っているのエクセル2010です。
セルT2に以下の計算式が入っていて現在使っています
=IF(AND(M2>N2,N2>O2),MAX($K$6:K50)*2,"")
こういうのが１行あたり20列くらいあります
これをVBEに書きたいのです。　IF　then　とかAND単体の書き方はネットや手持ちの本で解るのですがセルの式でIFの中にANDとMAXが有り　どう書いたらいいのか分かりません。
関数をVBAにできるかた上記の式をVBAに直してもらえますか。

No.1 回答者： trajaa 回答日時： 2023/10/10 11:47

それが適切なのかどうかはこの情報では判断できませんが

コピペで数式の貼付けをすれば何十列有っても手間では無いですけどね

No.2 ベストアンサー 回答者： fujillin 回答日時： 2023/10/10 11:58

こんにちは

＞単体の書き方はネットや手持ちの本で解るのですが
＞セルの式でIFの中にANDとMAXが有り
＞どう書いたらいいのか分かりません。
個々にわかるのなら、式の内容を分解して、順次処理を行えばよいのでは？
（もちろん、まとめて記述することも不可能ではありませんけれど）

式中の「M2」等のセル値の参照は、Range("M2").Value などに変換すれば良いです。
例えば、ご提示の式なら

　cond1 = Range("M2").Value > Range("N2").Value
　cond2 = Range("N2").Value > Range("O2").Value

　If cond1 And cond2 Then
　　Range("T2").Value = Application.Max(Range("$K$6:k50")) * 2
　Else
　　Range("T2").Value = ""
　End If

みたいな感じで。

この回答へのお礼

IF(OR(A100="",A100="--------"),"",IF(AND(W100>=0,X100>=0,Z100>=0),1,IF(AND(W100<0,X100>=0,Z100>=0),2,......みたいに各セルに計算式が色々入っているという意味です。文書が稚拙で申し訳ございません。
こんな稚拙な文書でも回答くださりありがとうございます。関数からVBAにするときの書き方がこれで解ると思います。答えを見直しながら勉強させていただきます。

お礼日時：2023/10/10 13:10

No.3 回答者： little_experience000 回答日時： 2023/10/11 08:28

if range("M2") > range("N2") and range("N2") > range("O2") then

range("場所")=application.worksheetfunction.max(range("$K$6:K50")*2
end if

テストはしていません

No.4 回答者： little_experience000 回答日時： 2023/10/11 08:30

if range("M2") > range("N2") and range("N2") > range("O2") then

range("場所")=application.worksheetfunction.max(range("$K$6:K50"))*2
end if


でした。
テストはしていません

この回答へのお礼

1行での書き方　参考になります。application.max(　の処が理解していないのでオブジェクトとして丸暗記することにしました。

お礼日時：2023/10/12 13:01

No.5 回答者： duffer_dog 回答日時： 2023/10/11 12:50

VBA を組むとき、例えば

欄外の列に
　=IF(AND(W100>=0,X100>=0,Z100>=0),1,0)
次の列に
　＝IF(AND(W100<0,X100>=0,Z100>=0),2,0)
次の列に
　＝IF(AND(W100<0,X100＜0,Z100>=0),2,0)
などを入れて、更に条件分岐の計算式を入れてそれらに基づいて VBA を組んでいけば考えが整理できてうまく書くことができます。参考までに・・・。

この回答へのお礼

自分の本にも同じ事が書いてありました　完全にわすれていました。
ありがとうございます。

お礼日時：2023/10/12 13:07