投稿/コメントを表示します。

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.02

円崎雄一さんの投稿

(投稿ID: 184)

いつもお世話になります。
問題４の中での質問になります。
発展編の内容とは関係がない部分での質問で申し訳ありません。

"印刷"の文字を抽出するために、Mid関数とLen関数を使いました。
（Right関数が思いつかなかったため）

イミディエイトウィンドウでは、"印刷"の文字が抽出できているように
見えるのですが、IF文の分岐がうまくできませんでした。
（タブの色付けを実行しないでEnd Ifに行ってしまいます）
Sub Mondai4()
    Dim w As Worksheet
    For Each w In Worksheets
        Debug.Print w.Name
        Debug.Print Mid(w.Name, Len(w.Name) - 1)
        Debug.Print Right(w.Name, 2)
        
        If Mid(w.Name, Len(w.Name) - 2) = "印刷" Then   '【Rightが思いつかず、Midでやりました】
        'If Right(w.Name, 2) = "印刷" Then 【お手本の答え】
        
        w.Tab.ColorIndex = 13
        End If
    Next
End Sub

Right関数で得られた値と、どのように違うのかがわかりませんでした。
どうぞよろしくお願いいたします。
2014/05/28 23:49