金一丙程式設計

 

葉又瑄程式設計學習經驗分享

劉任昌教學影片

\

第二支影片

第三支影片

第四支影片

同學的網誌

林佳萱的網誌

留言

張貼留言

這個網誌中的熱門文章

13週WORD VBA+TypeText+TypeParagraph+字串處理＆

圖片
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 ...
閱讀完整內容

第十四週EXCEL環境匯入在WORD執行的程式

圖片
葉又瑄的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 ...
閱讀完整內容

葉又瑄Excel函數將半結構化數據轉成結構化數據

圖片
林佳萱觀看劉任昌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 網際網路訂餐服務
閱讀完整內容