Excel VBA質問箱 IV

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

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


29692 / 76738 ←次へ | 前へ→

【52322】Re:図を作って色分け…お急ぎ頂けると光栄です
発言  yata E-MAIL  - 07/11/8(木) 21:24 -

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

>続いて、色をつけるということをしたいのですが、
>もうちょっとかんたんにはならないでしょうか??
>
>あと、255±Range や 0±Range といった値が255を超える
>または0を下回った際には255、0にするというようにするには
>どうしたらよいでしょうか??
>
こんなことでいいですか?

Sub 色()
Dim 赤 As Long, 緑 As Long, 青 As Long
Dim aka As Long, midori As Long, ao As Long
Dim i As Integer

For i = 1 To 17
  'セルA1からQ1までの数値を調べて、補正した数値を変数aka,midori,ao に格納する
  Set Rng = Cells(1, i)
  
 赤 = Rng.Value
 緑 = 255 - Rng.Value
 青 = 255 + Rng.Value

 aka = Hosei(赤)
 midori = Hosei(緑)
 ao = Hosei(青)
'オートシェープを順番に1つづつ塗りつぶす。
 ActiveSheet.Shapes(i).Fill.ForeColor.RGB = RGB(aka, midori, ao)

Next i
End Sub

Function Hosei(ByVal num As Long) As Long
  Select Case num
    Case Is >= 255
      Hosei = 255
    Case Is <= 0
      Hosei = 0
    Case Else
      Hosei = num
  End Select
End Function
0 hits

【52287】図を作って色分け…お急ぎ頂けると光栄です yasu 07/11/5(月) 17:54 質問
【52288】Re:図を作って色分け…お急ぎ頂けると光栄... ぱっせんじゃー 07/11/5(月) 18:03 発言
【52289】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/5(月) 18:23 質問
【52293】Re:図を作って色分け…お急ぎ頂けると光栄... ichinose 07/11/5(月) 21:39 発言
【52295】Re:図を作って色分け…お急ぎ頂けると光栄... [名前なし] 07/11/6(火) 0:02 質問
【52296】Re:図を作って色分け…お急ぎ頂けると光栄... ichinose 07/11/6(火) 7:46 発言
【52298】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/6(火) 13:40 質問
【52312】Re:図を作って色分け…お急ぎ頂けると光栄... yata 07/11/7(水) 21:46 発言
【52316】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/8(木) 15:23 質問
【52322】Re:図を作って色分け…お急ぎ頂けると光栄... yata 07/11/8(木) 21:24 発言

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