KATO
Lv 5
KATO 發問時間: 電腦與網際網路軟體 · 8 年前

VBA~符合=<期距的子段落「都列入」比對範圍和次數計算。

參考附件︰http://www.funp.net/199707

需求︰

1.當符合邏輯的RCrng,其比對的期數有符合=<NUM(期距)的子段落~

都列入比對範圍且都必須列入次數計算。

2.當某子段落有顯示數字的總期數<NUM時,

則在該子段落有顯示數字的StrRng期數之上方及其標題下~將不足之期距顯示空白,

且該子段落不足之期距的空白儲存格(其值視為=00)也都必須列入比對。

詳如附件。

其餘填入Ncount的數字以此類推。

請問︰

如上述需求的相關程式碼應該如何增修?

敬請各位前輩賜教是幸! 謝謝!

1 個解答

評分
  • 顯栓
    Lv 7
    8 年前
    最佳解答

    列324 Fori = 1 To UBound(MCN) + 1   [A1].Resize(1, 8).Copy Sheets("Sheet1").Cells(6,i * 8 - 7)  Cells(Application.Max(MCN(i - 1) +(In1rr(rng - 1) - MCN(0)) - h + 2, StrRng + 1), 1).Resize(Application.Min(h,MCN(i - 1) + (In1rr(rng - 1) - MCN(0)) - StrRng + 1), 8).Copy Sheets("Sheet1").Cells(Application.Max(7,h - (MCN(i - 1) + (In1rr(rng - 1) - MCN(0)) - StrRng + 1) + 7), i * 8 - 7) Next列334If Brn(j, i - 1) And .Cells(h - Brn(0, i -1) + 6, Cn * 8 + j + 1).Value <> "" Then詳細參考:http://tco.cseintltd.com.tw/applerot/VBA/KATO/49RC...

還有問題?馬上發問,尋求解答。