|
こんにちは。かみちゃん です。
横から失礼します。
> '=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かと思いますが、環境がないので、動作確認はしていません。
|
|