Excel VBA質問箱 IV

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

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


36894 / 76732 ←次へ | 前へ→

【45013】Re:数字が変化したとき背景色が自動的に変わるようにしたい。
回答  maverick  - 06/12/9(土) 23:59 -

引用なし
パスワード
   こんな感じですか?

'標準モジュール
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Function test(cnt As Variant, col As Long)
  For j = LBound(cnt) To UBound(cnt)
    Cells(cnt(j), 1).Interior.ColorIndex = col
  Next j
  Sleep 100
End Function


'シートモジュール
Private vl(1 To 300) As Long

Private Sub Worksheet_Calculate()
  Dim i As Long, rng As String, cnt As Variant
  For i = 1 To 300
    With Cells(i, 1)
      If .Value > vl(i) Then
        rng = rng & i & ","
        .Interior.ColorIndex = 3
      ElseIf .Value < vl(i) Then
        .Interior.ColorIndex = 4
      Else
        .Interior.ColorIndex = 0
      End If
    vl(i) = .Value
    End With
  Next i
  If rng <> "" Then
    cnt = Split(Left(rng, Len(rng) - 1), ",")
    For i = 1 To 4
      Call test(cnt, 0)
      Call test(cnt, 3)
    Next i
  End If
End Sub

0 hits

【44953】数字が変化したとき背景色が自動的に変わるようにしたい。 shellken 06/12/7(木) 20:48 質問
【44954】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/7(木) 21:15 回答
【44975】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/8(金) 16:16 質問
【44978】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/8(金) 17:19 回答
【44984】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/8(金) 20:27 質問
【44991】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/8(金) 22:23 回答
【44999】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/9(土) 14:25 質問
【45013】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/9(土) 23:59 回答
【45042】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/10(日) 22:03 質問
【45055】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/11(月) 12:58 回答
【45045】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/10(日) 23:40 質問
【45056】Re:数字が変化したとき背景色が自動的に変... maverick 06/12/11(月) 13:07 発言
【45064】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/11(月) 17:14 お礼
【44983】Re:数字が変化したとき背景色が自動的に変... shun 06/12/8(金) 19:58 回答
【44985】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/8(金) 20:41 質問
【44986】Re:数字が変化したとき背景色が自動的に変... shun 06/12/8(金) 21:29 回答
【44993】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/8(金) 23:09 質問
【45030】Re:数字が変化したとき背景色が自動的に変... Toshiyo 06/12/10(日) 16:32 質問
【45040】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/10(日) 20:16 回答
【45041】Re:数字が変化したとき背景色が自動的に変... ToShiYo 06/12/10(日) 21:19 質問
【45044】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/10(日) 23:32 回答
【45046】Re:数字が変化したとき背景色が自動的に変... ponpon 06/12/11(月) 0:21 発言
【45048】Re:数字が変化したとき背景色が自動的に変... ToShiYo 06/12/11(月) 7:50 お礼
【45063】Re:数字が変化したとき背景色が自動的に変... shellken 06/12/11(月) 16:44 質問
【45069】Re:数字が変化したとき背景色が自動的に変... ponpon 06/12/11(月) 23:30 発言

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