第13週WORD巨集+表單+TypeText+TypeParagraph+字串

 




 

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
  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 < 100
       loopNumber = loopNumber + 1
       c = (a + b) / 2
       f = npv(c)
       If Abs(f) > maxerror And gap > maxerror Then
          If f > 0 Then
            a = c
          Else
            b = c
            gap = b - a
          End If
        Else
          Label9.Caption = c
       End If
     Loop
  End If
  Label10.Caption = f
  Label11.Caption = loopNumber
  Selection.TypeText ("躉繳" & TextBox1.Value & "第1期:" & TextBox2.Value & "第2期: " & TextBox3.Value & "第3期:" & TextBox4.Value)
  Selection.TypeParagraph
  Selection.TypeText ("內部報酬率:" & c)
  Selection.TypeParagraph
  Selection.TypeText ("淨現值:" & f)
  Selection.TypeParagraph
  Selection.TypeText ("迴圈次數:" & loopNumber)
  Selection.TypeParagraph
End Sub
Private Sub CommandButton2_Click()
  End
End Sub
Function npv(rate) '計算特定折現率rate的淨現值
  Dim y As Double
  Dim j As Integer
  y = -payment(0)
  For j = 1 To period
      y = y + payment(j) / (1 + rate) ^ j
  Next
  npv = y
End Function

留言

張貼留言

這個網誌中的熱門文章

盧文玲,損益表,EXCEL百分比PercentRank,每股盈餘,營業額,樞紐分析

圖片
091影片 證券交易法第36條及證劵期貨局相關函令 一般行業申報期限：第一季為5月15日，第二季為8月14日，第三季為11月14日，年度為3月31日。 季報45天內公告，年報三個月。  金控業申報期限：第一季為5月30日，第二季為8月31日，第三季為11月29日，年度為3月31日。  銀行及票券業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。  保險業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。  證券業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。 公開資訊觀測站https://mops.twse.com.tw/ 公開資訊觀測站相當於美國SEC下面的EDGAR 台灣公開資訊觀測站，是在台灣證劵交易所股份有限公司之下，美國EDGAR直屬於SEC之下，SEC美國證劵交易委員會。
閱讀完整內容

德國

圖片
劉任昌教學影片071 危機百科DAX指數介紹 德國DAX成分股html模式貼上 阿迪達斯（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（E.ON AG能源） 費森尤斯集團（Fresenius SE，健康，醫院） 費森尤斯醫療（Fresenius Medical Care AG & Co. KGaA，腎透析產品和服務,Fresenius SE的子公司） 漢高（Henkel，化工） 英飛凌（Infineon Technologies AG，半導體製造） 林德（Linde AG，化工） 默克集團（Merck KGaA，化工製藥） MTU航空發動機公司（MTU Aero Engines AG，飛機發動機製造） 麥德龍（Metro AG，商品零售） 慕尼黑再保險（ Münchener Rückversicherungs-Ges. AG，保險） 萊茵集團（RWE AG，能源） SAP公司（SAP AG，企業管理軟體與解決方案供應商） 西門子（Siemens AG，電器製造） 大眾汽車（Volkswagen AG，汽車製造） 沃諾維亞（Vonovia SE，房地產） Delivery Hero（Delivery Hero SE，網際網路訂餐服務） 德國DAX成分股html撰寫模式 阿迪達斯 （Adidas AG，體育用品） 安聯 （Allianz SE，保險） 巴斯夫 （BASF SE，化工） 拜耳 （Bayer AG，醫藥） 西門子能源股份公司 （Siemens Energy AG，
閱讀完整內容

第十四週word+EXCEL recording macro 錄製巨集+金融計算

圖片
  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 gap > maxerror Then           If f > 0 Then             a = c           Else             b = c             gap = b - a           End If         Else           Label9.Caption = c        End If      Loop   End If
閱讀完整內容