|
▼(。。j) さん:
こんにちは。
>以前に教えていただいた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
with crng
.Value = .Value
.Font.ColorIndex = 0
end with
> Next
> End If
> Else
> MsgBox "複数(二つ以上のセル範囲を選択してください"
> End If
> End If
> On Error GoTo 0
>End Sub
こんなとこでしょうか?
|
|