Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12278 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11273】字色、背景色の変更 麻衣子 04/3/4(木) 15:15 質問
【11278】Re:字色、背景色の変更 Jaka 04/3/4(木) 16:37 回答
【11280】すみません。 Jaka 04/3/4(木) 16:41 発言
【11283】手抜きです。ヒントになれば ぴかる 04/3/4(木) 16:59 回答
【11285】書いちゃったので．．．。 Jaka 04/3/4(木) 17:09 回答
【11294】Re:字色、背景色の変更 麻衣子 04/3/4(木) 18:12 お礼
【11304】すみませんでした。 Jaka 04/3/5(金) 9:08 回答
【11353】Re:Jaka様、ありがとうございます! 麻衣子 04/3/6(土) 13:09 質問
【11355】Re:Jaka様、ありがとうございます! とまと 04/3/6(土) 14:44 回答
【11359】Re:Jaka様、ありがとうございます! とまと 04/3/6(土) 15:57 回答
【11362】Re:Jaka様、ありがとうございます! とまと 04/3/6(土) 16:41 回答
【11363】Re:とまと様、ありがとうございます!! 麻衣子 04/3/6(土) 17:59 質問
【11365】Re:とまと様、ありがとうございます!! とまと 04/3/6(土) 20:02 回答
【11367】Re:とまと様、ありがとうございました!!! 麻衣子 04/3/6(土) 21:38 お礼
【11273】字色、背景色の変更
質問  麻衣子  - 04/3/4(木) 15:15 -
引用なし
パスワード
   　はじめまして、初心者ですが、どなたか、教えてください。

　 $B　$C　
1　20
2　12　-8(=$B2 - $B1)
3　 6　-6(=$B3 - $B2)
4　17　11
5　13　-4
6　 5　-8
7　17　12

列番に、数値を入力し($B)、その前行の数値との差を、$Cに表示していき、
マイナスの場合は、文字を赤色に、プラスの場合は、背景色を黄色にする
という質問です。だだし、条件書式設定を使用しないで、$Bに、数値を
入力するだけで、自動的に、赤色の文字、黄色の背景色を、表示させることは
できないでしょうか。(-8は赤色、11は文字は黒色、背景色は黄色とふうに、)
そのような関数は、見当たらないのですが、ユ-ザ-定義関数のレベルに、
なるのでしょうか。もし、そのようになったら、そのコ-ド内容を、教えて
いただけないでしょうか。EXCEL20003を使用しています。
【11278】Re:字色、背景色の変更
回答  Jaka  - 04/3/4(木) 16:37 -
引用なし
パスワード
   C2以降のセルに
=B1-B2
こんな関数が入っているとして、

表示形式で、赤の「-1234」に設定
条件付き書式
セルの値が　　次の値より大きい　　0
として、書式ボタンを押しパターンで黄色を選べば良いです。
【11280】すみません。
発言  Jaka  - 04/3/4(木) 16:41 -
引用なし
パスワード
   >条件書式設定を使用しないで

良く読んでいませんでした。
【11283】手抜きです。ヒントになれば
回答  ぴかる  - 04/3/4(木) 16:59 -
引用なし
パスワード
   こんにちは。

手抜きですが、こういうことなんかな？。Ｃ列が−８なら赤文字、それ以外なら黒としました。ＯＫでしたら、あとは条件等を変更していろんなパターンにして下さい。あたくしは、事情によりこれにて失礼します。

シートモジュール版です。
Private Sub Worksheet_Change(ByVal Target As Range)

　　If Target.Column = 2 Then
　　　　If Cells(Target.Row, 3).Value = -8 Then
　　　　　　Cells(Target.Row, 3).Font.ColorIndex = 3
　　　　Else
　　　　　　Cells(Target.Row, 3).Font.ColorIndex = 0
　　　　End If
　　End If
　　　　
End Sub
【11285】書いちゃったので．．．。
回答  Jaka  - 04/3/4(木) 17:09 -
引用なし
パスワード
   Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　Application.EnableEvents = False
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If .Column = 2 And .Row > 1 And .Value <> "" Then
　　　　　 .Offset(, 1).Value = .Offset(-1).Value - .Value
　　　　　 If .Offset(, 1).Value < 0 Then
　　　　　　　.Offset(, 1).Font.ColorIndex = 3
　　　　　　　.Offset(, 1).Interior.ColorIndex = 6
　　　　　 Else
　　　　　　　.Offset(, 1).Font.ColorIndex = 0
　　　　　　　.Offset(, 1).Interior.ColorIndex = xlNone
　　　　　 End If
　　　　ElseIf .Value = "" Then
　　　　　 .Offset(, 1).Font.ColorIndex = 0
　　　　　 .Offset(, 1).Interior.ColorIndex = xlNone
　　　　　 .Offset(, 1).Value = ""
　　　　End If
　　End With
　　Application.EnableEvents = True
End Sub
【11294】Re:字色、背景色の変更
お礼  麻衣子  - 04/3/4(木) 18:12 -
引用なし
パスワード
   ぴかる様、ありがとうございました。
ｊａｋａ様、ご丁寧に、レスして頂き、ありがとうございました。
皆様のレスを、ありがたく、参考にさせていただきます。
心から、お礼を申し上げます。
【11304】すみませんでした。
回答  Jaka  - 04/3/5(金) 9:08 -
引用なし
パスワード
   トンチンカンなことやってました。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If .Column = 2 Then
　　　　　 If IsNumeric(.Text) And .Offset(, 1).Value < 0 Then
　　　　　　　.Offset(, 1).Font.ColorIndex = 3
　　　　　　　.Offset(, 1).Interior.ColorIndex = xlNone
　　　　　 Else
　　　　　　　.Offset(, 1).Font.ColorIndex = 0
　　　　　　　.Offset(, 1).Interior.ColorIndex = 6
　　　　　 End If
　　　　End If
　　End With
End Sub
【11353】Re:Jaka様、ありがとうございます!
質問  麻衣子  - 04/3/6(土) 13:09 -
引用なし
パスワード
   麻衣子です。
Jaka様、ありがとうございました!
Jaka様から頂いたコ-ドを貼り付けましたところ、望み通りになりました。
とても、嬉しいです。

Jaka様のコ-ドを基に、更に、改良したものを作ってみようと、試みた
のですが、やはり、初心者の私には、難しいものでした。
最初の質問内容に、更に、同じものを他の列にも設けようと思いましたが、
うまくいきません。
　　
　　B　 C　　　　　　　　　　F　 G
1　20　　　　　　　　　　　 15　
2　12　-8(=$B2 - $B1)　9　-6(=$F2 - $F21)
3　 6　-6(=$B3 - $B2)　20　11
4　17　11　　　　　　　　　 22　22
5　13　-4　　　　　　　　　 14　-8
6　 5　-8　　　　　　　　　 14　 0
7　17　12　　　　　　　　　　3 -11

そして、入力したF6(14)は、前行のF5(14)と同じ数値ですので、F6の14にも、
青い背景色を、つけようと思ったのです。
Jaka様から頂いたコ-ドを、どのように、変更すればよいのか、
教えてください。
【11355】Re:Jaka様、ありがとうございます!
回答  とまと  - 04/3/6(土) 14:44 -
引用なし
パスワード
   麻衣子さん　こんにちは

Jakaさん失礼します。

　列が増えるということなので、Jakaさんのコードを修正すると

　If .Column = 2　Then
　　　 ↓
　If .Column = 2 Or .Column = 4 Then

　と増やせばいいかも。違ったらごめんなさい。
【11359】Re:Jaka様、ありがとうございます!
回答  とまと  - 04/3/6(土) 15:57 -
引用なし
パスワード
   なんだかぜんぜん読み違えてました。
修正します。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If .Column = 2 Or .Column = 6 Then
　　　　　 If IsNumeric(.Text) And .Offset(, 1).Value < 0 Then
　　　　　　　.Offset(, 1).Font.ColorIndex = 3
　　　　　　　.Offset(, 1).Interior.ColorIndex = xlNone
　　　　　 Else
　　　　　　　.Offset(, 1).Font.ColorIndex = 0
　　　　　　　.Offset(, 1).Interior.ColorIndex = 6
　　　　　 End If
　　　　　
　　　　　 If IsNumeric(.Text) And .Offset(-1, 0).Value = .Value Then
　　　　　　　.Interior.ColorIndex = 5
　　　　　 Else
　　　　　　　.Interior.ColorIndex = xlNone
　　　　　 End If

　　　　End If
　　　　　
　　End With
End Sub
【11362】Re:Jaka様、ありがとうございます!
回答  とまと  - 04/3/6(土) 16:41 -
引用なし
パスワード
   たびたび　すみません

　　　　　If IsNumeric(.Text) And .Offset(-1, 0).Value = .Value Then
　　　　　　　.Interior.ColorIndex = 5
　　　　　 Else
　　　　　　　.Interior.ColorIndex = xlNone
　　　　　 End If

　　　　　　↑の部分は１行目だと　.offset(-1,0) でエラーになるので
　　　　　　下記のように１行目をはずすよう変更してください。
　　　　

　　　　　If .Row > 1 Then
　　　　　 If IsNumeric(.Text) And .Offset(-1, 0).Value = .Value Then
　　　　　　　.Interior.ColorIndex = 5
　　　　　 Else
　　　　　　　.Interior.ColorIndex = xlNone
　　　　　 End If
　　　　　End If
【11363】Re:とまと様、ありがとうございます!!
質問  麻衣子  - 04/3/6(土) 17:59 -
引用なし
パスワード
   とまと様、はじめまして。麻衣子です。ご親切なレス、ありがとうございます。
ＶＢＡに関して、初歩的な本しか読んだ事がない私に、助け舟を、送って下さり
心から、お礼を申し上げます。
とまと様のレスで、解決できました。解決できたのですが、私は、先程の質問の
中で、1つ書き忘れたことがありました。F6のセルに、青色の背景色をつけるこ
とは、良いのですが、G6のセルには(前行との差がゼロの時)、背景色は、つけな
いで、黒文字だけ表示したかったのでした。
私は、とまと様のレスをヒントに、試行錯誤で、トライしてみたのですが、
文字まで、消えてしまう有様です。まじめに、学習してこなかった自分が、悔や
まれます。どうか、こんな無知な私ですけど、教えてください。
【11365】Re:とまと様、ありがとうございます!!
回答  とまと  - 04/3/6(土) 20:02 -
引用なし
パスワード
   こんばんは。　　　　

　　　　　If .Row > 1 Then
　　　　　 If IsNumeric(.Text) And .Offset(-1, 0).Value = .Value Then
　　　　　　　.Interior.ColorIndex = 5
　　　　　 Else
　　　　　　　.Interior.ColorIndex = xlNone
　　　　　 End If
　　　　　End If

　　　　　のところに付け加えて下記のようにしてみてください。
　　　

　　　　　If .Row > 1 Then
　　　　　 If IsNumeric(.Text) And .Offset(-1, 0).Value = .Value Then
　　　　　　　.Interior.ColorIndex = 5
　　　　　　　.Offset(, 1).Interior.ColorIndex = xlNone
　　　　　 Else
　　　　　　　.Interior.ColorIndex = xlNone
　　　　　 End If
　　　　End If
【11367】Re:とまと様、ありがとうございました!!!
お礼  麻衣子  - 04/3/6(土) 21:38 -
引用なし
パスワード
   とまと様、出来ました!!ありがとうございました。
とまと様のお陰で、解決することができました。
心から、感謝申し上げます。
またいつの日か、疑問があった時、恐れ入りますが、ご指導をお願いします。
本当に、ありがとうございました。

　　　とまと様の上に、幸福が、多々と　
　　　　　　　　　　　　　　　　　　ありますように・・・・・　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　麻衣子より　
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12278 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free