Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10444 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21847】すぐ前に同じ様な質問があるのですが VBA初心者 05/2/1(火) 22:01 お礼[未読]
【21848】Re:一番最後の文字より後ろの文字列を取得... かみちゃん 05/2/1(火) 22:28 回答[未読]
【21891】Re:一番最後の文字より後ろの文字列を取得... VBA初心者 05/2/2(水) 20:48 お礼[未読]
【21847】すぐ前に同じ様な質問があるのですが
お礼  VBA初心者  - 05/2/1(火) 22:01 -
引用なし
パスワード
   初歩的な質問ですいませんが、
セル内(ここではcells(i,1)とします)に
"..\..\○○○\△△△"
という文字があるのですが、
この文字の"..\..\○○○\"を削除して"△△△"を残したいのですが、
○○○の文字数が決まっていないので,
cells(i,1) = Mid(cells(i,1),11)
と言った式が使えません。
\のフォルダを示す部分自体が決まっていないので良く分かりません。

何か良い方法は有りますでしょうか？
【21848】Re:一番最後の文字より後ろの文字列を取...
回答  かみちゃん  - 05/2/1(火) 22:28 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>この文字の"..\..\○○○\"を削除して"△△△"を残したいのですが、

以下のとおりです。
Sub Macro1()
　With Cells(1, 1)
　　MsgBox Mid(.Value, InStrRev(.Value, "\") + 1)
　End With
End Sub
Sub Macro2()
　MsgBox Mid(Cells(1, 1).Value, InStrRev(Cells(1, 1).Value, "\") + 1)
End Sub
【21891】Re:一番最後の文字より後ろの文字列を取...
お礼  VBA初心者  - 05/2/2(水) 20:48 -
引用なし
パスワード
   ▼かみちゃん さん：

ありがとうございます。
若干変形しないと使えませんでしたが、これで解決しました。
質問が、いつも曖昧でスイマセン。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10444 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free