Excel VBA質問箱 IV

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

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


53550 / 76732 ←次へ | 前へ→

【27994】Re:セルの色が、入力した数字に相当する...
発言  ponpon  - 05/8/26(金) 0:55 -

引用なし
パスワード
   こんばんは。みなさん

文字列の時と1未満、57以上の時は、xlnone
がいるのでは?

とまとさんのは、
     
   With r
    If IsEmpty(.Value) Or Val(.Value) > 56 Or Val(.Value) < 1 Or IsNumeric(.Value) = False Then
    '空欄、セルの値が1未満、57以上、数字でないなら無色とする
      .Interior.ColorIndex = xlNone
    Else
      .Interior.ColorIndex = .Value 'セル色を入力した値とする
    End If
   End With

ichnoseさんのは、
      
      With crng
       If IsEmpty(.Value) Or Val(.Value) > 56 Or Val(.Value) < 1 Or IsNumeric(.Value) = False Then
        '空欄、セルの値が1未満、57以上、数字でないなら無色とする
        .Interior.ColorIndex = xlNone
       Else
        .Interior.ColorIndex = .Value 'セル色を入力した値とする
       End If
      End With


kobasanさんのは、
    Select Case r.Value
      Case "", Is > 56, Is < 1: r.Interior.ColorIndex = xlNone '空欄セルの値が1未満、57以上なら無色
      Case Else: r.Interior.ColorIndex = r.Value '着色
    End Select

とすればどうでしょう?

そんなこと言っていたら、小数の時もあるな?  int???

0 hits

【27986】セルの色が、入力した数字に相当する色に... bridgesbook 05/8/25(木) 22:51 質問
【27987】Re:セルの色が、入力した数字に相当する色... とまと 05/8/25(木) 23:13 回答
【27988】Re:セルの色が、入力した数字に相当する色... ichinose 05/8/25(木) 23:13 発言
【27991】Re:セルの色が、入力した数字に相当する色... kobasan 05/8/25(木) 23:51 発言
【27993】Re:セルの色が、入力した数字に相当する色... kobasan 05/8/26(金) 0:10 発言
【27994】Re:セルの色が、入力した数字に相当する... ponpon 05/8/26(金) 0:55 発言
【27995】Re:セルの色が、入力した数字に相当する... ichinose 05/8/26(金) 0:59 発言
【27996】Re:セルの色が、入力した数字に相当する... ponpon 05/8/26(金) 1:25 発言
【27997】Re:セルの色が、入力した数字に相当する... kobasan 05/8/26(金) 1:27 発言
【27998】Re:セルの色が、入力した数字に相当する... bridgesbook 05/8/26(金) 6:43 お礼
【27999】Re:セルの色が、入力した数字に相当する... [名前なし] 05/8/26(金) 6:51 発言
【28000】Re:セルの色が、入力した数字に相当する... [名前なし] 05/8/26(金) 6:53 発言
【28003】Re:セルの色が、入力した数字に相当する... kobasan 05/8/26(金) 7:47 発言
【28026】Re:セルの色が、入力した数字に相当する... bridgesbook 05/8/26(金) 18:53 お礼
【28030】Re:セルの色が、入力した数字に相当する... bridgesbook 05/8/26(金) 20:40 回答
【28033】ミスが入り込んでいるので、修正してくだ... kobasan 05/8/26(金) 21:56 発言

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