オブジェクトはこのプロパティまたはメソッドをサポートしていませんVBAループは終了しません

Question

こんにちはすべて私はVBAシーンにはとても新しいです！私はこのコードに問題があります。私はF8キーを押すと上がってくるエラー・コードはありません...それで何が起こっているのかをうまくしようとしているが、それはif文

Sub testing() 
Dim ws As Worksheet 
Dim xRow As Integer 
xRow = 1 


With Me 
    .Columns(1).ClearContents 
    .Cells(1, 1) = "ROLES" 
    .Cells(1, 1).Name = "Roles" 
End With 

For Each ws In Application.Worksheets 
    If ws.Name <> Me.Name Then 
     xRow = xRow + 1 
     With ws 
      .Range("A1").Name = "Start_" & ws.Index 
     End With 
    End If 
Next 
Application.Sceeenupdating = True 

End Subの

Answer 1

にループし続けますコードが正常に機能していますか？視覚的に私はそれが失敗することがわかりますws.Name <> Me.Nameその後、次にApplication.Sceeenupdating = True - Siddharth Rout 11分前

あなたはすべてのシートの名前をSheet1のCol 1？ - シッダールタ敗走は2分前

を編集@SiddharthRoutはい、正確に - 13秒前ゾーイ・チュー

は、あなたがしようとしている何本か？

Sub testing() 
    Dim ws As Worksheet, wsMain As Worksheet 
    Dim xRow As Long 

    '~~> This is the sheet which will have sheet names 
    '~~> in Col 1 ("A") 
    Set wsMain = ThisWorkbook.Sheets("Sheet1") 

    Application.ScreenUpdating = False 

    With wsMain 
     .Columns(1).ClearContents 
     .Cells(1, 1) = "ROLES" 
     .Cells(1, 1).Name = "Roles" 

     xRow = 2 

     For Each ws In ThisWorkbook.Worksheets 
      If ws.Name <> wsMain.Name Then 
       .Cells(xRow, 1).Value = ws.Name 
       xRow = xRow + 1 
      End If 
     Next 
    End With 

    Application.ScreenUpdating = True 
End Sub 

Answer 2

Application.Sceeenupdating = True

でなければなりません

Application.ScreenUpdating = True

あなたはVBAエディタで、次のオプション設定した場合、これはもう少し明らかであろう。

ツール]> [オプション]> [セット「すべてのエラーでブレークする」エラートラップ

その後、デバッグをクリック

でポップアップする必要があり210

あなたは...に