|
こんにちは。
以前に教えていただいたVBに追加していただきたくお願いします。
下記は以前、数式だけ入ったセルとその数式から答えが導き出されているセルを同時に選択して、答えが導き出されたセルだけを'値の貼り付け’の様に数式を消し値だけにしてもらった式なのですが・・・。その答えが導き出されて、値だけになると同時に赤から黒の文字に変えたい場合はどうすればいいのでしょうか?文字は全て初めから赤くしています。宜しくお願いしますm(_ _)m
Sub 値段の決定()
Dim rng As Range
On Error Resume Next
Set rng = Selection
If Err.Number = 0 Then
If rng.count > 2 Then
Set rng = rng.SpecialCells(xlCellTypeFormulas, xlLogical + xlNumbers + xlTextValues)
If Err.Number = 0 Then
For Each crng In rng.Areas
crng.Value = crng.Value
Next
End If
Else
MsgBox "複数(二つ以上のセル範囲を選択してください"
End If
End If
On Error GoTo 0
End Sub
|
|