ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD