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

VBA~7個工作表的指定區域數字加總後,顯示在另個工作表。

Sheets("DATA").Select

Sheets.Add

ActiveSheet.Name = "總統計比率表"

With Sheets("總統計比率表")

.Columns("A:H").Font.Name = "Arial"

.Columns("A:H").HorizontalAlignment = xlCenter

.Columns("A:H").VerticalAlignment= xlCenter

Sheets(1).Range("D1","K3").Copy .Range("A1")

End With

需求︰

1.將工作表"一", "二", "三", "四", "五", "六", "特"的.[E4:E52]有顯示的數字,以重複取其1,

並由小而大依序往下填入"總統計比率表"的.[B4];

且將.[B4]以下<>""的儲存格標示框線和7號粗字顏及數值自訂為"00"和14號Size。

2.將.[B4]以下有=$B$1:$H$1的數字;由小而大依序往下填入.[C4],

且將.[C4]以下<>""儲存格標示框線和3號粗字顏及數值自訂為"00"和14號Size。

3..[D4]=.[C4](含)以下<>""的儲存格個數/[B4] (含)以下<>""的儲存格個數,

並以3號粗字顏的"0.0%"百分比顯示,且當.[D4] <>""則標示框線。

4.將工作表"一", "二", "三", "四", "五", "六", "特"的.[I4:I52]有顯示的數字,以重複取其1,

並由小而大依序往下填入"總統計比率表"的.[F4];

且將.[F4]以下以下<>""的儲存格標示框線和7號粗字顏及數值自訂為"00"和14號Size。

5.將.[F4]以下有=$B$1:$H$1的數字;由小而大依序往下填入.[G4],

且將.[G4]以下<>""的儲存格標示框線和3號粗字顏及數值自訂為"00"和14號Size。

6..[H4]=.[G4] (含)以下<>""的儲存格個數/[F4] (含)以下<>""的儲存格個數,

並以3號粗字顏的"0.0%"百分比顯示,且當.[H4] <>""則標示框線。

以上新增程式碼語法~

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

1 個解答

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

    列86Dim E_A(1 To 49)Dim I_B(1 To 49) :列302 Sheets("DATA").Select

    Sheets.Add

    ActiveSheet.Name = "總統計比率表"

    With Sheets("總統計比率表")

    .Columns("A:H").Font.Name= "Arial"

    .Columns("A:H").HorizontalAlignment = xlCenter

    .Columns("A:H").VerticalAlignment= xlCenter

    Sheets(1).Range("D1","K3").Copy .Range("A1")

    B_n = 0

    F_n = 0

    n = 0

    G_n = 0……………….. 更多

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