Excel VBA質問箱 IV

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

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


37996 / 76732 ←次へ | 前へ→

【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
1 hits

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

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