Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8009 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35623】列の数値に変化がある度に数字の色を変化させたいのですが可能でしょうか？ ringotyanZ 06/3/8(水) 17:24 質問[未読]
【35628】Re:列の数値に変化がある度に数字の色を変... ichinose 06/3/8(水) 19:34 質問[未読]
【35629】Re:列の数値に変化がある度に数字の色を変... ichinose 06/3/8(水) 19:35 発言[未読]
【35632】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/8(水) 20:08 質問[未読]
【35636】Re:列の数値に変化がある度に数字の色を変... ponpon 06/3/8(水) 20:40 発言[未読]
【35639】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/8(水) 20:59 質問[未読]
【35641】Re:列の数値に変化がある度に数字の色を変... ponpon 06/3/8(水) 21:28 発言[未読]
【35646】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/8(水) 23:11 質問[未読]
【35647】Re:列の数値に変化がある度に数字の色を変... ponpon 06/3/9(木) 0:22 発言[未読]
【35648】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/9(木) 0:37 質問[未読]
【35665】Re:列の数値に変化がある度に数字の色を変... ponpon 06/3/9(木) 18:19 発言[未読]
【35672】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/9(木) 20:55 質問[未読]
【35676】Re:列の数値に変化がある度に数字の色を変... ponpon 06/3/9(木) 23:11 発言[未読]
【35678】Re:列の数値に変化がある度に数字の色を変... ringotyanZ 06/3/10(金) 0:16 お礼[未読]
【35623】列の数値に変化がある度に数字の色を変化...
質問  ringotyanZ  - 06/3/8(水) 17:24 -
引用なし
パスワード
   列の数値に変化がある度に数字の色を変化させたいのですが可能でしょうか？
数値が上った場合は赤に、下がった場合は青に、前の値と変わらない場合は色は前の色と同じに、といった具合にセルの数字に色を付けることは可能ですか？

マクロを作りたい元データは下記の通りなのですが、例えば、3列目の数字が387→388に上った場合数字を赤色に、その後数値が変わらず388のままなら数字は赤のまま、388→386など下がった場合数字を青に、その後値が変わらないなら以下の数字は青色のままに、といった具合に、これを列の最後まで繰り返させたいのです。

よろしくお願いします。


2006/3/8　　　　9:53　　　　387　　　　387.78　　　　100　　　　　
2006/3/8　　　　9:54　　　　387　　　　387.74　　　　200　　　　　
2006/3/8　　　　10:04　　　　387　　　　387.72　　　　100　　　　　
2006/3/8　　　　10:04　　　　388　　　　387.73　　　　200　　　　　
2006/3/8　　　　10:10　　　　388　　　　387.74　　　　200　　　　　
2006/3/8　　　　10:27　　　　386　　　　387.63　　　　300　　　　　
2006/3/8　　　　10:46　　　　386　　　　387.6　　　　100　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.44　　　　500　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.36　　　　300　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.25　　　　500　　　　　
2006/3/8　　　　12:30　　　　385　　　　385.82　　　　10500　　　　　
2006/3/8　　　　12:30　　　　385　　　　385.81　　　　200　　　　　
2006/3/8　　　　12:35　　　　386　　　　385.81　　　　100　　　　　
2006/3/8　　　　12:37　　　　386　　　　385.81　　　　400
【35628】Re:列の数値に変化がある度に数字の色を...
質問  ichinose  - 06/3/8(水) 19:34 -
引用なし
パスワード
   ▼ringotyanZ さん：
こんばんは。

>列の数値に変化がある度に数字の色を変化させたいのですが可能でしょうか？
>数値が上った場合は赤に、下がった場合は青に、前の値と変わらない場合は色は前の色と同じに、といった具合にセルの数字に色を付けることは可能ですか？
>
>マクロを作りたい元データは下記の通りなのですが、例えば、3列目の数字が387→388に上った場合数字を赤色に、その後数値が変わらず388のままなら数字は赤のまま、388→386など下がった場合数字を青に、その後値が変わらないなら以下の数字は青色のままに、といった具合に、これを列の最後まで繰り返させたいのです。
>
>よろしくお願いします。
>
>
以下のデータがSheet1というシート名のセルＡ１から入っているとします。

>2006/3/8　　　　9:53　　　　387　　　　387.78　　　　100　　　　　
>2006/3/8　　　　9:54　　　　387　　　　387.74　　　　200　　　　　
>2006/3/8　　　　10:04　　　　387　　　　387.72　　　　100　　　　　
>2006/3/8　　　　10:04　　　　388　　　　387.73　　　　200　　　　　
>2006/3/8　　　　10:10　　　　388　　　　387.74　　　　200　　　　　
>2006/3/8　　　　10:27　　　　386　　　　387.63　　　　300　　　　　
>2006/3/8　　　　10:46　　　　386　　　　387.6　　　　100　　　　　
>2006/3/8　　　　10:55　　　　386　　　　387.44　　　　500　　　　　
>2006/3/8　　　　10:55　　　　386　　　　387.36　　　　300　　　　　
>2006/3/8　　　　10:55　　　　386　　　　387.25　　　　500　　　　　
>2006/3/8　　　　12:30　　　　385　　　　385.82　　　　10500　　　　　
>2006/3/8　　　　12:30　　　　385　　　　385.81　　　　200　　　　　
>2006/3/8　　　　12:35　　　　386　　　　385.81　　　　100　　　　　
>2006/3/8　　　　12:37　　　　386　　　　385.81　　　　400


Thisworkbookのモジュールに
'=======================================================
Private Sub Workbook_Open()
　　Dim rng As Range
　　With Worksheets("sheet1")
　　　 For Each rng In .Range("a1").CurrentRegion
　　　　　If rng.Column > 2 Then
　　　　　　 rng.ID = Str(rng.Value)
　　　　　　 'rng.Font.ColorIndex = 0
　　　　　　 End If
　　　　　Next
　　　 End With
End Sub


Sheet1のシートモジュールに
'=================================================================
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim t_target As Range
　　Dim crng As Range
　　Set t_target = Application.Intersect(Target, Range("c:e"))
　　If Not t_target Is Nothing Then
　　　 For Each crng In t_target
　　　　　With crng
　　　　　　 If Val(.ID) < Val(.Value) Then
　　　　　　　　.Font.ColorIndex = 3
　　　　　　 ElseIf Val(.ID) > Val(.Value) Then
　　　　　　　　.Font.ColorIndex = 5
　　　　　　　　End If
　　　　　　.ID = Str(.Value)
　　　　　　End With
　　　　　Next
　　　 End If
End Sub

データチェック対象セル範囲はＣ列〜Ｅ列とします。

尚、上記コードを追加して一度保存後して閉じた後
再度開いてみて確認してください。
【35629】Re:列の数値に変化がある度に数字の色を...
発言  ichinose  - 06/3/8(水) 19:35 -
引用なし
パスワード
   尚、Excel2000以上で動作します。
【35632】Re:列の数値に変化がある度に数字の色を...
質問  ringotyanZ  - 06/3/8(水) 20:08 -
引用なし
パスワード
   ichinose さん、ありがとうございます。

さっそく試してみたのですが、マクロを実行しようとしても「Worksheet_Change」というマクロ名が見つかりませんでした。

上手く出来ていないのでしょうか？
【35636】Re:列の数値に変化がある度に数字の色を...
発言  ponpon  - 06/3/8(水) 20:40 -
引用なし
パスワード
   こんばんは。
私も作ってみました。

開いたときの値を作業列（Z列）にコピーしてそれと比較しています。
データは、Sheet1にあると仮定しています。

Thisworkbookモジュールに

Private Sub Workbook_Open()
　Dim myR As Range
　
　　 Set myR = Sheets("Sheet1").Range("C1", Sheets("Sheet1").Range("C65536").End(xlUp))
　　 With myR
　　　　 .Font.ColorIndex = 0
　　　　 .Copy Sheets("sheet1").Range("Z1")
　　 End With
End Sub

シート１モジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
　　
　　Application.ScreenUpdating = False
　　With Target
　　　 If .Count > 1 Then Exit Sub
　　　 If IsEmpty(.Value) Then Exit Sub
　　　 If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
　　　　 Application.EnableEvents = False
　　　　 Select Case True
　　　　　 Case .Value > Cells(.Row, "Z").Value
　　　　　　　.Font.ColorIndex = 3
　　　　　　　Cells(.Row, "Z").Value = .Value
　　　　　 Case .Value < Cells(.Row, "Z").Value
　　　　　　　.Font.ColorIndex = 5
　　　　　　　Cells(.Row, "Z").Value = .Value
　　　　 End Select
　　　　 Application.EnableEvents = True
　　　 End If
　　End With
　　Application.ScreenUpdating = True
End Sub

>さっそく試してみたのですが、マクロを実行しようとしても「Worksheet_Change」というマクロ名が見つかりませんでした。

Worksheet_Changeは、イベントマクロですから
ichinoseさんのは、C列D列E列の値が変化したときにマクロが走ります。
私のは、C列の値が変化したときにマクロが走ります。
【35639】Re:列の数値に変化がある度に数字の色を...
質問  ringotyanZ  - 06/3/8(水) 20:59 -
引用なし
パスワード
   ponpon さん、ありがとうございます。

試してみたところ、動作しました。


しかしすみません、言葉が足りませんでした。

下記のようなデータをデータ元からシートにコピー＆ペーストして、そのデータをマクロを実行する事によって色分けできるか質問したかったのした。

すみません・・・・・

可能でしょうか？


2006/3/8　　　　9:53　　　　387　　　　387.78　　　　100　　　　　
2006/3/8　　　　9:54　　　　387　　　　387.74　　　　200　　　　　
2006/3/8　　　　10:04　　　　387　　　　387.72　　　　100　　　　　
2006/3/8　　　　10:04　　　　388　　　　387.73　　　　200　　　　　
2006/3/8　　　　10:10　　　　388　　　　387.74　　　　200　　　　　
2006/3/8　　　　10:27　　　　386　　　　387.63　　　　300　　　　　
2006/3/8　　　　10:46　　　　386　　　　387.6　　　　100　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.44　　　　500　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.36　　　　300　　　　　
2006/3/8　　　　10:55　　　　386　　　　387.25　　　　500　　　　　
2006/3/8　　　　12:30　　　　385　　　　385.82　　　　10500　　　　　
2006/3/8　　　　12:30　　　　385　　　　385.81　　　　200　　　　　
2006/3/8　　　　12:35　　　　386　　　　385.81　　　　100　　　　　
2006/3/8　　　　12:37　　　　386　　　　385.81　　　　400
【35641】Re:列の数値に変化がある度に数字の色を...
発言  ponpon  - 06/3/8(水) 21:28 -
引用なし
パスワード
   こんばんは。

ブックを開き直して、実行するのがまずいのですよね？

このマクロのポイントは、変化する前の最初の値をどのように保持しておくかということだろうと思います。

そこで、ichinoseさんは、ブックを開いたときに、IDにその値を
私のは、Z列にコピーして、保持して、変化があったときにそれと比較しています。

ですから、
>データをデータ元からシートにコピー＆ペーストする
タイミングに、ichinoseさんのやり方なら、IDに値を保持させる
私のやり方なら、C列の値をZ列にコピーすれば、
シートのイベントマクロはそのままでいけると思います。
【35646】Re:列の数値に変化がある度に数字の色を...
質問  ringotyanZ  - 06/3/8(水) 23:11 -
引用なし
パスワード
   ponpon さん、ありがとうございます。

しかし、どうも上手く行きません.......

同一セルの内容が変わったとき、例えば388と入ってるデータの上に390と打ち直すと赤くなるのは確認できるのですが、データを丸ごとペーストしても何も起きませんでした。

紹介していただいた方法を、通常のマクロに置き換えることは出来ますか？
【35647】Re:列の数値に変化がある度に数字の色を...
発言  ponpon  - 06/3/9(木) 0:22 -
引用なし
パスワード
   ▼ringotyanZ さん：
>同一セルの内容が変わったとき、例えば388と入ってるデータの上に390と打ち直すと赤くなるのは確認できるのですが、データを丸ごとペーストしても何も起きませんでした。

私のマクロをお試しでしょうか？
それならば、私のマクロは、複数のコピペには対応していません。ichinoseさんのはOKです。

複数のコピペに対応するには、
以下のように変更していただく必要があります。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim r As Range
　　Application.ScreenUpdating = False
　　If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
　　　Application.EnableEvents = False
　　　　 For Each r In Target
　　　　 　　Select Case True
　　　　　　　 Case r.Value > Cells(r.Row, "Z").Value
　　　　 　　　　 r.Font.ColorIndex = 3
　　　　　　　　　Cells(r.Row, "Z").Value = r.Value
　　　　 　　　Case r.Value < Cells(r.Row, "Z").Value
　　　　　　　　　r.Font.ColorIndex = 5
　　　　　　　　　Cells(r.Row, "Z").Value = r.Value
　　　　　　 End Select
　　　　 Next
　　　 Application.EnableEvents = True
　　End If
　　Application.ScreenUpdating = True
End Sub
【35648】Re:列の数値に変化がある度に数字の色を...
質問  ringotyanZ  - 06/3/9(木) 0:37 -
引用なし
パスワード
   ponpon さん、本当に丁寧にありがとうございます。

動作チェックしてみたところ、新しく教えて頂いたものだと確かに複数のコピペに対応していました。
保存されたＺ列とＣ列の数値の変化が色に現れるようになっているのですね。

私が質問していた内容と少し違っているような気がするので、もう少し説明させてください。

例えばＣ列のみで見た場合、上から順に（1）〜（9）へ数値が増減した場合の上げ下げを色分けして確認したかったのです。
数値を1と2のみに置き換えて説明させてもらいますと、


(1)　1　　←黒　（一つ目で変化が無いので）
(2)　2　　←赤　（数値が増加したので）
(3)　2　　←赤　（数値に変化がないので同色）
(4)　1　　←青　（数値が減少したので）
(5)　2　　←赤　（数値が増加したので）
(6)　1　　←青　（数値が減少したので）
(7)　1　　←青　（数値に変化がないので同色）
(8)　1　　←青　（数値に変化がないので同色）
(9)　2　　←赤　（数値が増加したので）


このような処理をマクロを実行する事によって行いたかったのです。
【35665】Re:列の数値に変化がある度に数字の色を...
発言  ponpon  - 06/3/9(木) 18:19 -
引用なし
パスワード
   ▼ringotyanZ さん：
>例えばＣ列のみで見た場合、上から順に（1）〜（9）へ数値が増減した場合の上げ下げを色分けして確認したかったのです。

私のマクロは、C列のみしか見ていません。

>数値を1と2のみに置き換えて説明させてもらいますと、
>
>(1)　1　　←黒　（一つ目で変化が無いので）
>(2)　2　　←赤　（数値が増加したので）
>(3)　2　　←赤　（数値に変化がないので同色）
>(4)　1　　←青　（数値が減少したので）
>(5)　2　　←赤　（数値が増加したので）
>(6)　1　　←青　（数値が減少したので）
>(7)　1　　←青　（数値に変化がないので同色）
>(8)　1　　←青　（数値に変化がないので同色）
>(9)　2　　←赤　（数値が増加したので）
>
>このような処理をマクロを実行する事によって行いたかったのです。

C列のどこかに　1　を入力し、開き直してみてください。
上記のようにフォントカラーが変わることをWin XP Excel2003で確認しました。
【35672】Re:列の数値に変化がある度に数字の色を...
質問  ringotyanZ  - 06/3/9(木) 20:55 -
引用なし
パスワード
   ponpon さん、アドバイスありがとうございます。

しかし、どうも上手く行きません.........

データをまとめてコピペしてみたところ、Ｃ列全てが赤くなってしまいます。

ブックを一旦保存して閉じてから開くと、今度はＣ列全てが黒くなってしまいました。

Ｃ列に「1」と入力するとそこだけ青くなります。


私はイベントマクロはまだまだ勉強不足なので、どこに問題があるのか分かりません........
【35676】Re:列の数値に変化がある度に数字の色を...
発言  ponpon  - 06/3/9(木) 23:11 -
引用なし
パスワード
   ▼ringotyanZ さん：
>ponpon さん、アドバイスありがとうございます。

>データをまとめてコピペしてみたところ、Ｃ列全てが赤くなってしまいます。

こちらでは、うまくいっているのですが・・・

>ブックを一旦保存して閉じてから開くと、今度はＣ列全てが黒くなってしまいました。
　
それは、そのようにしています。
それが、ダメなら（前回の色を保持するなら）

Thisworkbookもジールの

Private Sub Workbook_Open()
　Dim myR As Range

　　 Set myR = Sheets("Sheet1").Range("C1", Sheets("Sheet1").Range("C65536").End(xlUp))
　　 With myR
　　　　 ’.Font.ColorIndex = 0　ここで色を黒にしています。
　　　　 .Copy Sheets("sheet1").Range("Z1")
　　 End With
End Sub


>Ｃ列に「1」と入力するとそこだけ青くなります。
そのまま上書き保存して開き直し、１や２を入れてください。
希望通りになると思うのですが・・・

もう一度新規ブックにデータをコピペして試してみてください。
それでもうまくいかない場合は、ちょっと分かりかねますので、
識者の回答をお待ちください。

シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim r As Range
　　Application.ScreenUpdating = False
　　If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
　　　Application.EnableEvents = False
　　　　 For Each r In Target
　　　　　　 Select Case True
　　　　　　　 Case r.Value > Cells(r.Row, "Z").Value
　　　　　　　　　r.Font.ColorIndex = 3
　　　　　　　　　Cells(r.Row, "Z").Value = r.Value
　　　　　　　 Case r.Value < Cells(r.Row, "Z").Value
　　　　　　　　　r.Font.ColorIndex = 5
　　　　　　　　　Cells(r.Row, "Z").Value = r.Value
　　　　　　 End Select
　　　　 Next
　　　 Application.EnableEvents = True
　　End If
　　Application.ScreenUpdating = True
End Sub
【35678】Re:列の数値に変化がある度に数字の色を...
お礼  ringotyanZ  - 06/3/10(金) 0:16 -
引用なし
パスワード
   ponpon さん、やってみましたが、変わりませんでした......

親切に教えて頂いたのすみません。

本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8009 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free