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