| |
▼Avene さん：
質問は、
>>name以降を削除する方法がわかりません。
ですよね
>>> F.Value = Left(D.Value, InStrRev(D.Value, "date") + 1)
date 何のことですか？
InStrRev(D.Value, "date")は、
文字列 D.Valueを右から調べて、はじめに見つかった
文字列dataが文字列 D.Valueの（左から)何番目の文字かを調べています
一度InStrRev(D.Value, "date")がどんな数値化調べれば
文字列 D.Valueのどの位置を示しているかわかるはずです
>▼sa さん：
>
>ありがとうございます。
>
>>Mid の代わりに Leftを使ってみてください
>
>Left を使い下記のマクロで実行してみたのですが
>なぜか「name〜」の 「na」部分だけのこってしまいます。
>
>実は、＋１とかの意味がわかっていないのですが
>これはどういう意味なのでしょうか？
>ご教授お願いいたします。。
>
>
>>>＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
>>>
>>>Sub test()
>>>
>>>Dim D As Range
>>>
>>>
>>> For Each D In Range("A1", Range("A65536").End(xlUp))
>>> D.Value = Mid(D.Value, InStrRev(D.Value, "\") + 1)
>>> Next
>
>>> For Each F In Range("A1", Range("A65536").End(xlUp))
>>> F.Value = Left(D.Value, InStrRev(D.Value, "date") + 1)
>>> Next
>
>>>
>>>End Sub
>>>＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
|
|
sa
- 05/2/10(木) 15:25 -
