|
▼かみちゃん さん:
早速の回答有難う御座います。流石感心しております。株式です。
今日は時間とれず、明日教えていただいた分トライします。
>こんにちは。かみちゃん です。
>
>横から失礼します。
>
>> '=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かと思いますが、環境がないので、動作確認はしていません。
|
|