林恆郁觀看劉任昌影片075 使用內建函數Find, Left, Mid, Concatenate 蔡宛庭同學 半結構化資料 Semi-structured data 德國DAX 30指數 EXCEL內建函數Find, Left, Mid, Concatenate 中文 原文 類別 愛迪達林恆郁 Adidas AG Adidas AG 安聯 Allianz SE Allianz SE 巴斯夫 BASF SE BASF SE 拜耳 Bayer AG Bayer AG 西門子能源股份公司 Siemens Energy AG Siemens Energy AG 寶馬 Bayerische Motoren Werke AG Bayerische Motoren Werke AG 大陸集團 Continental AG Continental AG 科思創 Covestro AG Covestro AG 戴姆勒賓士汽車林恆郁 Daimler AG Daimler AG 德意志銀行 Deutsche Bank AG Deutsche Bank AG 德國證券交易所 Deutsche Börse AG Deutsche Börse AG 德國郵政 Deutsche Post AG Deutsche Post AG 德國電信 Deutsche Telekom AG Deutsche Telekom AG 德國住宅公司 Deutsche Wohnen SE Deutsche Wohnen SE 意昂集團 E.ON E.ON 費森尤斯集團 Fresenius SE Fresenius SE 費森尤斯醫療 Fresenius Medical Care AG & Co. KGaA Fresenius Medical Care AG & Co. KGaA 漢高 Henkel Henkel 英飛凌 Infineon Technologies AG Infineon Technologies AG 林德 Linde AG Linde AG 默克集團 Merck KGaA Merck KGaA MTU航空發動機公司 MTU Aero Engines AG...
林恆郁向劉任昌學習的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)...
留言
張貼留言