|
> ここで反転後,F5で数式を選んでOK。そしてDELを押すと
> 値も消えてしまいました。
> 値を残し,数式だけを消す方法はございますでしょうか?
「まったくの初心者です。」さんのやりたいことの解釈が違ったようですね。(^^;)>
「値を残し、数式だけを消す」というよりも「数式は値として貼り付けたい」
ということではないでしょうか?
そうすると1つはジャンプをやめて、
・最初に普通に貼りつけ。(書式や罫線をコピーするため)
・次に同じ物をコピー→形式を選択して貼りつけ→値(これにより数式を値にする)
とするか、もしくはジャンプ機能までは一緒で、
Sub サンプル2()
Dim 該当セル As Range
Dim 各々のセル As Range
'ジャーンプ機能。
Set 該当セル = Range("A1:E14").SpecialCells(xlCellTypeFormulas, 23)
If 該当セル Is Nothing Then
MsgBox "数式セルはありません。"
Else
'ジャンプで選ばれたセルの1つ1つを処理する。
For Each 各々のセル In 該当セル
'値として設定しなおす。
各々のセル.Value = 各々のセル.Value
Next
End If
End Sub
とするか。でしょうか。
ちなみに上記のマクロの
各々のセル.Value = 各々のセル.Value
が「同じ内容を設定してなんの意味があるの?」と感じるかもしれませんが、
数式が入っているセルを1つ選んだ状態で以下のマクロを動かしてもらえると
わかって頂けるかな〜?と。
Sub セルの内容をいろいろな角度で表示()
MsgBox ActiveCell.Value '値として表示
MsgBox ActiveCell.Formula '数式として表示
MsgBox ActiveCell.FormulaR1C1 '数式(R1C1形式)として表示
End Sub
で、値として捉えた内容をそのまま設定し直しているのです。
(回答としてあってるかな?)
|
|