如何在Excel中識別二次方程的實根?
簡介
在Microsoft Excel中處理大型資料集可能很困難,尤其是在您必須從複雜方程式中查詢準確值時。Excel提供了一種極好的方法來加快此處理速度,使用者可以在Visual Basic中建立使用者定義函式並在指定的單元格中呼叫它。UDF是解決複雜數學方程式的有效方法。在本文中,我們將學習如何透過使用者定義函式確定二次方程的根。
使用Visual Basic程式碼評估二次方程的根
步驟1
開啟所需的電子表格,並在A1:D2範圍內輸入以下條目。

步驟2
按ALT +F11鍵開啟VBE視窗,移動到“插入”選項卡,然後單擊“模組”選項,如下所示:

步驟3
在新模組中編寫UDF:
Function quad_roots(r1, r2, r3) 'compute the formula' t = (r2 * r2) - (4 * r1 * r3) Select Case t Case 0: quad_roots = 1 Case Is > 0: quad_roots = 2 Case Else: quad_roots = 0 End Select End Function

儲存工作表並切換到Excel以測試生成的函式。
步驟4
在D2單元格中編寫公式=quad_roots(A2,B2,C2),如下面的影像中突出顯示的那樣:

步驟5
按“Enter”鍵以評估二次方程的實根。因此,我們成功地在D2單元格中呼叫並測試了該函式。結果值在下面的影像中突出顯示:

結論
透過採用這些方法,我們可以輕鬆地識別Excel列中二次方程的根。在UDF中,定義了select case表示式以驗證特定條件。為了獲得期望的結果,使用者必須在指定的單元格中呼叫該函式。
廣告