VBAで関数を挿入したい

解決済

質問者：bz0715
質問日時：2012/08/23 16:39
回答数：2件

VBAでISBLANK関数を　Fomulaでシートに挿入したいのですが
アプリケーション定義またはオブジェクト定義のエラーとなってしまいます。
ISBLANK関数をVBAで挿入するにはどうすればうまくいくでしょうか？

他にもISNULLやISEMPTYを試しましたがうまくいきませんでした。

どなたかご存知の方がいらっしゃいましたらアドバイスをお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： tom04
回答日時：2012/08/23 17:02

こんにちは！

単にISBLANK関数だけでなく、IF関数等他の関数も併用されているのでは？

通常の関数操作で仮に、B1セルに
=IF(ISBLANK(A1),"","AAA")
（A1セルが空白の場合は空白に、そうでない場合はB1セルは　AAA　を表示！）
といった関数をB10セルまでオートフィル！

これをVBAでやる場合の一例です（オートフィルは使っていません）

Sub test()
Range("B1:B10").Formula = "=IF(ISBLANK(A1),"""",""AAA"")"
End Sub

このような感じになると思います。

※　ダブルクォーテーションの数に注意してください。

的外れならごめんなさいね。m（_ _）m

- 0
- 件

通報する

この回答へのお礼

ダブルクォーテーションの数が誤っていたようです。
ご指摘の通り""を""""に修正したらうまくいきました。

アドバイスありがとうございました！

通報する

お礼日時：2012/08/23 17:51

No.1

回答者： okormazd
回答日時：2012/08/23 16:52

ActiveSheet.Range("B1").Formula = "=ISBLANK(A1)"

とかか?

この回答への補足

通常はそのやり方で問題ないと思うのですが、挿入しようとしている関数が以下の通り長めとなってます。

=IF(AND(COUNTIF(D:D,D5)<>1,NOT(ISBLANK(D5))),IF(OR(ISBLANK(D5),ISBLANK(F5)),""重複、未入力"",""重複""),IF(AND(ISBLANK(D5),ISBLANK(F5)),"",IF(OR(ISBLANK(D5),ISBLANK(F5)),""未入力"","")))"
　
関数が長いからいけないのでしょうか。
どこを直せばよいかお気づきであれば教えていただけると助かります。

補足日時：2012/08/23 17:00

通報する