右となりにシートがあると判断できる、エクセルＶＢＡの記述

質問

右となりにシートがあると判断できる、エクセルＶＢＡの記述を教えていただけませんでしょうか。よろしくお願いいたします。

回答No.1

f272 · ベストアンサー

こんな感じ？
If ActiveSheet.Index = Worksheets.Count Then
MsgBox "一番右のシート"
Else
MsgBox "右にまだシートがある"
End If

回答No.5

OtenkiAme

こんにちは。

訂正です。
ワークシート以外を考慮していませんでした。<(_ _)>
（訂正箇所は変数の宣言のところです。WorkSheet => Object）

Sub test()

　　Dim mySht As Object

　　On Error Resume Next
　　Set mySht = ActiveSheet.Next
　　On Error GoTo 0

　　If mySht Is Nothing Then
　　　　MsgBox "右端のシートです。"
　　Else
　　　　MsgBox "右隣に" & mySht.Name & "があります。"
　　End If

　　Set mySht = Nothing

End Sub

回答No.4

OtenkiAme

こんにちは。

別案で……

Sub test()

　　Dim mySht As Worksheet

　　On Error Resume Next
　　Set mySht = ActiveSheet.Next
　　On Error GoTo 0

　　If mySht Is Nothing Then
　　　　MsgBox "右端のシートです。"
　　Else
　　　　MsgBox "右隣に" & mySht.Name & "があります。"
　　End If

　　Set mySht = Nothing

End Sub

回答No.3

hige_082

こう言う事？

Sub test()
If ActiveSheet.Index < Sheets.Count Then
MsgBox "右となりにシートがある"
Else
MsgBox "右となりにシートはない"
End If
End Sub

回答No.2

n-jun

シート１～３でシート３について調べる。

If Worksheets("Sheet3").Index < Worksheets.Count Then
MsgBox "右にシートがある"
Else
MsgBox "右にシートはない"
End If

とかかな。