シートが存在する場合は、サブを実行します。そうでない場合は、メッセージを表示してサブを終了してください

Question

他のスレッドでこのトピックを参照しているにもかかわらず、私は立ち往生しています。

マクロで「転送」という名前のシートが見つかった場合は、そのシートを有効にして残りのシートを実行して「転送」を最後のシートにしたいと思います。

「転送」という名前のシートが見つからない場合は、メッセージを送信してください（データシートの名前を「転送」としてください）。あなたのアイデアは、ワークシートをアクティブ化しようとすることであり、これが失敗した場合、エラーが発生したことよりも、注意してください。

Sub Double_Transfer_Report() 
Dim er As Boolean 
er = False 

On Error Resume Next 
'Worksheets("Transfers").Activate 
er = true 

If er Then 
MsgBox ("Please make sure that you renamed your data sheet : Transfers) 
Exit Sub 
End If 

ActiveSheet.Move _ 
After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 

Answer 1

が機能していません。

下図のようにあなたのコードを変更することができます。変更が関係をメソッドが失敗した後、Errオブジェクトにはt彼は別のエラーが発生するか、別のOn Errorステートメントが出現するまでエラー番号（および他の詳細）を表示します。ブール値のerを論理テストErr.Number <> 0に設定すると、エラーが発生したことが検出されます。

Sub Double_Transfer_Report() 
    Dim er As Boolean 

    er = False 
    On Error Resume Next 
    Worksheets("Transfers").Activate 
    er = (Err.Number <> 0) 
    On Error GoTo 0 

    If er Then 
     MsgBox "Please make sure that you renamed your data sheet : Transfers)" 
    Else 
     ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 
    End If 
End Sub 

Answer 2

エラーオブジェクトで体操をしないでください。シートがループしているかどうかを確認するだけです。

---

Sub Double_Transfer_Report() 
    Dim found As Boolean 

    found = SheetExists("Transfers") 

    If Not found Then 
     MsgBox "Please make sure that you renamed your data sheet : Transfers" 
    Else 
     ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 
    End If 
End Sub 

Function SheetExists(strSheetName As String) As Boolean 

    Dim wks As Worksheet 

    For Each wks In ThisWorkbook.Worksheets 

     If wks.Name = strSheetName Then 
      SheetExists = True 
      Exit Function 
     End If 
    Next 

    SheetExists = False 

End Function 

Answer 3

あなたがどこかに二つのセルを割くことができた場合は、ループやエラー処理の両方を避けることができ、我々はB1とB2を使用すると言います。 B1場所で提案されているワークシート名と使用B2を埋める：それことを言っていない、

Answer 4

ちょうど別のアプローチを：B2にブール結果を確認後

Range("B2").Value = "=ISNUMBER(ROWS(INDIRECT(""'""&B1&""'!A1"")))" 

をCyboashu（または他の答え）よりも優れています。

は、SheetExistsとしてXl4Macro名前付き範囲を作成し、Referstoでこれを置く：=SUBSTITUTE(GET.WORKBOOK(1),"[" &GET.WORKBOOK(16)&"]","")

今、あなたは、この（配列）の式を追加することができ、その利用可能な場合、それはシートの実際のインデックスをバック返します任意のシートに。

{=MATCH("Sheet1091",TRANSPOSE(SheetExists),0)}

物事のちょうど別の方法:)

Then`がTrueの場合Then` `のように書き換えることができER場合