金一甲程式設計

林郁恆程式設計學習經驗分享 教學影片 第二支影片 第七周2020/10/19 網頁 VBA 輸入金額: textbox 輸入金額:<input type="text" id="a"> VBA VBA <input type="button" value="按下我" onclick="alert('你是豬頭!')"> VBA 豬 狗 貓 VBA 豬<input type="radio">狗<input type="radio">貓<input type="radio"> VBA 豬 狗 貓 VBA 豬<input name="pet" type="radio" />狗<input name="pet" type="radio" />貓<input name="pet" 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(xlDo...

第七周2020/10/19 網頁 VBA 輸入金額: textbox 輸入金額:<input type="text" id="a"> VBA VBA <input type="button" value="按下我" onclick="alert('你是豬頭!')"> VBA 豬 狗 貓 VBA 豬<input type="radio">狗<input type="radio">貓<input type="radio"> VBA 豬 狗 貓 VBA 豬<input name="pet" type="radio" />狗<input name="pet" type="radio" />貓<input name="pet" 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 '公司 add...