Excel VBA質問箱 IV

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

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


36852 / 76732 ←次へ | 前へ→

【45055】Re:数字が変化したとき背景色が自動的に変わるようにしたい。
回答  maverick  - 06/12/11(月) 12:58 -

引用なし
パスワード
   >急に難しくなりました。
>私の環境下では、サンプルとは少し違い
>、今以下のコードを使って、AI列の数字が変わったときAH列の数字より大きいとき、
>AI列の数字の背景が赤、小さいとき緑に変わるようにしました。
>
>===============================================================
>Private Sub Worksheet_Calculate()
>  On Error Resume Next
>  Dim i As Long
>  For i = 2 To 301
>    With Cells(i, 35)
>      If Cells(i, 34).Value <> 0 Then
>        If .Value > Cells(i, 34).Value Then
>          .Interior.ColorIndex = 3
>          .Font.ColorIndex = 2
>        ElseIf .Value < Cells(i, 34).Value Then
>          .Interior.ColorIndex = 10
>          .Font.ColorIndex = 2
>        End If
>      End If
>    End With
>  Next i
>End sub
>============================================================
>AH列の数字はAI列の数字の変化前の数字が来るようにしてありますのでやりたいことは実現しているわけです。
>しかし今回の新しく示してもらったコードを適用しようとすると、変化した数字のところではなくその他いくつかの部分が赤く点滅します。
>(i,1)の部分を(i,35)に変えてみるとA列ではなく、AI列が点滅するようになりましたが、数字が変化したところの上下いくつか離れた場所が点滅します。
私のコードをそのまま使用したときはどうでしたか?
私のところでは問題なく動いています。

>しかも赤色のみの点滅です。
そのようにしましたが?
>>それは、数字が変化するとき、背景が3回ぐらい点滅して赤く変わるようにできないかと思いました。
と質問されているので。


>ちょっと今回の例題のコードを解読したいのでいくつか質問します。
>
>1.rng = rng & i & ","
>のrng というのはどこで定義しているのでしょうか?
↓ここです
>  Dim i As Long, rng As String, cnt As Variant

>またrng & i & ","の意味は?
i を","区切りの文字列にしています。
区切り文字は","でなくても構いません( @ や / などでもOK)
>    End With
>  Next i
の後に
  Debug.Print rng
と入れて確認してみてください

>
>2.For j = LBound(cnt) To UBound(cnt)
>のLBound、UBoundの使い方にとまどっています。
>(定義は調べたが、その意味がいまいちよくわからない)
配列のインデックス番号の下限(LBound)、上限(UBound)を調べられます。
試してみてください。
Sub test()
  Dim test1(0 To 5) As Integer
  Dim test2(2 To 8) As Integer
  Debug.Print LBound(test1), UBound(test1), LBound(test2), UBound(test2)
End Sub
※私は、LowerBound、UpperBound として覚えています。

>3.cnt = Split(Left(rng, Len(rng) - 1), ",")
>の意味の解読が難しいです。
区切り文字を元に文字列を分割しています。
Left(rng, Len(rng) - 1) は右端の余分な区切り文字を取り除いてます。

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 発言

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