VBA アプリケーション定義エラー・・・について

　エクセルで表現すれば、=IF(OR($G11="",COUNTIF(H11:BN11,"ｋ")>0),"",INT(AVERAGE(H11:BN11)*10+0.5)/10))という式をVBAで以下のように記述したところ、アプリケーション定義エラーまたはオブジェクト定義エラーが出ました。
For i = 1 to 410
Sheets("評定").Cells(i + 10, 79).Formula = "=IF(OR($G" & i + 10 & "=" & Chr(34) & "" & Chr(34) & ",COUNTIF("H11:BH11," & Chr(34) & "ｋ" & Chr(34) & ">0)," & Chr(34) & "" & Chr(34) & ",INT(AVERAGE("H11:BN11")*10+0.5)/10))"
next i
　どのように書き換えればよいのでしょうか。お教え下さい。

No.2 ベストアンサー 回答者： tom04 回答日時： 2013/08/20 21:18

こんばんは！

単純に

Sub Sample1()
Range(Cells(11, 79), Cells(420, 79)).Formula = "=IF(OR($G11="""",COUNTIF(H11:BN11,""ｋ"")>0),"""",INT(AVERAGE(H11:BN11)*10+0.5)/10)"
End Sub

ではどうでしょうか？

※　相対参照にしていますが、絶対参照の場合は「$」マークを通常の関数のように追加してください。

※　検証はしていませんので的外れならごめんなさいね。m（_ _）m

この回答へのお礼

ありがとうございました。問題なくできました。こんなに簡単な式になるのですね。感激です。(^o^)v

お礼日時：2013/08/20 21:31

No.1 回答者： naktak 回答日時： 2013/08/20 20:17

目視の確認ですが、

INT(AVERAGE("H11:BN11")
ここのダブルクォーテーション2つが邪魔してますよ。
他は見つけてません。

この回答への補足

早速の御返事ありがとうござしました。
指摘していただいたとおりにSheets("評定").Cells(i + 10, 79).Formula = "=IF(OR($G" & i + 10 & "=" & Chr(34) & "" & Chr(34) & ",COUNTIF(H11:BH11," & Chr(34) & "ｋ" & Chr(34) & ">0)," & Chr(34) & "" & Chr(34) & ",INT(AVERAGE(H11:BN11)*10+0.5)/10))"としてみましたが、やはり同じエラーになります。（因みにCOUNTIF("H11:BH11,"は打ち間違いで、COUNTIF(H11:BN11,"でした。すみません。）

補足日時：2013/08/20 21:06