Excelでサイトマップ作成ソフトを作ってみよう

Step 9 ラベルかどうか#を検索し、見つかればラベル部分を取り除く

Instrでラベルの#を捜し、見つかればLeftで#以下を取り除いたURLを取得する。

Homeへ > アプリケーションソフト > サイトマップ作成ソフト > Step9 検索し見つかればラベルを取り除く


スポンサーリンク





シート画面

実行中の画面
ラベル検索を追加したシート

スポンサーリンク



シートコード

下記のコードに変更してください。

'ラベルなら#以下を取り除く
Private Function MyCheckLabel(shref As String)
    Dim ln As Long
    Dim s1 As String
    
    '#文字の検索
    ln = InStr(1, shref, "#")
    If ln <> 0 Then
        MyCheckLabel = Left(shref, ln - 1)
    Else
        MyCheckLabel = shref
    End If
End Function




Homeへ > アプリケーションソフト > サイトマップ作成ソフト > Step9 検索し見つかればラベルを取り除く

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved