Excel VBA質問箱 IV

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

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


36838 / 76732 ←次へ | 前へ→

【45069】Re:数字が変化したとき背景色が自動的に変わるようにしたい。
発言  ponpon  - 06/12/11(月) 23:30 -

引用なし
パスワード
   ▼shellken さん:
>ところで、A7だけでなくA列全体をそうしたいときとかA1からA3の間だけそうしたいときはどうすればよいのですか。

コードの意味を理解して応用するようにいましょう。

>また、変化するときに大きくなるときは赤、小さくなるときは緑で3回くらい点滅させることできますか。(できるだけ簡単な方法がいいです。)

maverickさんが詳しく回答しているのを応用しましょう。

'標準モジュールに
'maverickさんのを利用して

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Function test(rng As Range, col As Long)
    Cells(rng.Row, rng.Column).Interior.ColorIndex = col
  Sleep 100
End Function

'====================================================
'シートモジュールに
'私のとmaverickさんのを合体させて、一度に複数セルの変化(コピペなど)には
'対応していません。
'私の力量では、こんな不細工なコードになります。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long, j As Long
  Dim myVal As Long, vl As Long
  With Target
    If .Count > 1 Then Exit Sub
    If IsEmpty(.Value) Then Exit Sub
    If Application.Intersect(Target, Range("A:A")) Is Nothing Then _
      Exit Sub             '↑A列全体
    Application.EnableEvents = False
    myVal = .Value
    Application.Undo
    vl = .Value
    .Value = myVal
    If .Value > vl Then
      i = 3
      .Interior.ColorIndex = i
    ElseIf .Value < vl Then
      i = 4
      .Interior.ColorIndex = i
    Else
      i = 0
      .Interior.ColorIndex = i
    End If
    
    Application.EnableEvents = True
  End With
   For j = 1 To 4
    Call test(Target, 0)
    Call test(Target, i)
   Next
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 発言

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