Excel VBA質問箱 IV

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

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


9133 / 76732 ←次へ | 前へ→

【73165】Re:VBAで計算式入りセルの値を取得したい
回答  ウッシ  - 12/11/22(木) 12:21 -

引用なし
パスワード
   こんにちは

Sub ランク表示()
  Dim CP As Double
  Dim r As Long
  On Error GoTo error_message
  With Worksheets("分布表")
    CP = .Range("Z4").Value 'ここでEmpty値になってしまう
    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
      r = r + 1
    Loop
  End With
  Exit Sub
error_message: 'そのため、Integerに代入することができずにここに来てしまう
  MsgBox "数値が入力されていない項目があるようです。", vbOKOnly, "ランク表示"
End Sub

こうしても変わりないですか?
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 お礼

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