|
ご教示有難う御座います。
頂いたプログラムを走らせたのですが、まだ
'=RSS|'4498.T'!現在値
この文字式の左端の ' が残り文字認識となります。これを取り数式にしたく。宜しく御願いします。
******************************
>>この場合下記文の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かと思いますが、環境がないので、動作確認はしていません。
|
|