
エクセルで表現すれば、=IF(OR($G11="",COUNTIF(H11:BN11,"k")>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) & "k" & Chr(34) & ">0)," & Chr(34) & "" & Chr(34) & ",INT(AVERAGE("H11:BN11")*10+0.5)/10))"
next i
どのように書き換えればよいのでしょうか。お教え下さい。
No.2ベストアンサー
- 回答日時:
こんばんは!
単純に
Sub Sample1()
Range(Cells(11, 79), Cells(420, 79)).Formula = "=IF(OR($G11="""",COUNTIF(H11:BN11,""k"")>0),"""",INT(AVERAGE(H11:BN11)*10+0.5)/10)"
End Sub
ではどうでしょうか?
※ 相対参照にしていますが、絶対参照の場合は「$」マークを通常の関数のように追加してください。
※ 検証はしていませんので的外れならごめんなさいね。m(_ _)m
No.1
- 回答日時:
目視の確認ですが、
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) & "k" & Chr(34) & ">0)," & Chr(34) & "" & Chr(34) & ",INT(AVERAGE(H11:BN11)*10+0.5)/10))"としてみましたが、やはり同じエラーになります。(因みにCOUNTIF("H11:BH11,"は打ち間違いで、COUNTIF(H11:BN11,"でした。すみません。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
【マクロ】エラー【#DIV/0!】が...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAがブレークモードになっ...
-
VBAでのエラー
-
エクセルエラー13型が一致しま...
-
マクロについて教えてください...
-
Invalid procedure call or arg...
-
実行時エラー3001「引数が間違...
-
VBA IEの操作 ClassNameでエラ...
-
実行時エラー -'-2147417848
-
実行時エラー48発生時のDLL特定...
-
Excelで下記のようにマクロを作...
-
INSERT INTOステートメント構文...
-
なぜエラーになるのでしょうか...
-
【Excel VBA】マクロをボタンに...
-
カーソルオープンでエラー(ORA...
-
VBSで変数の宣言はできないので...
-
マクロでオートシェイプ内の文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー -'-2147417848
-
ExcelVBA Range クラスの Page...
-
マクロについて教えてください...
-
VBAでのエラー
-
【Excel VBA】マクロをボタンに...
-
実行時エラー48発生時のDLL特定...
-
EXCEL VBAマクロ中断でデバッグ...
-
なぜエラーになるのでしょうか...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
INSERT INTOステートメント構文...
-
VBAのエラー発生場所をメッセー...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
ADODB.Streamを使用してUTF-8を...
-
カーソルオープンでエラー(ORA...
-
Invalid procedure call or arg...
おすすめ情報