ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] EXCEL VBA ³W¹º¨D¸Ñµ{¦¡½X°ÝÃD

[µo°Ý] EXCEL VBA ³W¹º¨D¸Ñµ{¦¡½X°ÝÃD

§Ú¬O¿ý»s¤@­Ó³W¹º¨D¸Ñªº¥¨¶°

Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

For Index = 7 To 17
    SolverOk SetCell:=Cells(Index, 9), MaxMinVal:=3, ValueOf:=0, ByChange:="Cells( Index ,12):cells( Index ,13)", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
SolverSolve userFinish:=True
Next Index


End Sub


§Ú³]©wKÄ欰§Úªº¥Ø¼Ð¦¡
L¤ÎMÄ欰§ÚªºÅܧóÅܼÆÀx¦s®æ
³]©w­­¨î¦¡¬°I6 = K6

§Ú·QÅý¥L¦Û°Ê­p²¶]§¹¥H¤U¸ê®Æ¥i¬O³£¨S¤ÏÀ³

¦ý¶]¤@­ÓÅܧóÅܼÆÀx¦s®æªº¸Ü¬O¦³µ²ªG¥X¨Ó....¦ý¶]¨â­ÓÅܧóÅܼÆÀx¦s®æªº¸Ü´N¨S¤ÏÀ³©Î´«§Oªºµ{¦¡½Xªº¸Ü´N¥X²{¿ù»~µ¥

¬O¤£¬O­þ¸Ìµ{¦¡½X¦³¿é¤J¿ù»~©Î¬O¦³º|¤F¤°»ò??
½Ð¤j¤jÀ°¸Ñµª

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD