第六週進度

第六週進度：比較網頁指令 與 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
《豬頭！到此為止！》

留言

張貼留言

這個網誌中的熱門文章

劉庭安德國股市，樞紐分析，週末效應

圖片
劉任昌072教學 劉任昌072教學 德國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組成公司:撰寫模式貼上 阿迪達斯 （Adidas AG，體育用品） 安聯 （Allianz SE，保險） 巴斯夫 （BASF SE，化工） 拜耳 （Bayer AG，醫...
閱讀完整內容

第七週程式設計學習進度

第七週2020/10/19 網頁 VBA 輸入金額: texbox 輸入金額:<input type="text" id="a"> 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 豬<input type="radio">狗<input type="radio">貓<input type="radio"> def abc def abc def 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")...
閱讀完整內容