Const period As Integer = 4 Const maxerror As Double = 0.00000001 Dim payment(period) As Double '廣域變數 4 維度的陣列 Private Sub CommandButton1_Click() Dim a, b, c, f, gap As Double Dim loopNumber As Integer a = 0 b = 1 gap = 10 loopNumber = 10 payment(0) = TextBox1.Value payment(1) = TextBox2.Value payment(2) = TextBox3.Value payment(3) = TextBox4.Value f = npv(a) If f = 0 Then Label9.Caption = 0 ElseIf f < 0 Then Label9.Caption = "內部報酬率小於 0." Else Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 300 loopNumber = loopNumber + 1 c = (a + b) / 2 f = npv(c) If Abs(f) > maxerror And gap > maxerror Then If f > 0 Then a = c ...
葉又瑄的VBA程式碼 Dim n As Integer Dim spec As String Const period As Integer = 4 Const maxerror As Double = 0.0000001 Dim payment(period) As Double '廣域變數 4 維度的陣列 Private Sub CommandButton1_Click() Dim a, b, c, f, gap As Double Dim loopNumber As Integer n = n + 1 '第幾次計算+1 a = 0 '報酬率0 b = 1 '報酬率1 gap = 10 loopNumber = 10 payment(0) = TextBox1.Value payment(1) = TextBox2.Value payment(2) = TextBox3.Value payment(3) = TextBox4.Value f = npv(a) If f = 0 Then Label9.Caption = 0 ElseIf f < 0 Then Label9.Caption = "內部報酬率小於 0." Else Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 100 loopNumber = loopNumber + 1 c = (a + b) / 2 f = npv(c) If Abs(f) > maxerror And ...
林佳萱觀看劉任昌075 使用內建函數Find, Left, Mid, Concatenate 李昀諠 半結構化數據semi-structured data 德國DAX 中文 外文 類別 愛迪達 葉又瑄 Adidas AG 體育用品 安聯 Allianz SE 保險 巴斯夫 BASF SE 化工 拜耳 Bayer AG 醫藥 西門子能源股份公司 Siemens Energy AG 能源 寶馬 Bayerische Motoren Werke AG 汽車製造 大陸集團 Continental AG 運輸行業製造 科思創 Covestro AG 聚合物材料 戴姆勒朋馳汽車 葉又瑄 Daimler AG 汽車製造 德意志銀行 Deutsche Bank AG 金融 德國證券交易所 Deutsche Börse AG 金融 德國郵政 Deutsche Post AG 物流 德國電信 Deutsche Telekom AG 電信 德國住宅公司 Deutsche Wohnen SE 房地產 意昂集團 E.ON AG 能源 費森尤斯集團 Fresenius SE 健康，醫院 費森尤斯醫療 Fresenius Medical Care AG & Co. KGaA 腎透析產品和服務,Fresenius SE的子公司 漢高 Henkel 化工 英飛凌 Infineon Technologies AG 半導體製造 林德 Linde AG 化工 默克集團 Merck KGaAv化工製藥 MTU航空發動機公司（ MTU Aero Engines AGv飛機發動機製造 麥德龍 Metro AG 商品零售 慕尼黑再保險 Münchener Rückversicherungs-Ges. AG 保險 萊茵集團 RWE AG 能源 SAP公司 SAP AG 企業管理軟體與解決方案供應商 西門子 Siemens AG 電器製造 大眾汽車 Volkswagen AG 汽車製造 沃諾維亞 Vonovia SE 房地產 Delivery Hero Delivery Hero SE 網際網路訂餐服務
留言
張貼留言