VBAにおいて、エラー原因は？

Question

VBA

初めまして。VBA初心者です。
現在13(N)列目をリフレッシュするようなマクロを組みたいのですが、エラーコードが出てしまい
地道に改善を試みているのですが、どの部分でのアプリケーション定義、またはオブジェクト定義のエラーかわかりません。

もし可能であれば、ご指摘いただけますと幸いです。
よろしくお願いいたします。

以下、エラー内容とコードです。

★エラー内容
アプリケーション定義、またはオブジェクト定義のエラーです

Sub ステータス変更()

Dim rowsData As Long '行数カウント用の変数
Dim adook As Workbook
Dim asheet As Worksheet

Workbooks("【研修用】【販売管理システム】顧客情報.xlsx").Activate '書き込み先ブックをアクティブにする

Set abook = ActiveWorkbook
Set asheet = abook.Sheets("顧客情報")

rowsData = asheet.Cells(Rows.Count, 1).End(xlUp).Row '最後の行数を取得

asheet.Range(Cells(2, 13), Cells(rowsData, 13)).Value = ""

End Sub

Answer 1

実際のコードをそのままコピペしたものですか。だとしたら、
Dim adook As Workbook
は、正しくは、
Dim abook As Workbook
ですね。

ただ、エラーメッセージが異なるので別に原因があるのかも。
エラーが出たときに、エラーダイアログに「デバッグ」ボタンはないですか。
それを押すとエラーの発生したコードが選択表示されると思いますので、
そのコードを提示してください。

追記

m6uさんの回答で解決したとすると、原因は、
asheet.Range(Cells(2, 13), Cells(rowsData, 13)).Value = ""
の Cells に asheet. が付いてないことかな。
asheet.Range(asheet.Cells(2, 13), asheet.Cells(rowsData, 13)).Value = ""
とすべきですね。前者だと asheet がアクティブなとき以外はエラーになります。
Cells(2, 13)は、ActiveSheet.Cells(2, 13) という意味になりますので。

ということで、推奨のコードは下記になります。

With asheet
    .Range(.Cells(2, 13), .Cells(rowsData, 13)).ClearContents
End With

Comments

[退会済みユーザー]

VBAのソースを手打ちで転記したものでなく、コピペしたものだとしたら、その可能性が大ですね！

[退会済みユーザー]

言われてみれば、Cellsの親がないと、そりゃダメですね

Answer 2

エラーが出ているのはこの行でしょうか？
asheet.Range(Cells(2, 13), Cells(rowsData, 13)).Value = ""

セル範囲をRangeで指定しながらの.Valueは使えないんじゃないでしょうか。

Dim r As Long
For r = 2 To rowsData
  asheet.Cells(r, 13).Value = "" 
Next

をお試しください。

Comments

[hatena19]

asheet.Range(Cells(2, 13), Cells(rowsData, 13)).Value = ""
は問題なく使えると思います。ただ、
asheet.Range(Cells(2, 13), Cells(rowsData, 13))..ClearContents
とするのが一般的かな。

[退会済みユーザー]

カラ文字列、というデータをセルに格納することになって、
ほんとうの意味での未使用セルにならないから、
意図的に消すときは必ずClearContentsを使うべきですよね。
Rangeで矩形範囲指定もできるし。