返回列表下一主題上一主題發帖

請問要如何讀入另外一個巨集的矩陣呢

blueteddy

小學生 Rank: 1

帖子: 5
主題: 4
精華: 0
積分: 9
點名: 0
作業系統: Window2003
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-8-4
最後登錄: 2011-10-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-10-28 09:26 | 只看該作者

請問要如何讀入另外一個巨集的矩陣呢

兩個巨集

我有兩個巨集程式都滿長的
所以會用呼叫另外一個巨集的方式進行處理
想要讓reserve_table_Calculation 直接在vba的地方將output_RBC 所產生的rbc(m) 直接讀入rbc1((k - 1) * MO + M, 1) 裡面?

Sub reserve_table_Calculation()
....
         Worksheets("Input").Range("C4") = 15 + I * 20
         Worksheets("Input").Range("C5") = j
..
   '' Produce reserve_result  & rbc_result
      For k = 1 To b Step 1 'scenario

         Worksheets("Month_P").Range("CL18") = k

         Call RBC_Main
         Application.Calculation = xlCalculationAutomatic
         Application.Calculation = xlCalculationManual
         For M = 1 To MO Step 1

'                rbc1((k - 1) * MO + M, 1) = ???color]
            Next M
      Next k
End Sub

Sub output_RBC()
  Worksheets("Month_P_RV").Select
  Range("ref_AG37").Select
  For m = 1 To mo
ActiveCell.Offset(T - 1, 2).Value = RBC(m)
  Next T

感謝各位了