VBA エラー'1004'とエラー'13'の原因

Question

Excel VBAに関しての質問

以下サイトの練習問題19を解いており、
https://excel-ubara.com/excel-answer/EXCELVBA619A.html
回答のサンプルを実行してみたのですが、

"単価の消去と少数設定"
の部分のclearcontentsをするところで

実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです。

とのエラーが出ます。

また、

"横合計と客単価"のところの
Cells(ix + 3, j) = Cells(ix + 1, j) / Cells(ix + 2, j)
ここの処理で

実行時エラー'13'
型が一致しません。

とエラーが出ます。

調べてみたのですが、原因が分からず
ご教授頂けますでしょうか。

よろしくお願い致します。

Answer 1

こちらで確認しましたが正常に終了しました。(excel2007です）
１．練習19のシートが表示されている状態でマクロを実行しましたか。
「練習19」を表示した状態でないと正しく動作しません。
２．それでもだめなら、念のためZIPファイルをダウンロードし、それを解凍し、
解凍後のファイルで試してください。
又、マクロは、「VBAをコピー」をクリックし、コピーし、それを標準モジュールに貼り付けてください。

Comments

[ntsuji]

ありがとうございます。
練習19のシートは開いていたのですが、別のシートのシートモジュールにコードを書いて実行していたようです。シートモジュールの名前がsheet19というものだったので間違えてしまいました。
練習19のシートで実行したら正常に動きました。ありがとうございました。

Answer 2

このサンプルコードはサンプルコードのみでは動きません。

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

この表がないと正常に動作しないようです。

Cells(ix + 3, j) = Cells(ix + 1, j) / Cells(ix + 2, j)

私の環境だとここのコードは表無しだとエラー6.オーバーフローになりました。
表がない空データであれば0/0をやっているので型が一致しないのもオーバーフローもなんとなくわかります。
/を+に変えれば問題なく動きはしますが、そもそも表をコピペしておけば全て動作しました。

Comments

[ntsuji]

ありがとうございます。
表は事前に用意されたものを使っていたのですが、別シートのシートモジュールに記述していたことで
エラーとなっていました。
お手数お掛けしました。