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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD