- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- U
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-9
- ³Ì«áµn¿ý
- 2015-3-22
|
[µ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À°¸Ñµª |
|