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

[µo°Ý] excel³W¹º¨D¸Ñ°ÝÃD¡]¬O§_¯à¦Û°Ê§ó·s¡^

¦^´_ 10# ML089
¦bEXCELªí¤¤ªº­pºâªí¤º¶À¦â¨â¦æ(²Äm¦æ¤În¦æ)M¦æ¬O·Q¨Dªº¸Ñ   N¦æ¬O­pºâ¥X¨Óªºµª®×
±µµÛ§Ú¥Î­pºâ¥X¨Ó±oµª®×±a¤J¨D¸Ñ  ­pºâªíÅçºâ¨º¤@¤À­¶   ­pºâµ²ªG»P­ì©l¸ê®Æ  ¦³ºâ¥X¥Lªº»~®t
¦ý§Úµo²{¦s¦b¤@­Ó°ÝÃD   ¨C¦¸­pºâªºµª®×³£¤£¬Û¦P¡A¤£ª¾¹D­ì¦]¬O¤°»ò!



­pºâ¬yµ{.rar (959 KB)
m06o2~~~~

TOP

¦^´_ 11# m06o2

¬Ý¤£¤ÓÀ´
­Y¦³¤½¦¡´Nª½±µ´Nª½±µ¨D¸Ñ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 12# ML089

   O3 =((1.5*P3*Q3)*((1/(L3*(1+((U3/Q3)^2)*((N3/L3)^(2/3)))^(1/2)))+((1-(1/((1+((U3/Q3)^2))^(1/2))))/N3)))
   O3¡BP3¡BL3¡BU3¡BN3¡BU3³£¤wª¾   ­n¨DQ3  ©Ò¥H¥Î¤F¨D¸Ñªº¤èªk¨D   Q3
   ±µµÛ§â¨D¥X¨ÓªºQ3±a¤J­ì¦¡¤l¤¤­pºâ·sªºªºO3   ¦b¸ò­ì©lªºO3¤ñ¸û  µo²{¥L®t²§«Ü¤j
   
m06o2~~~~

TOP

J3 =(1.5*D3*E3)*((1/(C3*(1+((F3/E3)^2)*((B3/C3)^(2/3)))^(1/2)))+((1-(1/((1+((F3/E3)^2))^(1/2))))/B3))-H3
¤U©Ô

ºë«×§C³t«×§Ö
Sub ¥Ø¼Ð·j´M()
    [E3:E30] = 1
    For i = 3 To 30
        Range("J" & i).GoalSeek Goal:=0, ChangingCell:=Range("E" & i)
    Next
End Sub


¨D¸Ñºë«×¤ñ¸û°ª
'SolverSolve ¨ç¼Æ
'
'¶}©l°õ¦æ³W¹º¨D¸Ñ¸Ñ¨M¤è®×¡C¬Û·í©ó«ö¤@¤U [³W¹º¨D¸Ñ°Ñ¼Æ] ¹ï¸Ü¤è¶ô¤¤ªº [³W¹º¨D¸Ñ]¡C
'
'¨Ï¥Î¥»¨ç¼Æ¤§«e¡A¥²¶·«Ø¥ß¹ï³W¹º¨D¸Ñ¼W¯q¶°ªº°Ñ·Ó¡C¦b Visual Basic ½s¿è¾¹¤¤¡A±NµJÂI²¾¦Ü¬Y­Ó¼Ò²Õ¡A«ö¤@¤U [¤u¨ã] ¥\¯àªí¤Wªº [°Ñ·Ó]¡AµM«á¿ï¨ú [¥i¥Î°Ñ·Ó] ©³¤Uªº [Solver.xlam] ®Ö¨ú¤è¶ô¡C¦pªG [Solver.xlam] ¨S¦³¥X²{¦b [¥i¥Î°Ñ·Ó] ©³¤U¡A«ö¤@¤U [ÂsÄý]¡AµM«á¶}±Ò \office12\library\Solver ¤l¸ê®Æ§¨¤¤ªº Solver.xlam¡C
'
Sub ³W¹º¨D¸Ñ()
    [E3:E30] = 1
    For i = 3 To 30
        SolverOk SetCell:="$J$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$E$" & i
        SolverSolve UserFinish:=True
        'SolverFinish KeepFinal:=1, ReportArray:=Array(1)    '1 ªí¥Ü«Ø¥ßµª®×³ø§i¡A2 ªí¥Ü«Ø¥ß±Ó·P«×³ø§i¡A¦Ó 3 ªí¥Ü«Ø¥ß­­¨î³ø§i
    Next
End Sub

­pºâ¬yµ{.rar (804.1 KB)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 13# m06o2

°²¦p¬O¥Î range.goalseek ³æÅܼƨD¸Ñ¡A goal := 0
«Øij½Õ¾ã "ÀÉ®×""¿ï¶µ""¤½¦¡""­pºâ¿ï¶µ" "³Ì¤j»~®t"¡A¨Ò¦p 0.00001 À³¸Ó·|±o¨ì¤£¦Pªº»~®t¦Ê¤À¤ñ
1

µû¤À¤H¼Æ

    • ML089: ÁÂÁ¸ɥRª÷¿ú + 2

TOP

¦^´_ 15# Scott090
¦³³á   ³o­Ó¤èªk¦³Åܦn¤@ÂI!!
m06o2~~~~

TOP

¦^´_ 14# ML089
§Ú¦³´ú¸Õ³o­Ó¤èªk  µo²{¤@­Ó°ÝÃD  
Sub ³W¹º¨D¸Ñ()
    For i = 1 To 30
        SolverOk SetCell:="$J$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$B$" & i
        SolverSolve UserFinish:=True
        'SolverFinish KeepFinal:=1, ReportArray:=Array(1)    '1 ªí¥Ü«Ø¥ßµª®×³ø§i¡A2 ªí¥Ü«Ø¥ß±Ó·P«×³ø§i¡A¦Ó 3 ªí¥Ü«Ø¥ß­­¨î³ø§i
    Next
End Sub
³o¼Ë¥i¥H°õ¦æ  
¦ý¬O·í§Úªºi ±q  1 To 30  §ï¦¨  1 To 1990  ¶]§¹§Ú¥þ³¡ªº®É­Ô  µo²{¶]«Ü¤[  µ²ªG¶]§¹«á  ¼Æ­È³£¨S§ïÅÜ!!  ¦ý¤@¦¸½Õ¾ã¤p½d³ò´N¥i¥H°õ¦æ
m06o2~~~~

TOP

¦^´_ 17# m06o2

¬Q¤Ñ§Ú¦³´ú¸Õ 99µ§ÁÙOK¡A
­n°õ¦æ1~2000µ§·|«Ü¤[§a?
±ß¤W§Ú¦A¸Õ¸Õ

¥Ø«e¨S¦³·Qªk¥i¥H¸Ñ¨M
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 18# ML089
§Ú´ú¸Õ 1-100¤]ÁÙOK  ¬ù1¤ÀÄÁ  ¦ý§Úcpu¬Oi7ªº   ¶]¤j·§¥u»Ý­n15¤ÀÄÁ  2000µ§
m06o2~~~~

TOP

¦^´_ 19# m06o2

[E3:E30] = 1
ªì©l­È¦³­×§ï¶Ü?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD