コンテンツをクリアするときにExcel VBAで「ランタイムエラータイプ13タイプの不一致」を解決するにはどうすればよいですか？

-1

いくつかのセルからコンテンツをクリアするVBAコードがあります。これらのセルのほとんどにはデータ検証があるため、オプションのリスト（yes、no、NA）から値を選択する必要があり、残りはすべてのタイプのデータに対して開いています。

コードを初めて実行するためのボタンをクリックすると、次のエラーが表示されます（[終了]をクリックしても、ボタンをクリックしてもエラーは表示されません）。

私は他の質問をチェックし、問題をグーグルで調べました。異なるタイプの値を追加することと関係があるようですが、私は内容をクリアするだけなので、これは問題ではないはずです。

これが私のコードです。エラーは最初のクリアコンテンツで発生します（セルC5：D5の行8）：

Sub ReiniciarRef()
'
' ReiniciarRef Macro
'

'
    Range("C5:D5").Select
    Selection.ClearContents 
    Range("C7").Select
    Selection.ClearContents
    Range("C9:G10").Select
    Selection.ClearContents
    Range("C13:G13").Select
    Selection.ClearContents
    Range("C16:G16").Select
    Selection.ClearContents
    Range("C18").Select
    Selection.ClearContents
    Range("C23:D23").Select
    Selection.ClearContents
    Range("C25").Select
    Selection.ClearContents
    Range("C27:G28").Select
    Selection.ClearContents
    Range("C31:G31").Select
    Selection.ClearContents
    Range("C34:G34").Select
    Selection.ClearContents
    Range("C36").Select
    Selection.ClearContents
    Range("C41:D41").Select
    Selection.ClearContents
    Range("C43").Select
    Selection.ClearContents
    Range("C45:G46").Select
    Selection.ClearContents
    Range("C49:G49").Select
    Selection.ClearContents
    Range("C52:G52").Select
    Selection.ClearContents
    Range("C54").Select
    Selection.ClearContents
    Range("C59:D59").Select
    Selection.ClearContents
    Range("C61").Select
    Selection.ClearContents
    Range("C63:G64").Select
    Selection.ClearContents
    Range("C67:G67").Select
    Selection.ClearContents
    Range("C70:G70").Select
    Selection.ClearContents
    Range("C72").Select
    Selection.ClearContents
    Range("C77:D77").Select
    Selection.ClearContents
    Range("C79").Select
    Selection.ClearContents
    Range("C81:G82").Select
    Selection.ClearContents
    Range("C85:G85").Select
    Selection.ClearContents
    Range("C88:G88").Select
    Selection.ClearContents
    Range("C90").Select
    Selection.ClearContents
    Range("C5:D5").Select
End Sub

前もって感謝します

— カール
ソース

正確にどの行がエラーをスローしていますか？どのセルが失敗の原因であり、それらのセルのデータ型は何ですか？あなたはすでにそれを解決しようとしましたか、そして結果は何でしたか？

— Ƭᴇcʜιᴇ007

行とセルを表示するように編集しました。データはドロップダウンリストからのテキストであり、不一致が表示されないため、何を試すべきかわかりません。

— カール

サブルーチンの先頭にブレークポイントを置き、エラーをスローする（最初の）行が見つかるまでステップ実行します。おそらくこのSUの質問を確認してください。Excel/ OpenOffice / LibreOfficeマクロをデバッグするには

— はじめに-Ƭᴇcʜιᴇ00716

エラーは、おそらく「変更時に」トリガーされる検証によってスローされています。試してください：

    Application.EnableEvents = False

    Range("C5:D5").Select
    Selection.ClearContents
    [...]

    Application.EnableEvents = True
End Sub

— ヨリク
ソース