|
題名長くてすいません。
以前教えていただいたVBに追加していただきたくお願いします。
下記は以前、数式だけ入ったセルとその数式から答えが導き出されているセルを同時に選択して、答えが導き出されたセルだけを'値の貼り付け’の様に数式を消し値だけにしてもらった式で、値が張り付けられた場所は赤い文字から黒い文字に変わるのですが。。。一番上のセルには日付が入っているので、上から2番目のセルに値が張り付けられたセルの数を表す式を追記して頂きたいのですが。。。
意味わからなかったらすいません、よろしくお願いします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
crng.Value = crng.Value
Next
End If
Else
MsgBox "複数(二つ以上のセル範囲を選択してください"
End If
End If
On Error GoTo 0
End Sub
|
|