[[20230307230159]]　『VBA Selection.value＝Selection.valueについて教』（ケン）　ページの最後に飛ぶ

『VBA Selection.value＝Selection.valueについて教えてください』（ケン）

 いつもお世話になってます。

以下のVBAですがSheet1で実行する場合は問題ないのですが、他のシートで実行すると　

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

とエラーが出てしまいます。
解決する方法を教えてください。
よろしくお願いいたします。

   Dim i As Integer

    i = WorksheetFunction.Match(Sheets("Sheet1").Range("AU3"), Sheets("Sheet1").Range("A3:AN3"), 0)
    Sheets("Sheet1").Range(Cells(3, i), Cells(10, i)).Value = Sheets("Sheet1").Range("AU3:AU10").Value

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

Sheets("Sheet1").Range(Cells(3, i), Cells(10, i))
この部分がNGです。
Sheets("Sheet1").Range(Sheets("Sheet1").Cells(3, i), Sheets("Sheet1").Cells(10, i))
とCellsのほうにもシート指定が必要です。
普通は With ステートメントを使って見やすいものに変更します。

割と頻繁に出てくるFAQで、どなたも最初はヤラれます。

（abc） 2023/03/07(火) 23:27:39

abcさんありがとうございます。

＞＞割と頻繁に出てくるFAQで、どなたも最初はヤラれます。
そうなんですね、ググっても見つからずこちらで質問させて頂きました。
早速のご回答ありがとうございました。

（ケン） 2023/03/07(火) 23:35:25

コメント返信：

[ 一覧(最新更新順) ]

[[20230307230159]] 『VBA Selection.value＝Selection.valueについて教』（ケン） ページの最後に飛ぶ

[[20230307230159]]　『VBA Selection.value＝Selection.valueについて教』（ケン）　ページの最後に飛ぶ