[[20051116111705]] 『マクロ計算式の長さ』(VALTAN) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロ計算式の長さ』(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.