Excel VBA質問箱 IV

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

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


9140 / 76732 ←次へ | 前へ→

【73158】Re:VBAで計算式入りセルの値を取得したい
発言  Yuki  - 12/11/22(木) 10:02 -

引用なし
パスワード
   ▼かなたん さん:
>Sub ランク表示()
>  On Error GoTo error_message
>  Dim CP As Integer
>  CP = Range("Z4").Value 'ここでEmpty値になってしまう
                ↑ は数値が入っていますか?
   CP = Val(Range("Z4").Value) とでもされたら如何ですか。

>  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
     r = r + 1 これを追加しなくては駄目ですね。
>  Loop
>error_message: 'そのため、Integerに代入することができずにここに来てしまう
>  MsgBox "数値が入力されていない項目があるようです。", vbOKOnly, "ランク表示"
>  End
>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 お礼

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