close
VBA~頭尾數、連號依據選項條件剔除的語法。
參考附件︰http://www.FunP.Net/542786設立各列頭尾數及連號各類型的核取方塊~即可單選、複選、全選、都不選~依據勾選的項目，進行剔除。請詳見附件內各類型選項的例舉說明。請問︰頭尾數及連號各選項的需求語法應該如何編輯？謝謝!
＜範例檔＞： http://www.funp.net/942749 再加入〔等差〕選項，請先測試！ 2012-03-27 20:44:21 補充： EXCEL VBA．〔多條件．複合式〕資料之〔篩選及分表〕．續１ ＜．准提部林．＞ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ＜續前題＞ VBA~奇偶數剔除選項的語法。. http://tw.knowledge.yahoo.com/question/question?qid=1012031601161範例檔簡介： ■新增需求： ＜需求Ｃ．相同頭數＞ ．比對同列６個數字〔頭數〕相同的〔個數〕。 ．設置１０個選項(可複選)，以供〔篩選及分表〕之條件。 ＜需求Ｄ．相同尾數＞ ．比對同列６個數字〔尾數〕相同的〔個數〕。 ．設置１０個選項(可複選)，以供〔篩選及分表〕之條件。 ＜需求Ｅ．連號＞ ．比對同列６個數字〔連號〕的〔個數〕。 ．設置１１個選項(可複選)，以供〔篩選及分表〕之條件。 ■說明： 上三需求，使用〔輔助區〕先行運算，再將結果置入目標欄， 請參考範例檔。 ■程式碼：僅列部份程式碼，其它請參考範例檔。 Sub 公式統計() Dim uAddress$ Call 共用參照 For i = 1 To 3 uCunt = aHead(i).Cells(65536, 1).End(xlUp).Row - 1 If uCunt = 0 Then GoTo NEXT_LIST '頭數統計 uAddress = aHead(i)(2, 1).Resize(1, 6).Address(0, 1) ShtA.[CA2].Resize(uCunt, 5).Formula = _ "=SUMPRODUCT(N(INT(" & uAddress & "/10)=COLUMN(A1)-1))" With ShtA.[CA2].Cells(1, 6).Resize(uCunt, 1) .Formula = "=LARGE(CA2:CE2,1)&LARGE(CA2:CE2,2)&LARGE(CA2:CE2,3)" aHead(i)(2, 10).Resize(uCunt, 1) = .Value End With '尾數統計 ShtA.[CA2].Resize(uCunt, 10).Formula = _ "=SUMPRODUCT(N(MOD(" & uAddress & ",10)=COLUMN(A1)-1))" With ShtA.[CA2].Cells(1, 11).Resize(uCunt, 1) .Formula = "=LARGE(CA2:CJ2,1)&LARGE(CA2:CJ2,2)&LARGE(CA2:CJ2,3)" aHead(i)(2, 11).Resize(uCunt, 1) = .Value End With '連號統計 With aHead(i)(2, 12).Resize(uCunt, 1) .FormulaR1C1 = "=""'""&TEXT(SUMPRODUCT((RC[-10]:RC[-6]-RC[-11]:RC[-7]=1)*10^{4,3,2,1,0}),""00000"")" .Value = .Value .Replace "00000", "X", Lookat:=xlPart .Replace "11111", "6u" .Replace "1111", "5u" .Replace "111", "4u" .Replace "11", "3u" .Replace "1", "2u" .Replace "0", "" .Replace "2u4u", "4u2u" .Replace "2u3u", "3u2u" End With ShtA.[CA2].Resize(1, 11).EntireColumn.Delete NEXT_LIST: Next i End Sub －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ＜範例檔＞： http://www.funp.net/225373 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 2012-03-27 20:46:30 補充： KATO大： 〔等差〕的邏輯完全不同，須再詳細評估解法， 就先以此題主要需求處理了！
准大︰感謝您又快速的將等差選項編輯好了!因為沒預料到您動作這麼快，所以小弟尚有一些細項來不及說明和增添。但又深覺一題不宜有這麼多需求~小弟愧疚難安!敬請您將001意見的貴解答檔上答。謝謝您!2012-03-2603:30:06補充：jian大師︰久違了!感謝您的熱情贊助。^_^2012-03-2721:29:31補充：准大︰這樣就非常感激不盡了!其它的都等您有空檔再說!感恩囉~^^
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20120325000016KK02630