麻辣家族討論版版 » Excel程式區 » 如何在不同區間內標示最小值?

返回列表下一主題上一主題發帖

[發問] 如何在不同區間內標示最小值?

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-10-2 13:22 | 只看該作者

[發問] 如何在不同區間內標示最小值?

附檔的資料是依相同規格去做分組
我想再分組內比較5~8月哪一個交易價格最低
固定區間內的比較容易做到但是不同區間想不到方法
請問有人知道如何作嗎?

最小與最大相同我是用另一個顏色標示

範圍內比較.rar (68.72 KB)

樓主熱帖

收藏

字典兩各字還真難理解

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-10-3 07:05 | 只看該作者

回復 1# freeffly
試試看

Option Explicit
Sub Ex()
Dim i As Single, r As String, xMin As Double, xMax As Double
Cells.Interior.ColorIndex = xlNone
i = 2
r = i
Do While Cells(i, "a") <> ""
If Cells(i, "a") <> Cells(i + 1, "a") Then
With Rows(r & ":" & i)
xMin = Application.Min(.Cells)
xMax = Application.Max(.Cells)
.Cells.Replace xMin, "=err", xlWhole
With .SpecialCells(xlCellTypeFormulas, xlErrors)
.Cells = xMin
.Interior.ColorIndex = IIf(xMin <> xMax, 38, 34)
End With
If xMin <> xMax Then
.Cells.Replace xMax, "=err", xlWhole
With .SpecialCells(xlCellTypeFormulas, xlErrors)
.Cells = xMax
.Interior.ColorIndex = 8
End With
End If
End With
r = i + 1
End If
i = i + 1
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2014-10-3 10:27 | 只看該作者

回復 2# GBKEE

板大可以喔，雖然我只要最小值，但是你連最大值也給了
有一個問題如果我不想看1-8月我只想看後面幾各月有辦法指定嗎?
是從cells這邊改嗎?

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2014-10-6 10:23 | 只看該作者

回復 2# GBKEE

跟原始檔案一樣，一開始我寫想要看5-8月的區間，不過版主直接針對全部做比較

字典兩各字還真難理解

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-10-7 11:45 | 只看該作者

回復 4# freeffly
試試看

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

6^#

發表於 2014-10-30 15:17 | 只看該作者

回復 5# GBKEE

抱歉現在才看
   板主的方式可以
   原來是在一開始的範圍那邊做設定喔
   我想錯方向了
   謝謝

字典兩各字還真難理解

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題