陳沛君第10週陣列array+matrix的使用

在<body>與</body>增加

<input type="checkbox" id="Address>

在<script>內增加</script>的最後一個}之前增加
if(document.getElementById("Address").checked)
{
  document.getElementById("presentA").innerHTML = BigFiveA[five.selectedIndex];
}

呈現

留言

張貼留言

這個網誌中的熱門文章

陳沛君EXCEL->讀取外部資料讀入->從Web

圖片
劉任昌079影片 道瓊30成分股 EXCEL讀取外部資料 EXCEL讀取外部資料:陳沛君網頁更新後 網路爬蟲 網路爬蟲 （英語： web crawler ），也叫 網路蜘蛛 （ spider ），是一種用來自動瀏覽 全球資訊網 的 網路機器人 。其目的一般為編纂 網路索引 。 網路 搜尋引擎 等站點通過爬蟲軟體更新自身的 網站內容 或其對其他網站的索引。網路爬蟲可以將自己所存取的頁面儲存下來，以便搜尋引擎事後生成 索引 供使用者搜尋。 爬蟲存取網站的過程會消耗目標系統資源。不少網路系統並不默許爬蟲工作。因此在存取大量頁面時，爬蟲需要考慮到規劃、負載，還需要講「禮貌」。 不願意被爬蟲存取、被爬蟲主人知曉的公開站點可以使用robots.txt檔案之類的方法避免存取。這個檔案可以要求 機器人 只對 網站 的一部分進行索引，或完全不作處理。 網際網路上的頁面極多，即使是最大的爬蟲系統也無法做出完整的索引。因此在公元2000年之前的全球資訊網出現初期，搜尋引擎經常找不到多少相關結果。現在的搜尋引擎在這方面已經進步很多，能夠即刻給出高品質結果。取自 維基百科
閱讀完整內容

公共資訊觀測站,損益表,營業收入,每股盈餘,樞紐分析

證券交易法第36條 1.一般行業申報期限：第一季為5月15日，第二季為8月14日，第三季為11月14日，年度為3月31日。一般產業的季報在45日內發布。年報在三個月內發布。 2.金控業申報期限：第一季為5月30日，第二季為8月31日，第三季為11月29日，年度為3月31日。 3.銀行及票券業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。 4.保險業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。 5.證券業申報期限：第一季為5月15日，第二季為8月31日，第三季為11月14日，年度為3月31日。 6.申報期限如遇例假日，以證券期貨局公布者為準。 7.第二上市（櫃）公司請循「投資專區/臺灣存託憑證專區/臺灣存託憑證發行人簡明財務報表彙總表」查詢。 在撰寫模式貼上excel結果 營業額與EPS分十組的關係 計數 - 公司名稱 EPS分十組 營業收入分十組 0 1 2 3 4 5 6 7 8 9 總計 0 24 23 18 16 3 3 1 1 2 91 1 15 22 13 13 7 8 7 2 3 1 91 2 11 10 14 10 11 11 10 6 4 4 91 3 12 5 8 20 6 7 10 10 8 5 91 4 9 8 7 8 14 9 8 6 10 12 91 5 8 3 11 6 13 7 7 13 10 13 91 6 6 10 6 6 8 17 13 9 10 6 91 7 4 3 6 5 12 4 13 17 15 12 91 8 2 3 3 4 13 13 11 9 17 16 91 9 4 5 4 4 13 10...
閱讀完整內容

第14週EXCEL App錄製巨集 recording macro

圖片
陳沛君學習劉任昌的VBA程式碼 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         ...
閱讀完整內容