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

VBA~連續欄遞增列填入數字及標示區格線和標示底色。

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

附件程式碼參考來源︰

http://tw.knowledge.yahoo.com/question/question?qi...

感謝Airman大大和saa大大提供檔案參考。

需求︰各效果檔案的工作表新增內容

With Sheets(Shrr(I - 1))

L欄︰填入數字及標示字體顏色~

由L3填入= mthcount-A2+1的數字,並以遞減1往下填入,直到0時,

再以遞加1往下填入,直到= mthcount-A2+1的數字為止。

請標示3號顏色粗體字。

N欄︰標示底色~

由M欄= mthcount數字的N欄對應儲存格開始,

將該儲存格往上的各儲存格依40,39,45,4,38,37,8,44的順序標示底色,

並以循環的方式標示到N3為止。

O欄往右的連續欄遞增列填入數字~

由O4填入.Range("B2","B" & mthcount + 1 - StrRng + 1)的數字,

並往右遞增列直到M欄=mthcount數字的同一列為止。

EX︰StrRng =1;Nrange(mthcount) =100

.Range("B2", "B" & mthcount + 1 - StrRng + 1).Copy.Range("O4")

.Range("B2", "B" & mthcount + 1 - StrRng + 1).Copy.Range("P5")

.Range("B2", "B" & mthcount + 1 - StrRng + 1).Copy.Range("DI02")

EX︰StrRng =50;Nrange(mthcount)=100

.Range("B2", "B" & mthcount + 1 - StrRng + 1).Copy.Range("O4")

.Range("B2", "B" & mthcount + 1 - StrRng + 1).Copy.Range("BL53")

標示區格線︰

在L欄=0的列,將L欄(含)右邊有顯示數字的儲存格上下邊線標示3號粗線。

當L欄有顯示數字時,則將上述的上邊線,往上每隔8列再標示11號粗上邊線。

當L欄有顯示數字時,則將上述的下邊線,往下每隔8列再標示11號粗下邊線。

End With

以上新增程式碼語法~

敬請各位前輩、先進不吝賜教!謝謝!

3 個解答

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

    Set int_rng = .Range("N" & MTHCOUNT + 3 - StrRng + 1) int_rng.Interior.ColorIndex = 6 icarr = Array(40, 39, 45, 4, 38, 37, 8, 44) n = 0 For k = int_rng.Row - 1 To 3 Step -1  n = n + 1  int_rng(1 - n, 1).Interior.ColorIndex = icarr((n - 1) Mod 8) Next詳細參考:http://tco.cseintltd.com.tw/applerot/VBA/KATO/7C_Q...

  • 匿名使用者
    7 年前

    到下面的網址看看吧

    ▶▶http://*****/

  • 7 年前

    到下面的網址看看吧

    ▶▶http://*****/

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