½Ð°Ýn¦p¦óŪ¤J¥t¥~¤@Ó¥¨¶°ªº¯x°}©O
- ©«¤l
- 5
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- Window2003
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-4
- ³Ì«áµn¿ý
- 2011-10-28
|
½Ð°Ýn¦p¦óŪ¤J¥t¥~¤@Ó¥¨¶°ªº¯x°}©O
§Ú¦³¨âÓ¥¨¶° µ{¦¡³£º¡ªøªº
©Ò¥H·|¥Î©I¥s¥t¥~¤@Ó¥¨¶°ªº¤è¦¡¶i¦æ³B²z
·QnÅýreserve_table_Calculation ª½±µ¦bvbaªº¦a¤è ±Noutput_RBC ©Ò²£¥Íªºrbc(m) ª½±µÅª¤Jrbc1((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
·PÁ¦U¦ì¤F |
|
|
|
|
|
|