Excel VBA質問箱 IV

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

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


6666 / 13644 ツリー ←次へ | 前へ→

【43855】最大値と最小値のセルにそれぞれ色表示 M.T 06/10/26(木) 23:12 質問[未読]
【43857】Re:最大値と最小値のセルにそれぞれ色表示 [名前なし] 06/10/27(金) 0:03 発言[未読]
【43862】Re:最大値と最小値のセルにそれぞれ色表示 Mari 06/10/27(金) 7:39 発言[未読]
【43882】Re:最大値と最小値のセルにそれぞれ色表示 Mari 06/10/27(金) 21:33 発言[未読]
【43905】Re:最大値と最小値のセルにそれぞれ色表示 M.T 06/10/29(日) 2:03 お礼[未読]
【43906】Re:最大値と最小値のセルにそれぞれ色表示 [名前なし] 06/10/29(日) 2:41 発言[未読]

【43855】最大値と最小値のセルにそれぞれ色表示
質問  M.T  - 06/10/26(木) 23:12 -

引用なし
パスワード
      A   B   C   D   E   F・・・AT  
1  4   5   3   3   2   3   4 
2  ●   ●           ●
3              ●           ● 
4  ●       ●               ●
5  ●   ●       ●       ●
6      ●       ●       ●
7      ●           ●       ●
8          ●           ●   ●
9  ●   ●   ●



といった上図のような表があり、A1〜AT1にはそれぞれの列の●の合計数が表示されています。A2〜AT最終行内のセルは右クリックで●が表示されるようマクロが組んであり、右クリックでそのセル内を●表示にさせた後、その該当列の1行目の●合計数が+1されるようになっています。さらにリアルタイムで、その時点での最高数のセル内の色を赤に、最小数のセル内を青にさせたいのですが(上図の場合だとB1が赤、E1が青になる)、これが出来なくて困っています。条件書式を考えたのですが、これは3つまでしか設定できないので、最高数と最少数の2つは問題ないのですが、そのどちらにも当てはまらない時はセル色を白にする、という式が分かりません(AND関数を使って、どちらにも該当しなければ白にするという式を作ってみたけど、”入力した式は正しくありません”のメッセージがでて失敗に終わった)。手段は何でも構いません。

【43857】Re:最大値と最小値のセルにそれぞれ色表示
発言  [名前なし]  - 06/10/27(金) 0:03 -

引用なし
パスワード
   A1:AT1を選択した状態で、書式→条件付書式を選択して、

条件1 数式が =A1=MIN($A1:$AT1) 背景を青
条件2 数式が =A1=MAX($A1:$AT1) 背景を赤

の2つだけの設定だと何が問題なんでしょうか?


失敗に終わったというのは、それぞれの条件にどんな数式を入力したのですか?

【43862】Re:最大値と最小値のセルにそれぞれ色表示
発言  Mari  - 06/10/27(金) 7:39 -

引用なし
パスワード
   こんな感じで出来ませんか
Sub 最大最小()

Dim MyR As Range
Set MyR = Range("A1").CurrentRegion
Rmax = Application.WorksheetFunction.Max(MyR)
Rmin = Application.WorksheetFunction.Min(MyR)
MsgBox Rmax
MsgBox Rmin

End Sub

【43882】Re:最大値と最小値のセルにそれぞれ色表示
発言  Mari  - 06/10/27(金) 21:33 -

引用なし
パスワード
   ▼M.T さん:
今晩は・・・これで如何でしょう
色指定は適切に選択してください。

Sub 色指定()

Dim R As Range
Dim MyR As Range
Dim answer1 As Integer 'Single  '小数点があるときはSingleを使って下さい
Dim answer2 As Integer 'Single  '小数点があるとき

Set MyR = Range("A6").CurrentRegion
 answer1 = Application.WorksheetFunction.Max(MyR)
 answer2 = Application.WorksheetFunction.Min(MyR)
 MsgBox "最大値は「" & answer1 & "」です"
 MsgBox "最小値は「" & answer2 & "」です"

Range("A6").CurrentRegion.Interior.ColorIndex = xlNone
  For Each R In MyR
   If R.Value = answer1 Then
    R.Interior.ColorIndex = 7
      MsgBox "最大値のアドレスは" & R.Address(0, 0) & "です"
   End If
 
   If R.Value = answer2 Then
    R.Interior.ColorIndex = 34
      MsgBox "最小値のアドレスは" & R.Address(0, 0) & "です"
   End If
  Next
Set MyR = Nothing
End Sub

【43905】Re:最大値と最小値のセルにそれぞれ色表示
お礼  M.T  - 06/10/29(日) 2:03 -

引用なし
パスワード
   みなさん、まことにありがとうございます。無事解決しました。

【43906】Re:最大値と最小値のセルにそれぞれ色表示
発言  [名前なし]  - 06/10/29(日) 2:41 -

引用なし
パスワード
   >みなさん、まことにありがとうございます。無事解決しました。

[#43857]の質問は無視ですか。

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