Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15651 / 76734 ←次へ | 前へ→

【66558】以前の式に確定したセルの数がでるようにしたい。
質問  (。。j)  - 10/9/10(金) 11:10 -

引用なし
パスワード
   題名長くてすいません。
以前教えていただいた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
1 hits

【66558】以前の式に確定したセルの数がでるようにしたい。 (。。j) 10/9/10(金) 11:10 質問

15651 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free