Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
36900 / 76738 ←次へ　｜　前へ→
【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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
36900 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free