
エクセルで表現すれば、=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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) エクセル VBAの構文について 2 2023/02/10 18:26
- その他(データベース) 「1004:アプリケーション定義またはオブジェクト定義のエラー」への解消方法に関して 1 2023/07/09 11:47
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- MySQL php テーブルを作れない 2 2022/11/17 18:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
【マクロ】エラー【#DIV/0!】が...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
【エクセル】ハイパーリンク先...
-
DataGridView からの値取得に関...
-
OLEDB.NETで接続できない
-
VB6+SQL サーバー 2000 で 実行...
-
【Excel VBA】マクロをボタンに...
-
マクロについて教えてください...
-
ACCESSのエラーで困っています
-
ExcelVBA Range クラスの Page...
-
エラーでつまってます・・・お...
-
vbaのvlookup関数エラー原因を...
-
ExcelのVBAのAutoFillの使い方...
-
「コンパイルエラー:プロシー...
-
VBAでのエラー
-
VBA:「中断モードでは入力でき...
マンスリーランキングこのカテゴリの人気マンスリー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...
おすすめ情報