½Ð±Ð¤@Ó¥Õ·ö°ÝÃD¨D¦h¶µ¦¡¨t¼Æ ¹Bºâ
- ©«¤l
- 23
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-13
- ³Ì«áµn¿ý
- 2019-1-13
|
½Ð±Ð¤@Ó¥Õ·ö°ÝÃD¨D¦h¶µ¦¡¨t¼Æ ¹Bºâ
y=ax2+b+c
¨D¤U¦C -b/2a VBA n¦p¦ó¼g
y = 0.325x2 - 2.285x + 96.81
y = -0.4493x2 + 4.6159x + 79.479
y = -0.5191x2 + 4.9765x + 77.152
y = -0.3759x2 + 3.0353x + 80.458
y = -0.828x2 + 6.9143x + 71.517
y = -0.7489x2 + 5.9881x + 72.839
y = -0.6864x2 + 5.9984x + 69.456
y = -0.7438x2 + 6.3198x + 68.193
y = -0.9405x2 + 8.6403x + 60.431
y = -0.7646x2 + 7.1892x + 61.879
y = -0.5975x2 + 6.2365x + 61.215
·PÁÂ~ |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 1# jysun1
½Ð°Ñ¦Ò-
- Sub pºâ(PT As Range)
- Dim strMsg, a#, b#, c#
- strMsg = Split(PT, " ")
- a = Left(strMsg(2), Len(strMsg(2)) - 2)
- b = Left(strMsg(4), Len(strMsg(4)) - 1)
- If strMsg(3) = "-" Then b = -b
- c = strMsg(6)
- If strMsg(5) = "-" Then c = -c
- 'MsgBox a & Chr(10) & b & Chr(10) & c
- PT.Offset(0, 1) = -b / (2 * a)
- End Sub
½Æ»s¥N½X
¦h¶µ¦¡.zip (15.07 KB)
|
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 30
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-13
- ³Ì«áµn¿ý
- 2019-1-13
|
¦^´_ 2# a5007185
·PÁ¤j¤j¡A
·d©w¤F!
ÁÂÁ±zªº¦^ÂÐ~ |
|
|
|
|
|
|