帖子: 40
主題: 11
精華: 0
積分: 89
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-23
最後登錄: 2016-10-7

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-10-20 10:34 | 只看該作者

取最小值後根據月份連續填滿儲存格

Dear all,

我的問題如附件.我想試試看可不可以用公式解決I欄的問題.I欄的數字需由下網上按照日期(列)看,取B到G欄最小的值,也就是H欄的數字(H欄不一定要存在)
再根據該列最小值對應到B到G欄第一列的數字(1,2,3,6,9,and 12)往上將I欄儲存格填滿.之後以此類推.

舉例來說,I13的1.51%取自B13-G13的最小值(C13),也就是H13,再根據C13往上對應到C1的數字(2),自I13往上填2格(I13和I12).其他都是以此類推....

線再的I欄其實我已經手動調整過了,但是因為資料數量龐大,希望各位大大可以幫我想個簡單的辦法.感激不盡

Book1.rar (4.37 KB)

樓主熱帖

Jeffrey Chen

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-10-20 22:12 | 只看該作者

回復 1# jcman

資料重新排序後加輔助欄

最小值.rar (4.62 KB)

學海無涯_不恥下問

TOP

jcman

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 89
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-23
最後登錄: 2016-10-7

3^#

發表於 2011-10-21 11:11 | 只看該作者

感激謝大的回覆,這個公式邏輯應該是對的,但我手動填上的結果似乎與公式的結果不完全一致,可能是我說明或一開始的檔案有誤,我手動拉了一欄數字(J),可否請謝大再看一下?

另外輔助欄外的部分我實在看不太懂,K欄的部分應該是用來輔助L欄的,但是為何要在K1放上1,其餘各列再加上前一列的數值? L 欄的lookup value為何是用row (a1)開始?, result vector 用row(($1:$13) 的意義又在哪裡呢?

以上可否請大大幫我解釋一下 ,再另外附上含J欄的數字以供參考,謝謝

最小值.rar (4.69 KB)

Jeffrey Chen

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-10-21 13:54 | 只看該作者

回復 3# jcman

一般函數可能有困難
用自定義函數解決

最小值.rar (9.67 KB)

學海無涯_不恥下問

TOP

jcman

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 89
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-23
最後登錄: 2016-10-7

5^#

發表於 2011-10-21 14:31 | 只看該作者

本帖最後由 Hsieh 於 2011-10-21 16:21 編輯

謝謝您的回答.所以您的意思是我這個問題即使套用您之前的輔助欄位也無法用公式解了嗎?
但VBA我實在完全不懂,可否麻煩您解釋一下下列語法? 因為不懂VBA,所以才會想說看可不可以用公式解答,希望可以了解公式或語法過程,謝謝您了

Function MyMin(Rng As Range, k%)'Rng是表格範圍，k代表取第幾個數值
Dim Ar()'宣告動態陣列
i = 2'從表格第二列為初始列
Do Until s >= Rng.Rows.Count'進行迴圈直到陣列大小大於等於表格的列數
Set x = Rng.Rows(i)'設表格的i列為變數x的範圍
n = Application.Min(x)'取最小值
j = Application.Index(Rng.Rows(1), , Application.Match(n, x, 0))'取最小值對應到表格第一列的值
For x = 1 To j  '做j次的迴圈
ReDim Preserve Ar(s)  '重新布置陣列
Ar(s) = n  '將最小值賦予陣列
s = s + 1  '預備擴展陣列
Next
i = i + j  '列數加上前列最小值對應次數為下一回圈的列
Loop  '跳脫迴圈
MyMin = Ar(k - 1)  '將陣列的第k-1個元素作為答案(因為陣列的索引值從零開始，所以必須減1)
End Function

Jeffrey Chen

TOP

jcman

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 89
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-23
最後登錄: 2016-10-7

6^#

發表於 2011-10-25 10:18 | 只看該作者

我需要一點時間消化一下,非常謝謝您的時間和分享.

Jeffrey Chen

TOP