Excel VBA質問箱 IV

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

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


9141 / 76732 ←次へ | 前へ→

【73157】VBAで計算式入りセルの値を取得したい
質問  かなたん  - 12/11/22(木) 9:17 -

引用なし
パスワード
   計算式 =B5*1+E5*0.5+H5*0.5+K5*1+N5*0.2+Q5*0.1+T5*0.5 が入っているセルがあります。
そのセルの値(計算結果)をVBAで取得して利用したいと思っています。
その計算もVBAで行えばこのようなことで悩む必要はないですが、その計算結果は値を入れただけで出てくる方がいいと思っているため、このような方法を探しています。

その計算結果をどのように利用したいかというのは、
とあるセルをその値で割ったその値によってセルの色を変えるということです。
このマクロはすでに自分で作ってあります。
--------------------------------------------------------------------------
Sub ランク表示()
  On Error GoTo error_message
  Dim CP As Integer
  CP = Range("Z4").Value 'ここでEmpty値になってしまう
  Dim r As Integer
  r = 9
  Do Until Cells(r, 1) = ""
    If Cells(r, 1) / CP < 0.8 Then
      Rows(r).Interior.ColorIndex = 5
    ElseIf Cells(r, 1) / CP < 1 Then
      Rows(r).Interior.ColorIndex = 8
    ElseIf Cells(r, 1) / CP < 1.4 Then
      Rows(r).Interior.ColorIndex = 4
    ElseIf Cells(r, 1) / CP < 2 Then
      Rows(r).Interior.ColorIndex = 6
    ElseIf Cells(r, 1) / CP < 3 Then
      Rows(r).Interior.ColorIndex = 46
    Else
      Rows(r).Interior.ColorIndex = 3
    End If
  Loop
error_message: 'そのため、Integerに代入することができずにここに来てしまう
  MsgBox "数値が入力されていない項目があるようです。", vbOKOnly, "ランク表示"
  End
End Sub
--------------------------------------------------------------------------
VBAで改めてその計算をさせるというのも考えましたが、せっかく計算結果が出ているのにもう一度計算させるのも・・・

それか、条件付き書式かなにかでそのマクロの代わりができるのであれば、そちらでもかまいません。
最初はその方法を考えていたのですが、とあるセルというのが200以上あり、1つ1つしかも複数の設定をするというのも大変で・・・

よろしくお願いします。

0 hits

【73157】VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 9:17 質問
【73158】Re:VBAで計算式入りセルの値を取得したい Yuki 12/11/22(木) 10:02 発言
【73159】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 10:24 発言
【73160】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 11:13 回答
【73161】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 11:14 発言
【73162】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 11:22 回答
【73163】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 11:28 発言
【73165】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 12:21 回答
【73166】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 13:09 発言
【73167】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 15:18 回答
【73168】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 16:37 回答
【73169】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 17:12 回答
【73170】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 17:40 発言
【73171】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 18:48 回答
【73173】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 20:33 質問
【73174】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 22:09 回答
【73175】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 22:31 回答
【73176】Re:VBAで計算式入りセルの値を取得したい ウッシ 12/11/22(木) 22:43 回答
【73177】Re:VBAで計算式入りセルの値を取得したい かなたん 12/11/22(木) 22:56 お礼

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