參考附件︰http://www.FunP.Net/420776
n = 1: m = 1
For i = 1 To 49
'If Msrr(i) > 0Then '列467
'n = n + 1
'Sheets(1).Cells(n,"A") = i
'Sheets(1).Cells(n, "B") = Msrr(i)
'End If
'If Urr(i) = 1 Then
'm = m + 1
'Sheets(1).Cells(m,"C") = i
'End If '列475
Next
需求︰
將列467~列475的邏輯條件改為~
1.將子資料夾內各檔案內之各母段落(即B欄︰H欄)有標示7號粗字顏的01~49數字~
以重複者取其1並有小而大依序填入機率表的A2︰A50。
2.將機率表A2︰A50所顯示的數字在各母段落有標示7號粗字顏的各加總次數~
填入B2︰B50之對應儲存格。
3.將子資料夾內各檔案內之各母段落(即B欄︰H欄)的最後一列(即A欄= Nrange期數的列)~
其儲存格有標示3號粗框線的數字~以重複者取其1並有小而大依序填入機率表的C2︰C8。
4.將機率表C2︰C8有顯示數字的儲存格之加總個數/機率表A2︰A50有顯示數字的儲存格之加總個數之商數填入機率表的D2。
詳如附件。
以上需求的程式碼~敬請各位前輩賜教是幸! 謝謝!
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html
留言列表
留言列表
