Excel VBA - アクティブなワークシートが最初のワークシートであるかどうかを確認します

Question

アクティブなワークシートがブックの最初のワークシートであるかどうかを確認する必要があります。このコードはまったく動作していませんが、正しい軌道に乗ることを期待しています。

Sub CheckFirstSheet() 
If Sheets(1) = ActiveSheet Then MsgBox "This is the first worksheet." 
If Sheets(1) <> ActiveSheet Then MsgBox "This is not the first worksheet." 
End Sub 

Answer 1

これは、あなたが行くここ

Sub test() 
If ActiveSheet.Index = 1 Then MsgBox "This is the first worksheet." 
If ActiveSheet.Index <> 1 Then MsgBox "This is not the first worksheet." 
End Sub 

Answer 2

あなたは=と<>と参照型を比較す​​ることはできません - あなたはIsを使用する必要があります。

Sub CheckFirstSheet() 
    If Sheets(1) Is ActiveSheet Then 
     MsgBox "This is the first worksheet." 
    Else 
     MsgBox "This is not the first worksheet." 
    End If 
End Sub 

Answer 3

単純です：

Sub CheckFirstSheet() 

If ActiveSheet.Index = 1 Then 
    MsgBox "This is the first worksheet." 
Else 
    MsgBox "This is not the first worksheet." 
End If 

End Sub