程式設計學習進度與心得 新文章

 第一週九月七日

老師給範本
學生改，如此學習。

第二週九月14日

學習
<label>顏色: </label>
<label>黑色<input type="radio" name="color"></label>
<label>紅色<input type="radio" name="color"></label>
<label>綠色<input type="radio" name="color"></label>
<label>藍色<input type="radio" name="color"></label>
<input type="button" value="2020每天通貨" onclick="draw()">
  
<input type="button" value="2020年每天的貨幣數量" onclick="draw()">

第四週

<form><b>
選擇速度: <select id="selection"> 
<option value="10">10</option>
<option value="20">20</option>
<option value="40" selected>40</option>
<option value="100">100</option>
<option value="100">500</option>
</select>
選擇顏色:
<input id="linecolor" type="checkbox">紅色 <!--核取方塊 linecolor -->
<input onclick="draw()" type="button" value="2020年每天通貨走勢" />
</form>


選擇速度: 選擇顏色: 紅色

第五週2020/10/06

CSS

階層式樣式表（英語：Cascading Style Sheets，縮寫：CSS；又稱串樣式列表、級聯樣式表、串接樣式表、層疊樣式表）是一種用來為結構化文件（如HTML文件或XML應用）添加樣式（字型、間距和顏色等）的電腦語言，由W3C定義和維護。目前最新版本是CSS2.1，為W3C的推薦標準。CSS3現在已被大部分現代瀏覽器支援，而下一版的CSS4仍在開發中。拷貝自維基百科。
F12 (Function 12)進入開發人員模式，除錯debug(抓蟲bug)
EXCEL VBA


第六週上課

網頁指令VBA指令
聯絡人職稱: UserForm_Initialize()'起始表單事件設定
聯絡人職稱:<select id="ComboBox1">
<option>董事長</option>
<option>總經理</option>
<option>副總經理</option>
<option>財務長</option>
<option>人資長</option>
</select>		With ComboBox1
.Additem("董事長")
.Additem("總經理")
.Additem("副總經理")
.Additem("財務長")
.Additem("人資長")
End With
vba
<input type="button" value="按下去" onclick="alert('你是豬頭！')">vba
豬狗貓vba
If (條件式) then
{ 成立時執行的指令}
else
{ 不成立時執行的指令 }		If  條件式  then
  成立時執行的指令
else
  不成立時執行的指令 
end if
EXCEL VBA 程式碼
  Private Sub CommandButton1_Click()
    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()
  With ComboBox1
    .AddItem ("董事長")
    .AddItem ("總經理")
    .AddItem ("副總經理")
    .AddItem ("財務長")
    .AddItem ("人資長")
  End With
End Sub
htmlvba
輸入國庫券面額: vba
輸入國庫券面額: <input type="text" id="a">textbox
commandbutton
<input onclick="alert('你是大帥哥!')" type="button" value="按下我" />vba
豬狗貓鼠vba
豬<input type="radio" />狗<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"/>鼠<input type="radio" name="pet"/>vba
vba
<select><option>董事長</option><option>總經理</option><option>財務長</option></select>vba
EXCEL VBA
Private Sub CommandButton1_Click() 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

第七週2020/10/19

表格命令對照

htmlvba
輸入國庫券面額: vba
輸入國庫券面額: <input type="text" id="a">textbox
commandbutton
<input onclick="alert('你是大帥哥!')" type="button" value="按下我" />vba
豬狗貓鼠vba
豬<input type="radio" />狗<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"/>鼠<input type="radio" name="pet"/>vba
vba
<select><option>董事長</option><option>總經理</option><option>財務長</option></select>vba
EXCEL VBA
Private Sub CommandButton1_Click() 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 VBA

檔案=>選項=>自訂功能區=>選取「開發人員」


選取EXCEL「開發人員」=>插入=>自訂表單=>新增「下拉式選單」

新增「下拉式選單」ComboBox1=>
新增「命令按鈕」CommandButton1, 「命令按鈕」CommandButton2 

留言

張貼留言

這個網誌中的熱門文章

劉任昌期中考UNICODE建立對照表

圖片
UNICODE常用漢字對照表 劉任昌086影片 UNICODE Table 劉任昌copy的漢字表 來源: http://www.tamasoft.co.jp/en/general-info/unicode.html 4E00 一 丁 丂 七 丄 丅 丆 万 丈 三 上 下 丌 不 与 丏 丐 丑 丒 专 且 丕 世 丗 丘 丙 业 丛 东 丝 丞 丟 CJK 9C00 鰀 鰁 鰂 鰃 鰄 鰅 鰆 鰇 鰈 鰉 鰊 鰋 鰌 鰍 鰎 鰏 鰐 鰑 鰒 鰓 鰔 鰕 鰖 鰗 鰘 鰙 鰚 鰛 鰜 鰝 鰞 鰟 CJK 9C20 鰠 鰡 鰢 鰣 鰤 鰥 鰦 鰧 鰨 鰩 鰪 鰫 鰬 鰭 鰮 鰯 鰰 鰱 鰲 鰳 鰴 鰵 鰶 鰷 鰸 鰹 鰺 鰻 鰼 鰽 鰾 鰿   9C40 鱀 鱁 鱂 鱃 鱄 鱅 鱆 鱇 鱈 鱉 鱊 鱋 鱌 鱍 鱎 鱏 鱐 鱑 鱒 鱓 鱔 鱕 鱖 鱗 鱘 鱙 鱚 鱛 鱜 鱝 鱞 鱟   9C60 鱠 鱡 鱢 鱣 鱤 鱥 鱦 鱧 鱨 鱩 鱪 鱫 鱬 鱭 鱮 鱯 鱰 鱱 鱲 鱳 鱴 鱵 鱶 鱷 鱸 鱹 鱺 鱻 鱼 鱽 鱾 鱿   9C80 鲀 鲁 鲂 鲃 鲄 鲅 鲆 鲇 鲈 鲉 鲊 鲋 鲌 鲍 鲎 鲏 鲐 鲑 鲒 鲓 鲔 鲕 鲖 鲗 鲘 鲙 鲚 鲛 鲜 鲝 鲞 鲟   9CA0 鲠 鲡 鲢 鲣 鲤 鲥 鲦 鲧 鲨 鲩 鲪 鲫 鲬 鲭 鲮 鲯 鲰 鲱 鲲 鲳 鲴 鲵 鲶 鲷 鲸 鲹 鲺 鲻 鲼 鲽 鲾 鲿   9CC0 鳀 鳁 鳂 鳃 鳄 鳅 鳆 鳇 鳈 鳉 鳊 鳋 鳌 鳍 鳎 鳏 鳐 鳑 鳒 鳓 鳔 鳕 鳖 鳗 鳘 鳙 鳚 鳛 鳜 鳝 鳞 鳟   9CE0 鳠 鳡 鳢 鳣 鳤 鳥 鳦 鳧 鳨 鳩 鳪 鳫 鳬 鳭 鳮 鳯 鳰 鳱 鳲 鳳 鳴 鳵 鳶 鳷 鳸 鳹 鳺 鳻 鳼 鳽 鳾 鳿   9D00 鴀 鴁 鴂 鴃 鴄 鴅 鴆 鴇 鴈 鴉 鴊 鴋 鴌 鴍 鴎 鴏 鴐 鴑 鴒 鴓 鴔 鴕 鴖 鴗 鴘 鴙 鴚 鴛 鴜 鴝 鴞 鴟   9D20 鴠 鴡 鴢 鴣 鴤 鴥 鴦 鴧 鴨 鴩 鴪 鴫 鴬 鴭 鴮 鴯 鴰 鴱 鴲 鴳 鴴 鴵 鴶 鴷 鴸 鴹 鴺 鴻 鴼 鴽 鴾 鴿   9D40 鵀 鵁 鵂 鵃 鵄 鵅 鵆 鵇 鵈 鵉 鵊 鵋 鵌 鵍 鵎 鵏 鵐...
閱讀完整內容

劉任昌EXCEL資料->讀取外部資料->從WEB

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

劉任昌 公開資訊觀測站 損益表 百分比 分組 進行樞紐分析

證券交易法第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 ...
閱讀完整內容