close
標題:
VBA~增加一個工作表。
需求︰增加一個"總統計表"的工作表。說明︰Sheets.Add ActiveSheet.Name = "總統計表" ActiveWindow.Zoom = 75………………………..其它凍結視窗(A2),…等格式如附件範例~恕容不再另作文字說明。總統計表的統計邏輯&內容︰以Nrange =800-800；Num=1；Tmthc... 顯示更多 需求︰增加一個"總統計表"的工作表。 說明︰ Sheets.Add ActiveSheet.Name = "總統計表" ActiveWindow.Zoom = 75 ……………………….. 其它凍結視窗(A2),…等格式如附件範例~恕容不再另作文字說明。 總統計表的統計邏輯&內容︰ 以Nrange =800-800；Num=1；Tmthc =30為說明範例。 1.將Mth~Mth-6的各CW欄有標示44號底色的數字，以重複取其1，由小而大依序往下填入A欄； 並將Mth~Mth-6的各CW欄有標示44號數字的顯示次數之加總值，填入A欄數字之對應B欄儲存格。 EX︰A2=02，B2=1(次)；A7=14，B7=3(次)；A16=42，B16=2(次)。 再將A欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將B欄的最大次數(可並取)之對應A欄儲存格標示44號底色。 另將A欄有標示7號字顏的數字依序往下填入C欄； 又當C欄的數字=A欄儲存格有標示44號底色的數字時，則將該C欄的數字之儲存格亦標示44號底色。 D2=C欄有顯示數字的儲存格加總個數/A欄的儲存格加總個數~EX︰4/16=25.00% D3=C欄有標示44號底色數字的儲存格加總個數/A欄有標示44號底色的儲存格加總個數~EX︰0/1=0.00% 2.將Mth~Mth-6的各DL欄有標示8號底色的數字，以重複取其1，由小而大依序往下填入E欄； 並將Mth~Mth-6的各DL欄有標示8號數字的顯示次數之加總值，填入E欄數字之對應F欄儲存格。 EX︰E2=14，F2=1(次)；E7=14，F7=2(次)。 再將E欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將F欄的最大次數(可並取)之對應A欄儲存格標示8號底色。 另將E欄有標示7號字顏的數字依序往下填入G欄； 又當G欄的數字=E欄儲存格有標示8號底色的數字時，則將該G欄的數字之儲存格亦標示8號底色。 H2=G欄有顯示數字的儲存格加總個數/E欄的儲存格加總個數~EX︰1/19=11.11% H3=G欄有標示8號底色數字的儲存格加總個數/E欄有標示8號底色的儲存格加總個數~EX︰0/1=0.00% 3.將Mth~Mth-6的各DP欄有顯示的數字，以重複取其1，由小而大依序往下填入I欄； 並將Mth~Mth-6的各DP欄有顯示的數字之次數加總值，填入I欄數字之對應J欄儲存格。 EX︰I2=02，J2=1(次)；I7=14，J7=3(次)。 再將I欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將J欄的最大次數(可並取)之對應I欄儲存格標示45號底色。 另將I欄有標示7號字顏的數字依序往下填入K欄； 又當K欄的數字=I欄儲存格有標示45號底色的數字時，則將該K欄的數字之儲存格亦標示45號底色。 L2=K欄有顯示數字的儲存格加總個數/I欄的儲存格加總個數~EX︰4/19=21.05% L3=K欄有標示45號底色數字的儲存格加總個數/I欄有標示45號底色的儲存格加總個數~EX︰1/3=33.33% 4.將Mth~Mth-6的各DS欄有顯示的數字，以重複取其1，由小而大依序往下填入M欄； 並將Mth~Mth-6的各DS欄有顯示的數字之次數加總值，填入M欄數字之對應N欄儲存格。 EX︰M2=14，N2=1(次)；M3=24，N3=1(次)。 其餘邏輯同3.只是將儲存格標示45號底色改為34號底色。 5.將Mth~Mth-6的各DV欄有標示43號底色的數字，以重複取其1，由小而大依序往下填入Q欄； 並將Mth~Mth-6的各DV欄有標示43號數字的顯示次數之加總值，填入Q欄數字之對應R欄儲存格。 EX︰Q2=02，R2=1(次)；Q11=32，R11=3(次)。 其餘邏輯同2.只是將儲存格標示8號底色改為43號底色。 詳如附件︰800期_1_30 & 800期_2_30 以上 敬請 各位前輩賜教是幸! 謝謝! 更新: 抱歉!附件漏貼了^^" 參考附件︰http://www.FunP.Net/664612 更新 2: KATO大大: 重點在要先有測試工具 如果每期都有如800期_2_30的總統計表!Q:T之類似結果 那就有好戲囉^^ 更新 3: 冰大: Num輸入1-2，沒問題， 但輸入1-3或3或4(即Num>=3)時，列458 If z1 > 0 Then zR(1, 4) = (z3 - 1) / (z1 - 1) 會產生偵錯^^" 請賜正!謝謝您^^ 更新 4: 冰大: 測試OK了!謹請上答!謝謝您^^
最佳解答:
參考檔案 http://www.FunP.Net/877319 請測試 2013-12-29 17:19:15 補充： 煩將 列458 If z1 > 0 Then zR(1, 4) = (z3 - 1) / (z1 - 1) 改為 If z1 > 1 Then zR(1, 4) = (z3 - 1) / (z1 - 1) ~ ....^^ 2013-12-30 22:22:55 補充： 新增 總統計表 用 陣列 s7T49Ar(1 To 49, 1 To 5) 分別記錄 7欄測數,次數測數,綜合測數,交集測數,NUM測數 之五項資料 ~ 參考檔案 http://www.FunP.Net/877319
其他解答:
＊ ***** http://***** ＊ [電子遊戲] 拉霸、水果盤、7PK、5PK [運彩遊戲] 棒球、籃球、足球、網球、冰球、各種體育經典賽事 [真人遊戲] 百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠 [對戰遊戲] 台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍 [彩球遊戲] 香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數 [優惠活動] 1. 新舊會員儲值就送500點 2. 真人百家樂彩金等你拿 ***** http://***** 歡迎免費體驗試玩!! 線上影片直播、正妹圖、討論區免費註冊 ~|||||每一期7個號碼作統計範圍較適當~ 7期7個號碼作統計範圍就稍嫌太寬廣了~容易失真^^ 不過有了程式，才能RUN出許多期的結果來觀察~ 或許Tmthc10~20的結果會不一樣也說不定^^"7C4150FCDCEDD023
VBA~增加一個工作表。
- 想買LEVIS 卻不知到底要買多大
- 想要一篇500或以上的時裝介紹,,,(急)THZ~@1@
- 刑事附帶民事訴訟,民事部份不一定會開庭嗎-
- 在宜蘭那裡可以輔導考中餐丙級證照@1@
- 主機板+CPU+顯示器
- 一直無法連線到ptt@1@
- Wacom CTL-470 (電繪新手)@1@
- 中國是現今世界上第幾大的經濟體系-
- 我想知道貝多芬或莫札特的電影 請看過的人來回答@1@
- 從新莊到內湖
此文章來自奇摩知識+如有不便請留言告知
發問:需求︰增加一個"總統計表"的工作表。說明︰Sheets.Add ActiveSheet.Name = "總統計表" ActiveWindow.Zoom = 75………………………..其它凍結視窗(A2),…等格式如附件範例~恕容不再另作文字說明。總統計表的統計邏輯&內容︰以Nrange =800-800；Num=1；Tmthc... 顯示更多 需求︰增加一個"總統計表"的工作表。 說明︰ Sheets.Add ActiveSheet.Name = "總統計表" ActiveWindow.Zoom = 75 ……………………….. 其它凍結視窗(A2),…等格式如附件範例~恕容不再另作文字說明。 總統計表的統計邏輯&內容︰ 以Nrange =800-800；Num=1；Tmthc =30為說明範例。 1.將Mth~Mth-6的各CW欄有標示44號底色的數字，以重複取其1，由小而大依序往下填入A欄； 並將Mth~Mth-6的各CW欄有標示44號數字的顯示次數之加總值，填入A欄數字之對應B欄儲存格。 EX︰A2=02，B2=1(次)；A7=14，B7=3(次)；A16=42，B16=2(次)。 再將A欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將B欄的最大次數(可並取)之對應A欄儲存格標示44號底色。 另將A欄有標示7號字顏的數字依序往下填入C欄； 又當C欄的數字=A欄儲存格有標示44號底色的數字時，則將該C欄的數字之儲存格亦標示44號底色。 D2=C欄有顯示數字的儲存格加總個數/A欄的儲存格加總個數~EX︰4/16=25.00% D3=C欄有標示44號底色數字的儲存格加總個數/A欄有標示44號底色的儲存格加總個數~EX︰0/1=0.00% 2.將Mth~Mth-6的各DL欄有標示8號底色的數字，以重複取其1，由小而大依序往下填入E欄； 並將Mth~Mth-6的各DL欄有標示8號數字的顯示次數之加總值，填入E欄數字之對應F欄儲存格。 EX︰E2=14，F2=1(次)；E7=14，F7=2(次)。 再將E欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將F欄的最大次數(可並取)之對應A欄儲存格標示8號底色。 另將E欄有標示7號字顏的數字依序往下填入G欄； 又當G欄的數字=E欄儲存格有標示8號底色的數字時，則將該G欄的數字之儲存格亦標示8號底色。 H2=G欄有顯示數字的儲存格加總個數/E欄的儲存格加總個數~EX︰1/19=11.11% H3=G欄有標示8號底色數字的儲存格加總個數/E欄有標示8號底色的儲存格加總個數~EX︰0/1=0.00% 3.將Mth~Mth-6的各DP欄有顯示的數字，以重複取其1，由小而大依序往下填入I欄； 並將Mth~Mth-6的各DP欄有顯示的數字之次數加總值，填入I欄數字之對應J欄儲存格。 EX︰I2=02，J2=1(次)；I7=14，J7=3(次)。 再將I欄有顯示在開獎版的最末列(即=當期開獎號碼)的數字標示7號字顏， 並將J欄的最大次數(可並取)之對應I欄儲存格標示45號底色。 另將I欄有標示7號字顏的數字依序往下填入K欄； 又當K欄的數字=I欄儲存格有標示45號底色的數字時，則將該K欄的數字之儲存格亦標示45號底色。 L2=K欄有顯示數字的儲存格加總個數/I欄的儲存格加總個數~EX︰4/19=21.05% L3=K欄有標示45號底色數字的儲存格加總個數/I欄有標示45號底色的儲存格加總個數~EX︰1/3=33.33% 4.將Mth~Mth-6的各DS欄有顯示的數字，以重複取其1，由小而大依序往下填入M欄； 並將Mth~Mth-6的各DS欄有顯示的數字之次數加總值，填入M欄數字之對應N欄儲存格。 EX︰M2=14，N2=1(次)；M3=24，N3=1(次)。 其餘邏輯同3.只是將儲存格標示45號底色改為34號底色。 5.將Mth~Mth-6的各DV欄有標示43號底色的數字，以重複取其1，由小而大依序往下填入Q欄； 並將Mth~Mth-6的各DV欄有標示43號數字的顯示次數之加總值，填入Q欄數字之對應R欄儲存格。 EX︰Q2=02，R2=1(次)；Q11=32，R11=3(次)。 其餘邏輯同2.只是將儲存格標示8號底色改為43號底色。 詳如附件︰800期_1_30 & 800期_2_30 以上 敬請 各位前輩賜教是幸! 謝謝! 更新: 抱歉!附件漏貼了^^" 參考附件︰http://www.FunP.Net/664612 更新 2: KATO大大: 重點在要先有測試工具 如果每期都有如800期_2_30的總統計表!Q:T之類似結果 那就有好戲囉^^ 更新 3: 冰大: Num輸入1-2，沒問題， 但輸入1-3或3或4(即Num>=3)時，列458 If z1 > 0 Then zR(1, 4) = (z3 - 1) / (z1 - 1) 會產生偵錯^^" 請賜正!謝謝您^^ 更新 4: 冰大: 測試OK了!謹請上答!謝謝您^^
最佳解答:
參考檔案 http://www.FunP.Net/877319 請測試 2013-12-29 17:19:15 補充： 煩將 列458 If z1 > 0 Then zR(1, 4) = (z3 - 1) / (z1 - 1) 改為 If z1 > 1 Then zR(1, 4) = (z3 - 1) / (z1 - 1) ~ ....^^ 2013-12-30 22:22:55 補充： 新增 總統計表 用 陣列 s7T49Ar(1 To 49, 1 To 5) 分別記錄 7欄測數,次數測數,綜合測數,交集測數,NUM測數 之五項資料 ~ 參考檔案 http://www.FunP.Net/877319
其他解答:
＊ ***** http://***** ＊ [電子遊戲] 拉霸、水果盤、7PK、5PK [運彩遊戲] 棒球、籃球、足球、網球、冰球、各種體育經典賽事 [真人遊戲] 百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠 [對戰遊戲] 台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍 [彩球遊戲] 香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數 [優惠活動] 1. 新舊會員儲值就送500點 2. 真人百家樂彩金等你拿 ***** http://***** 歡迎免費體驗試玩!! 線上影片直播、正妹圖、討論區免費註冊 ~|||||每一期7個號碼作統計範圍較適當~ 7期7個號碼作統計範圍就稍嫌太寬廣了~容易失真^^ 不過有了程式，才能RUN出許多期的結果來觀察~ 或許Tmthc10~20的結果會不一樣也說不定^^"7C4150FCDCEDD023
文章標籤
全站熱搜
留言列表
