[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロ計算式の長さ』(VALTAN)
質問致します。
マクロを組んでいますが関数(IF)で下記のような長い式になると
エラーが出ます。長い式は無理なのでしょうか?ご教示お願いします。
=IF(OR(AA10=0,AA10=""),"",IF(I10<>"",IF(I10-AA10<E10,"検査依頼",""),IF(I9<>"",IF(I9-E9-AA10<E10,"検査依頼",""),IF(I8<>"",IF(I8-E8-E9-AA10<E10,"検査依頼",""),IF(I7-E7-E8-E9-AA10<E10,"検査依頼","")))))
試して見ました。 (LOOKUP)
Sub Macro1() Range("A1").Formula = _ "=IF(OR(AA10=0,AA10=""""),""""," & Chr(10) _ & "IF(I10<>"""",IF(I10-AA10<E10,""検査依頼"","""")," & Chr(10) _ & "IF(I9<>"""",IF(I9-E9-AA10<E10,""検査依頼"","""")," & Chr(10) _ & "IF(I8<>"""",IF(I8-E8-E9-AA10<E10,""検査依頼"","""")," & Chr(10) _ & "IF(I7-E7-E8-E9-AA10<E10,""検査依頼"","""")))))" End Sub
LOOKUP様
ご回答ありがとうございます。
回答頂いた式の理解は難しいのですが
下記の式も別の式に変換できますでしょうか?
ご教示宜しくお願い致します。
Range("L10").Select ActiveCell.FormulaR1C1 = _ "=RC[-8]="""" """" R[-1]C[-8]="""" RC[-1]-RC[-7] R[-2]C[-8]="""" R[-1]C[-1]-R[-1]C[-7]+RC[-7] R[-3]C[-8]="""" R[-2]C[-1]-R[-2]C[-7]+R[-1]C[-7]+RC[-7] R[-4]C[-8]="""" R[-3]C[-1]-R[-3]C[-7]+R[-2]C[-7]+R[-1]C[-7]+RC[-7] R[-5]C[-8]="""" R[-4]C[-1]-R[-4]C[-7] "
(VALTAN)
もとのご質問をR1C1で、L10に入力するのですと、下のようになります。 ""を""""にして、数式のところどころに見易さのため改行を挿入しています。
Sub Macro3() Range("L10").FormulaR1C1 = _ "=IF(OR(RC[15]=0,RC[15]=""""),""""," & Chr(10) _ & "IF(RC[-3]<>"""",IF(RC[-3]-RC[15]<RC[-7],""検査依頼"","""")," & Chr(10) _ & "IF(R[-1]C[-3]<>"""",IF(R[-1]C[-3]-R[-1]C[-7]-RC[15]<RC[-7],""検査依頼"","""")," & Chr(10) _ & "IF(R[-2]C[-3]<>"""",IF(R[-2]C[-3]-R[-2]C[-7]-R[-1]C[-7]-RC[15]<RC[-7],""検査依頼"","""")," & Chr(10) _ & "IF(R[-3]C[-3]-R[-3]C[-7]-R[-2]C[-7]-R[-1]C[-7]-RC[15]<RC[-7],""検査依頼"","""")))))" End Sub
後にご掲載のものは、内容が理解できませんので、回答不能です。 (LOOKUP)
VLOOKUP様
ご回答ありがとうございます。
助かりました。
マクロでエラーが出るのは改行しないで長々と打つからでしょか?
または、式が間違っているからでしょうか?
マクロ実行しない場合は、その式は成り立つのですが・・・
無知ですみませんがご教示お願いできないでしょうか??
>VLOOKUP様 もう一度名前を確認した方が宜しいのでは?
むずかしいことは、判りません。 長い数式を配置する場合には、このように短く区切っています。 (HLOOKUP)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.