第13週匯入 VBA 然後在 WORD 畫面也輸出結果

-

在WORD打開開發人員功能

2020年12月3日學習成果

劉任昌上劉任昌程式設計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 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
  spec = "躉繳$" & payment(0) & ", 第1期$" & payment(1) & ",第2期$" & payment(2) & ",第3期$" & payment(3)
  Selection.TypeText ("第" & n & "次執行")
  Selection.TypeParagraph
  Selection.TypeText (spec)
  Selection.TypeParagraph
  Selection.TypeText ("內部報酬率:" & c)
  Selection.TypeParagraph
  Selection.TypeText ("淨現值:" & f)
  Selection.TypeParagraph
  Selection.TypeText ("迴圈次數:" & loopNumber)
  Selection.TypeParagraph 'typewriter打字機paragraph段落
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
Private Sub CommandButton3_Click()
  Selection.WholeStory
  Selection.Delete
End Sub

留言

張貼留言

這個網誌中的熱門文章

20242912投資學第一次上課

-
圖片
投資（investing）是一個重要議題，所以我們必須學習投資學（investment）， 以懂得做投資（to invest）。華倫巴菲特（Warren Buffett）對年輕人忠告 \footnote{參考視頻（https://youtube.com/shorts/z3EqFAZ4Dxc），華倫巴菲特於 2022/4/30股東會作出類似表達，對要求推薦一股票的一位年輕學生如此說：最好的投資是發展自我（develop yourself）。參考 https://youtu.be/xSHPQk5SHzg?si=1Krq-U0c6X_fuqKl} ：「你能選擇的最好投資是投資自己。」（The best investment you can make is in yourself.） 華倫巴菲特接續說：改善你的構通技巧（communication skills），包含書寫書寫表達與人際構通的技巧，好的溝通技巧可以提升你的價值50以上。 華倫巴菲特所謂「最好投資」指的是投資的過程與方法，也就是投資學（investment）：年輕的時候要發展自己的專業知識，拓展自己更大的人生選擇機會與駕馭機會的高度。在這過程中會不斷累積資本（capital）與財富（wealth），如何將它們配置到金融資產（financial assets）或金融工具（financial instruments），即是投資學的議題。所以，華倫巴菲特說的投資是「廣義的」投資學，大學課程學習的投資學是「狹義的」投資學，也就是這門課的議題。 華倫巴菲建議的「投資自己」或「發展自我」意謂壓抑自己懶睡、玩樂、玩電動的行為， 而挑選「發展自我」的方向、領域、階段、時間配置等，得以提升自己的人生價值。 投資學課程的投資是犧牲現在的消費，形成儲蓄的資金，而將資金配置在各種投資工具， 配置的比率、配置的時點，都是投資學討論的議題。 英文投資（invest）與銀行（bank）的字源 投資（invest）英文字尾vest是衣服的「背心」，相關字有救生衣（safety vest）、防彈衣（bullet-proof vest）。 英文「invest」字源是拉丁文「investire」原意是穿上正式的聖袍（to clothe in the official robes of an office），直到1610年代，...
閱讀完整內容

金融市場(劉任昌)講義與研讀心得

-
劉任昌2020《金融市場》首版 任何一種動物都形成一個或多個群體，這種群體就是社會（society）；社會學（sociology）研究群體份子之間的關係、互動、集體生活模式，以及模式的傳承。但是，動物社會不能形成經濟體（economy），僅人類社會形成經濟體。人類在經濟體中，彼此合作與交易，促成效率交易的工具是彼此信任的金錢。以下，從大家最熟悉的市場與金錢談起，終究目的是要了解金融市場的功能與目的。 金融市場學的上游：社會科學與經濟學 金融市場（Financial Market）的「金融」是形容詞，「市場」是名詞。名詞（noun）涵蓋的概念廣於形容詞（adjective），所以，我們必須深入討論「市場」與經濟體議題，也就是經濟學（economics）。經濟學是一門社會科學，經濟學研究不同主體（agents）之間從事生產、分配、交換與消費財貨或服務；所謂的主體包含個人、家庭、廠商、公會與國家等。 英國經濟學家 羅賓斯 （註4）定義經濟學是一門科學，研究人在稀少、多用途的資源限制下，如何行為以達成慾求的目標？美國經濟學家 寇斯 主張（註5）：經濟學研究經濟體系的社會制度，涵蓋公司、投入與產出市場，以及金融體系。 金融體系是經濟體的一部分，金融體系與經濟體都是大網路，連結家計部門（個人）、廠商部門、政府部門、國外部門與各種市場。「市場」是不同主體之間從事交易的習慣、程序、系統、社會關係或實體場所；市場透過價格機能（price mechanism）：價高則供給增加、價低則需求增加，促進經濟資源的效配置率。  財貨與服務市場和貨幣的功能 動物社會，僅有掠奪（例外是雌性動物養育幼子），沒有市場。人類社會則發展多元的市場，例如：糧食市場、魚（海鮮）市場、肉品市場、零售市場、果菜市場、童裝市場、成衣市場、住房市場、租屋市場、汽機車市場、旅遊市場、電信市場、手機市場、家電市場…等，終究目的是促進人類的分工合作，讓每個人都可以專注在特定領域從事生產、創造價值。 當一個農夫帶著糧食到市場，希望物物交換（barter）獲得鋤頭的時候，卻碰巧生產鋤頭的鐵匠不需要糧食，僅期待交換獲取海鮮或修繕服務的時候。這種尷尬困境造成農夫和鐵匠的期待都落空！解決以上困境的方式，是經濟體具有共同的交易媒介（medium of exchange）：通貨（money）。 農夫產出糧食，就拿...
閱讀完整內容

證券商高級業務員2020年第一次「財務分析」

-
圖片
109年第1次證券商高級業務員資格測驗試題「財務分析」 下列何項是屬於 動態分析 ？ 計算某一財務報表項目不同期間的金額變動 計算某一資產項目占資產總額的百分比 計算某一期間的總資產週轉率 將某一財務比率與當年度同業平均水準比較 參考: [財109-2-02]動態分析 賒銷$3,000並代顧客支付運費$60，付款條件2/10，n/30，若顧客於10天內將貨款與運費一併支付，則應收現金若干？ $3,060 $3,030 $3,000 $2,940 鄰家公司的流動比率為1，若鄰家公司的流動負債為$10,000、平均庫存存貨值為$1,000、預付費用為$0，則其酸性比率（速動比率）應為何？ 0.8 1.2 1 0.9 秋田公司宣告並發放所持有的100,000股福島公司股票做為財產股利，當時帳列之福島公司股票成本為每股$20，市價則為每股$30，而福島公司股票面額為每股$10。假設宮城公司收到1,000股福島公司股票，則宮城公司應認列之股利收入金額為： $10,000 $20,000 $30,000 依福島公司每股淨值而定 「每股現金流量」衡量的是： （現金收入－現金支出）÷流通在外股數 企業由內部產生現金的能力 企業的獲利能力 選項(A)(B)(C)皆是 處分土地乙筆，成本$3,500、處分利益$500，則應於投資活動項下列入現金流入： $3,000 $1,000 $4,000 $0 被投資公司發放股票股利時，投資公司之會計處理為： 一律貸記「投資收入」 一律借記「長期投資」 不做任何分錄，僅註記增加之股數 成本法下貸記「投資收入」，權益法下則貸記「長期投資」 參考: [財109-2-35]配股 房地產公司購入而尚未出售之房屋應列為： 無形資產 不動產、廠房及設備 基金與投資 流動資產 波力公司於108年12月31日以$100,000之價格，將其原始成本為$80,000，帳面金額為$60,000，尚能使用5年之機器設備出售給其80%持股之子公司。此交易對108年波力公司淨利之影響為何？ 使淨利增加 使淨利減少 沒有影響 可能增加、亦可能減少淨利 若公司債之票面利率高於市場利率，則該公司債應： 平價發行 溢價發行...
閱讀完整內容