こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【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マクロでオートフィルするにはどうしたらいいのでしょうか?

投稿日時 - 2009-03-16 16:19:17

QNo.4801664

困ってます

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

引用符が不足しているからだと思います。
数式 = "=IF(AND(E2>0,F2=0),""削除"",IF(AND(E2=0,F2>0),""新規"",""変動なし""))"をお試し下さい。

投稿日時 - 2009-03-16 16:39:23

お礼

回答ありがとうございます。
私の引用符に対する知識が足りなかったようです。
上記の通りで正常に動きました。
これを参考に色々と試してみます、ありがとうございました。

投稿日時 - 2009-03-16 16:49:03

ANo.2

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

どこかのセルに、
=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))
を打ち込むマクロの自動記録を取ってみると、""の使い方がわかるかも?

投稿日時 - 2009-03-16 16:38:59

お礼

回答ありがとうございます。
私の引用符に対する知識が足りなかったようです。
色々と勉強してみます。

投稿日時 - 2009-03-16 16:47:55

あなたにオススメの質問