Excelでサイトマップ作成ソフトを作ってみよう
Step 9 ラベルかどうか#を検索し、見つかればラベル部分を取り除く
Instrでラベルの#を捜し、見つかればLeftで#以下を取り除いたURLを取得する。Homeへ > Excelでアプリケーションソフト２ > サイトマップ作成ソフト
シート画面
実行中の画面
シートのVBAコード
下記のVBAコードに変更してください。
'ラベルなら#以下を取り除く
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
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へ > Excelでアプリケーションソフト２ > サイトマップ作成ソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved