|
▼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
|
|