VBA~修改程式碼邏輯。: @ 情侶台北一日遊2016拜託大大幫忙規劃台北一日遊行程台北一日遊行程規劃台北捷運一日遊推薦台北一日遊可以怎麼安排

Blogtrottr

Yahoo!奇摩知識+ - 分類問答 - 電腦網路 - 發問中

VBA~修改程式碼邏輯。

Jul 30th 2013, 23:07

參考附件︰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

需求︰
將列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

You are receiving this email because you subscribed to this feed at blogtrottr.com.

If you no longer wish to receive these emails, you can unsubscribe from this feed, or manage all your subscriptions