ユーザー名を宣言しているときにVBAでオブジェクトにエラーが発生しました

Question

こんにちは私はデータを移動する以下のコードを持っています。これは、デフォルトのシート名が使用されている場合に問題ありません。しかし、シートに別の名前（sheet1、sheet2ではなく）を使用すると、「Object required」エラーが発生します。

ここで、「待ち時間」はsheet1であり、「TP」はsheet2である。

誰かが私にそれを修正する方法を教えてもらえますか？

Sub sbMoveData() 
Dim lRow As Integer, i As Integer, j As Integer 
'Find last roe in Sheet1 
lRow = Latency.Cells.SpecialCells(xlLastCell).Row 
j = 1 
For i = 1 To lRow 
If UCase(Latency.Range("E" & i)) = "COMPATIBLE" And UCase(Latency.Range("O" & i)) = "Pass" Then 
Sheets("Latency").Range("M" & i).Copy Destination:=Sheets("TP").Range("A" & j) 
j = j + 1 
End If 
Next 

End Subの

Answer 1

、あなたは右のライン

Worksheets("Latency").Range("M" & i).Copy Destination:=Worksheets("TP").Range("A" & j) 

でそれをやったが、それは目的であったかのようにあなたがLatencyを使用し、前それはちょうど名前ですが。その名前でシートオブジェクトを取得するには、あなたがSheet1.Rangeを行う場合は、必ずsheets("name")、またはWorksheets("name")

Sub sbMoveData() 
    Dim lRow As Integer, i As Integer, j As Integer 
    'Find last roe in Sheet1 
    With Worksheets("Latency") 
     lRow = .Cells.SpecialCells(xlLastCell).Row 
     j = 1 
     For i = 1 To lRow 
      If UCase(.Range("E" & i)) = "COMPATIBLE" And UCase(.Range("O" & i)) = "Pass" Then 
       .Range("M" & i).Copy Destination:=Worksheets("TP").Range("A" & j) 
       j = j + 1 
      End If 
     Next 
    End With 
End Sub 

Answer 2

これを試してみてください。

If UCase(Latency.Range("E" & i)) = "COMPATIBLE" And UCase(Latency.Range("O" & i)) = "Pass" Then 
Worksheets("Latency").Range("M" & i).Copy Destination:=Worksheets("TP").Range("A" & j) 
j = j + 1 
End If 

Answer 3

を使用するには、VBAが自動的に宣言するグローバルスコープWorksheetオブジェクトを参照しています。その "フリー"オブジェクトはデフォルトでThisWorkbook.Worksheets("Sheet1")を指しており、Worksheetsコレクションからまったく同じオブジェクトリファレンスをフェッチするのではなく、それを使用することは非常に良いアイデアです。あなたがそのSheet1ワークシート「レイテンシー」とラベルされた場合

は今、あなたはそのNameを設定ではなく、そのCodeNameてきた - そしてそれは、VBAを使用すると、コード内で使用できるグローバルな識別子を作成するために使用しますCodeNameです。あなたはプロパティ toolwindow（F4）でそれを変更することができます

お知らせ(Name)（最初の）プロパティには、まだ "シート1" と言いますか？ Latencyにそれを変更し、今、このコードが有効になる：

lRow = Latency.Cells.SpecialCells(xlLastCell).Row 

を今、あなたはLatencyグローバル識別子を使用して起動したら、はどこにでもそれを使用する - 行くとまったく同じのフェッチを開始しません。 ActiveWorkbook.WorksheetsまたはActiveWorkbook.Sheetsコレクションのワークシート参照これに代えて

は：

Sheets("Latency").Range("M" & i).Copy 

あなたはそれを行う：

Latency.Range("M" & i).Copy 

も、他のシートについても同じ操作を行います。 Sheetsコレクションには、ワークシートだけでなく、チャートを含めることができます。を実行すると、コレクションからワークシートオブジェクト参照を取得できます（たとえば、実行時に作成したワークシートから）。コレクションを使用する必要があります。

また、適切にindenting（免責事項：このリンクは私のペットプロジェクトのウェブサイトを指しています）のコードも見てください。