質問: .value end with w.close savechanges:=false end sub
回答: >エクセルの関数で =if(iserror(a1/b1),"",a1/b1) といった関数を作成すると、 >エラー値は非表示で、エラーでない場合のみ、計算します =a1/b1という数式がエラーになるのは, 1)エラーの具体的な内容が#div/0だった場合: それはb1がゼロであるのがエラーの直接の原因なので,数式は =if(b1=0,"",a1/b1) とすれば良いことが判ります。 2)エラーの具体的な内容が#value!だった場合: それはa1かb1に「文字列」が記入されているのがエラーの直接の原因なので,数式は =if(count(a1:b1)=2,a1/b1,"") などのようにすればよいことが判ります。 3)エラーの具体的な原因を追及するのがメンドクサイ場合: その場合は,まぁどんなエラーでも対応できる =if(iserror(a1/b1),"",a1/b1) としても勿論構いません。 でも数式がシンプルにa1/b1程度ならまだしも,もっともっと長くなってきた場合でも,「長い(重い)数式」をイチイチ計算してエラーにならないかまず確認してから,改めて本番の計算を同じだけやり直すのを「不細工だ」と思わなければ,です。 >vbaで同様の式を利用しようとすると、エラーとなって実行できません。 新しいマクロの記録を開始します 所定のセルに =if(b1=0,"",a1/b1) と数式を記入しenterして実際に一度式を記入させてみます マクロの記録を終了し,採取できたマクロを参考にして,「この式を記入させる」には一体どんなマクロにすれば良かったのか確認します。 sub macro1() ' ' macro1 macro ' マクロ記録日 : 2011/9/20 ユーザー名 : keithin ' ' activecell.formular1c1 = "=if(rc[-1]=0,"""",rc[-2]/rc[-1])" range("c2").select end sub むむー。。r1c1形式のマクロが録れてしまいましたが,まぁ肝心の「""」の部分が「""""」と書けばよい事が判ったことで良しとしましょう。 実際のc5セルに(若しくはc5:i35セルに) =if(iserror(vlookup($e$1-day($e$1)+$b5,[実験データ.xls]data!$b:$k,match(c$4,[実験データ.xls]data!$b$1:$k$1,0))),"",vlookup($e$1-day($e$1)+$b5,[実験データ.xls]data!$b:$k,match(c$4,[実験データ.xls]data!$b$1:$k$1,0))) あるいは =if(median(min([実験データ.xls]data!$b:$b),$e$1,max([実験データ.xls]data!$b:$b))=$e$1,"",vlookup($e$1-day($e$1)+$b5,[実験データ.xls]data!$b:$k,match(c$4,[実験データ.xls]data!$b$1:$k$1,0))) といった数式を記入する操作を新しいマクロの記録でマクロに録って,どんなマクロの書きぶりをしたら正しく動作するのか,確認しながら作成してみてください。