Board logo

標題: 請問要如何讀入另外一個巨集的矩陣呢 [打印本頁]

作者: blueteddy    時間: 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

感謝各位了
作者: GBKEE    時間: 2011-10-28 16:55

回復 1# blueteddy

  你的發問  [ 排序陣列的方法] 中不是就有了




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)