|
ご教示有難う御座います。教えて頂いたマクロを走らせると、まだ
'=RSS|'4498.T'!現在値
の先頭の ’が除去出来ず文字関数のままです。これを除去し数式関数にしたく、宜しくご教示御願い致します。
>> '=RSS|'4498.T'!現在値
>>等の文字式が変換入力される。この文字式の左端の ' を除去して数式としたく。
>
>その前に以下のスレッドと関係があるのでしょうか?
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=46773;id=excel
>上記スレッドの[46787]の結果はどうなったのでしょうか?
>
>>この場合下記文のActiveCell.FormulaR1C1 = Range(" ").Formula の中の
>>(" ") ここの箇所はどの様な文を入れればよいでしょうか?
>
>コード全体に無駄がありますので、以下のようにしたほうがいいかと思います。
> Dim r As Range
>
> If TypeOf Selection Is Range Then
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
> Application.CutCopyMode = False
> For Each r In Selection
>' Selection.Copy
>' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>' :=False, Transpose:=False
>' Application.CutCopyMode = False
>' ActiveCell.FormulaR1C1 = Range(" ").Formula
> If Left(r.Value, 1) = "'" Then
> r.Formula = Mid(r.Value, 2)
> End If
> Next
> End If
>
>なお、株式関連のRSSかと思いますが、環境がないので、動作確認はしていません。
|
|