第七週上課內容

第七週 2020/10/19

網頁VBA
輸入金額:textbox
輸入金額:<input id="a" type="text" />VBA
VBA
<input id="b" type="button" value="點擊" onclick="alert('你是豬頭!')"/>VBA
豬狗貓VBA
豬<input type="radio">狗<input type="radio">貓<input type="radio" >VBA
豬狗貓VBA
豬<input type="radio" name="pet">狗<input type="radio" name="pet">貓<input type="radio" name="pet">VBA
豬狗貓def
EXCEL VBA
Private Sub CommandButton1_Click() '註解click事件,在網頁onclick Dim addnew As Range '定義 變數 addnew 是工作表的一個範圍 If Range("A1").CurrentRegion.Rows.Count = 1 Then Set addnew = Sheets("DataTable").Range("A1").Offset(1, 0) Else Set addnew = Sheets("DataTable").Range("A1").End(xlDown).Offset(1, 0) End If addnew.Offset(0, 0).Value = TextBox1.Text '統一編號 addnew.Offset(0, 1).Value = TextBox2.Text '公司 addnew.Offset(0, 2).Value = TextBox3.Text '聯絡人 addnew.Offset(0, 4).Value = TextBox4.Text '地址 addnew.Offset(0, 3).Value = ComboBox1.Value '聯絡人職位 使用下拉式選單 ListBox1.ColumnCount = 5 '在清單方塊 ListBox1 顯示輸入的資料，5 columns ListBox1.RowSource = "A1:E65536" End Sub Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem ("董事長") ComboBox1.AddItem ("總經理") ComboBox1.AddItem ("副總經理") ComboBox1.AddItem ("財務長") End Sub

留言

張貼留言

這個網誌中的熱門文章

盧文玲,損益表,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
閱讀完整內容