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

[µo°Ý] GoalSeek ­n¦p¦ó¨Ï¥Î?

[µo°Ý] GoalSeek ­n¦p¦ó¨Ï¥Î?

¦U¦ì¤j¤j¦n,¤p§Ì¤£¤~

VBA®×F1µLªk»¡©ú¦¹¥\¯à

google¤§«á¤j³¡¤À³£¬O­^¤åµ²ªG,¬Ý¤£¤ÓÀ´¯u¥¿·N«ä

·Q½Ð±Ð:¨Ò¦p
Range("a1").GoalSeek Goal:=0, ChangingCell:=Range("b1")

³o¥yµ{¦¡½X,¬O¬Æ»ò·N«ä©O?

­n¦p¦ó¨Ï¥Î©O~?
PKKO

¦^´_ 1# PKKO
Excel ¶}µo¤H­û°Ñ¦Ò¸ê®Æ
Range.GoalSeek ¤èªk
¬°±o¥X¯S©wµ²ªG¦Ó¶i¦æ³æÅܼƨD¸Ñ¡C¦pªG¦¹µ²ªG¬O¥Ñ¬Y¤½¦¡¶Ç¦^ªº¶q¡A¥»¤èªk±N¨D¥X¸Ó¤½¦¡¤¤¥¼ª¾¼Æªº­È¡A·í¥Î¸Ó­È¥N´«¤½¦¡¤¤ªº¥¼ª¾¼Æ®É¡A¸Ó¤½¦¡±N±o¥X©Ò»Ýªºµ²ªG¡C¦pªG¸Óµ²ªG·j´M¦¨¥\«h¶Ç¦^ True¡C
»yªk

¹Bºâ¦¡.GoalSeek(Goal, ChangingCell)

¹Bºâ¦¡   ¥Nªí Range ª«¥óªºÅܼơC

°Ñ¼Æ

¦WºÙ ¥²­n/¿ï¥Î ¸ê®ÆÃþ«¬ ´y­z
Goal ¥²­n Variant ­n¶Ç¦Ü¦¹Àx¦s®æªº­È¡C
ChangingCell ¥²­n Range ·|«ü©w­n¹F¨ì¥Ø¼Ð­È©Ò»ÝÅܧóªºÀx¦s®æ¡C

¶Ç¦^値
Boolean

½d¨Ò


¥»½d¨Ò°²³]¤u§@ªí Sheet1 ¤¤¦³¤@­Ó¦W¬° "Polynomial" ªºÀx¦s®æ¡A¸ÓÀx¦s®æªº¤½¦¡¬° =(X^3)+(3*X^2)+6¡A¥t¥~ÁÙ¦³¦W¬° "X" ªºªÅ¥ÕÀx¦s®æ¡C¥»½d¨Ò±N¨D¥X·íÀx¦s®æ Polynomial ªº­Èµ¥©ó 15 ®É¡AÀx¦s®æ X ªº­È¡C

Visual Basic for Applications
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
    Goal:=15, _
    ChangingCell:=Worksheets("Sheet1").Range("X")
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 1# PKKO
½Ð°Ñ¦Ò¡G
Automatic Goal Seek

TOP

·PÁ¨â¦ì¤j¤jªº¦^ÂСA«D±`²M·¡©úÁA!!
¦n»Åªºµ{¦¡½X~
PKKO

TOP

·Q½Ð°Ý¨â¦ì¤j¤j,¦³¥i¯à¤£­n°Ñ·Ó¨ìÀx¦s®æ

ª½±µ±N¥¦°Ñ·Ó¨ìÅܼơA©Î¬O°}¦C¶Ü?
EX·íµM§Úªº¿ù»~,µLªk°õ¦æ)
x=a+1
x.GoalSeek Goal:=2, ChangingCell:=a
PKKO

TOP

¦^´_ 5# PKKO


    GoalSeek ¦³¿ìªk¨Ï¥ÎÅܼƨú¥NÀx¦s®æ¶Ü?
¦]¬°¥ÎÀx¦s®æÁÙ±o¥ý¥Î¤½¦¡,ª½±µ¥ÎÅܼƤñ¸û¤è«K
PKKO

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD