VBAで条件一致させる方法

Question

レポートとシートがあれば一致しているなければ一致しないと言う簡単な下記のようなif文を作成しました。

Sub test()

Dim ws As Worksheet
Set ws = Worksheets("レポート")

If ws = Sheets("レポート") Then

MsgBox "一致している"

Else

MsgBox "一致してない"

End If

End Sub

ただこのまま実行してもエラーで４３８が返ってきます。
現状シートの取得が間違っているかif文の条件一致の文法ミスかわからない状態です。

指定のシートを取り出し取り出したものと一致してるかどうかのプログラムをif文の理解とシート取得の理解を深めるために教えて頂きたいです。
宜しくお願い致します。

参考にした記事

シート取得：https://www.tipsfound.com/vba/10001
if文:https://www.fastclassinfo.com/entry/excel_vba_if

OS：macOS Catalina バージョン10.15.3
Excelバージョン： Microsoft Excel for Mac バージョン16.39

Answer 1

オブジェクトを比較するときは、
Is演算子を使います。

Sub test()
    Const s As String = "Sheet2"
    Dim ws As Worksheet
    Set ws = Worksheets(s)

    If ws Is Sheets(s) Then
        MsgBox "一致している"
    Else
        MsgBox "一致してない"
    End If
End Sub

もちろんシート名（文字列）で比較するのもありです。

両方知っておいた方がいいと思います。

比較対象がセルだとIs演算子で比較してもTrueにならないので、
セルアドレス(文字列）で比較します。

Sub test2()
    Dim c As Range
    Dim flg As Boolean
    Set c = Range("A1")
    
    If c Is Range("A1") Then
        flg = True
    Else
        flg = False
    End If
    
    MsgBox CStr(flg)
End Sub

なんでかはネットで検索願います。

Comments

[mako1972]

ありがとうございます。勉強になります。

[taka-hoop]

ご返答ありがとうございます！
細かな回答ありがとうございます！非常に勉強になります。
わからない箇所とコードで色々検索してみます。

ありがとうございます！

Answer 2

これがしたいのでしょうか・・。

参考URLにも書いてありますね。Debug.Print(ws.Name)の部分ですね。

Sub test()

Dim ws As Worksheet

Set ws = Worksheets("レポート")

If ws.Name = "レポート" Then

MsgBox "一致している"

Else

MsgBox "一致してない"

End If

Set ws = Nothing



End Sub

set ws としたのですから、

ws.range("A1").value="test"などと使えるようになります。
ws.と入力した時点でいろいろな入力候補を確認できます（使えるようになります）。

Comments

[taka-hoop]

ご回答ありがとうございます！
まさにこれがしたかった事です！！
if文の書き方が悪かったのですね。比較するシートの記述はSheets("レポート")に囲まなくて良いのと
set wsとするとws.Nameのように指定してあげないといけない

のような理解であっていますでしょうか？

[mako1972]

>>比較するシートの記述はSheets("レポート")に囲まなくて良い

すみません意味がわかりません。あえて記述すると、下記のようにも書けます。
意味があるかは別にして・・・。

a = Sheets("レポート").Name

if a="レポート" then
msgbox "XX"
else
msgbox "XX"
end if

et wsとするとws.Nameのように指定してあげないといけない
のような理解であっていますでしょうか？

→その通りだと思います。いけないというよりは、そのためにsetしているという
方が正解だと思います。set した変数wsを使わないのはsetした意味がないので・・。

[taka-hoop]

返答ありがとうございます！

すいませんif文の書き方をまだ理解できておらずで、条件で比較するものは”レポート”のように文字列で比較するだけで良かったのか！といった感じです。
今if文の参考記事見返すと大体の例が上記のように記述されていて気が付きませんでした。

非常にわかりやすかったです！

[mako1972]

10個のシートがあるとして、sheetをindex番号で呼び出して
シート名を判定するなどもよくやりますね。

Sub test()
Dim i As Integer

Dim a As String

For i = 1 To 10

a = Sheets(i).Name

If a = "レポート" Then

MsgBox "レポートです！"
End If

Next

End Sub

[taka-hoop]

ご返答ありがとうございます！
それもまさに実装しようと思ってたイメージに近いです！
ご丁寧にありがとうございます！

[mako1972]

そういわれると、下記も示さないとだめですか・・。
ワークシート数を自動取得するよう書き換えるとなお汎用性がありますね。

For i = 1 To Worksheets.Count

next

[taka-hoop]

ご返答ありがとうございます！
ほんとに細かく教えて頂きありがとうございます！！
とても助かります！

[mako1972]

模範的な反応！ありがとうございます。