KATO
Lv 5
KATO asked in 電腦與網際網路軟體 · 9 years ago

VBA~修改Sheet表格式樣的語法。

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

以輸入期數(Mthcount)=200為例~

說明︰原效果檔工作表的資料內容~

A︰H欄複製DATA的0期到Mthcount+1期的資料;

I︰P欄複製DATA的1期到Mthcount+2期的資料;

請詳見︰

排全_49RA_11_200期-7sheet-117(USED);

排全_49RA_11_200期-30sheet-111(USED)。

需求︰將上述工作表的資料內容~修改為︰

A︰H欄複製DATA的0期到$R7+T$3期的資料;

I︰P欄複製DATA的T$5-$R7期到Mthcount期的資料。

請詳見︰

排全_49RA_11_200期-7sheet-117(NEW);

排全_49RA_11_200期-30sheet-111(NEW)。

請問︰有關程式碼應該如何編修? 謝謝!

1 Answer

Rating
  • 顯栓
    Lv 7
    9 years ago
    Favorite Answer

    列175 With Sheets(d + 1)   .[A1:P6].Copy Sheets(1).[A1]   .Range("A7:H" & b + 7).Copy Sheets(1).[A7]   .Range("A" & .[T5] - .Range("R" & b.Row) + 7 & ":H" & mthcount + 7).Copy Sheets(1).[I7]   .Columns("Q:T").Copy Sheets(1).[Q1]End WithWith Sheets(1)   .[A:P].ColumnWidth = 5 '欄寬   .[A:P].RowHeight = 20 '列高   .Range("T7:T" & tx).Delete   .Range("T" & b.Row) = bEnd With

Still have questions? Get your answers by asking now.