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

[µo°Ý] EXCEL VBA¨D¤@¤¸¤G¦¸¤èµ{¦¡ (¤£¥Î¤½¦¡¸Ñ)

[µo°Ý] EXCEL VBA¨D¤@¤¸¤G¦¸¤èµ{¦¡ (¤£¥Î¤½¦¡¸Ñ)

¥»©«³Ì«á¥Ñ ´Ë³¥ ©ó 2021-10-18 09:52 ½s¿è

¤@¤¸¤G¦¸¤èµ{¦¡:X²+2X-4=0 ,¥Î¤½¦¡¸Ñx=(-b¡Ó¡Ôb^2-4ac)/2aªº¤è¦¡¡A¥i¥H¨D¥XX1=1.23606797749979 X2=-3.2360679774997
ÂǦ¹¥iª¾X1¦ì©ó1~2¤§¶¡ X2¦ì©ó-3~-4¤§¶¡  ¦pªG¤£¥Î¤½¦¡¸Ñªº¤è¦¡ ­n¦p¦óÅý¹q¸£§P§OX1¡BX2¬O¦ì©ó1~2¤Î-3~-4¤§¶¡ ¤§¶¡ ¨Ã¥Bºâ¨ìX1=1.2360679774997¡AX2=-3.2360679774997
Å޿誺³¡¤À´N¬O¦pªG¨S¦³¤½¦¡¡A¥H¹q¸£ªºÅÞ¿è¡A§P§O¤èµ{¦¡ªº¨«¦V¡A§ä¥X±µªñªº¸Ñµª¨Ã¥[¥H­×¥¿»~®t­È¡A·Qª¾¹D¦p¦ó³]©wµ{¦¡½X¥H¤Î¸Ô²Ó»¡©ú

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2021-10-19 11:22 ½s¿è

¦^´_ 1# ´Ë³¥


    Sub ¤@¤¸¤G¦¸¤èµ{¦¡¨D¸Ñ()
Workbooks.Add
[MM:MM].Interior.ColorIndex = 1
[601:601].Interior.ColorIndex = 1
ActiveWindow.Zoom = 10
Cells.RowHeight = 6
Cells.ColumnWidth = 0.5
Dim X, Y, X1, X2, Xn1, Xn2, a, b, c
Y = a * X ^ 2 + b * X + c
a = 1
b = 2
c = -4
X1 = (-b + (b ^ 2 - 4 * a * (c)) ^ 0.5) / (2 * a) '<<<
X2 = (-b - (b ^ 2 - 4 * a * (c)) ^ 0.5) / (2 * a) '<<<
MsgBox "X1 = " & X1 & vbLf & vbLf & "X2 = " & X2
Cells(601, X1 * 100 + 351).Interior.ColorIndex = 3
Cells(601, X2 * 100 + 351).Interior.ColorIndex = 3
For X = 1.4 To -3.4 Step -0.01
   Y = Round(a * X ^ 2 + b * X + c, 2)
   Cells(601 + Y * 100, X * 100 + 351).Interior.ColorIndex = 3
Next
End Sub

TOP

§ó¥¿:©ßª«½u¶}¤f´Â¤W
Option Explicit
Sub TEST()
Cells.Interior.ColorIndex = xlNone
Dim X, Y, a, b, c, n, U1, U2, u, v, S, S0, S1, Y0, Y1, X1, X2, P, J, B2_4AC
J = 1
Y = a * X ^ n + b * X + c:  a = 1: b = 2: c = -4: n = 2
B2_4AC = b ^ 2 - 4 * a * c
If n = 2 Then
   If (4 * a * c - b ^ 2) / 4 * a = 0 Then
      MsgBox "°ß¤@¸Ñ X= " & (-b) / (2 * a): Exit Sub
      ElseIf ((4 * a * c - b ^ 2) / 4 * a > 0 And a > 0) Or ((4 * a * c - b ^ 2) / 4 * a < 0 And a < 0) Then
         MsgBox " X µL¸Ñ!": Exit Sub
   End If
   If b = 0 And c < 0 Then X1 = (-c / a) ^ 0.5: X2 = -(-c / a) ^ 0.5
   If a > 0 Then MsgBox "©ßª«½u¶}¤f¦V¤W" Else: MsgBox "©ßª«½u¶}¤f¦V¤U"
End If
U1 = Round((-b - B2_4AC ^ 0.5) / (2 * a), 2)
U2 = Round((-b + B2_4AC ^ 0.5) / (2 * a), 2)
u = (Abs(U1) + 1) * 110: v = (Abs(c) + 1) * 110
Columns(u).Interior.ColorIndex = 1
Rows(v).Interior.ColorIndex = 1
Cells(v, u - Abs(U1) * 100).Interior.ColorIndex = 3
Cells(v, Abs(U2) * 100 + u).Interior.ColorIndex = 3
For X = U1 - 0.2 To U2 + 0.2 Step 0.01
   Y = Round(a * X ^ 2 + b * X + c, 2)
   Cells(v - Y * 100, X * 100 + u).Interior.ColorIndex = 3
Next
888: S0 = -100 * J: S1 = 100 * J: S = J: P = 1
999
For X = S0 To S1 Step S
   Y0 = a * X ^ n + b * X + c
   Y1 = (a * (X + S)) ^ n + (b * (X + S)) + c
   P = Y0 * Y1
   If (S < 10 ^ -13 And J = 1) Or (S > -(10 ^ -13) And J = -1) Then P = 0
   If P = 0 Then
      If c = 0 And J = 1 Then MsgBox "X1= " & X
      If c = 0 And J = -1 Then MsgBox "X2= " & X
      If J = -1 Then: MsgBox "X1= " & X1 & vbLf & vbLf & "X2= " & X2: Exit Sub
      J = -1: GoTo 888
      ElseIf P < 0 Then
         S0 = X: S1 = S0 + S: S = S / 10  '
         If J = 1 Then
            MsgBox "X1 ¤¶©ó " & S0 & " ~ " & S1
            X1 = S1
            Else
               MsgBox "X2 ¤¶©ó " & S0 & " ~ " & S1
               X2 = S1
         End If
         GoTo 999
   End If
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD